"user_pin",
"user_profile",
"user_status",
+ "user_library",
"user_priv_granted",
"user_priv_expires",
"user_mailingaddr",
"user_category1",
"user_category2",
"user_category3",
+ "user_category4",
"dept",
"guardian",
+ "license",
+ "aup",
+ "photo",
+ "notify_via",
"user_claims_ret",
- #"user_environment",
- #"user_library",
+ "user_environment",
"user_department"
);
"dayphone",
"homephone",
"workphone",
+ "cellphone",
"email",
"location",
"usefor",
- "care_of"
+ "care_of",
+ "known_bad"
);
print STDOUT join("\t", @base_elements);
foreach my $t ( 1..3 ) {
if ($addresses{$t}) {
foreach my $e ( @addr_elements ) {
- my $v = $addresses{$t}->findvalue( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
+ my $v;
+ if ($e eq "known_bad") {
+ $v = $addresses{$t}->getAttribute( $e ); if ($v) { $v =~ s/^\s+//; $v =~ s/\s+$//; }
+ } else {
+ $v = $addresses{$t}->findvalue( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
+ }
print STDOUT ( $v ? $v : '' ) . "\t";
}
} else {