From: djk Date: Thu, 4 Mar 1999 22:26:29 +0000 (+0000) Subject: added code to cope with disappearing records X-Git-Tag: R_1_24~4 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=077c3e3a30c07735968cedd5d9da3ac0b51a7f42;p=spider.git added code to cope with disappearing records --- diff --git a/perl/export_user.pl b/perl/export_user.pl index 2b21466b..3157d21a 100755 --- a/perl/export_user.pl +++ b/perl/export_user.pl @@ -40,9 +40,13 @@ package DXUser; for $a (@all) { my $ref = DXUser->get($a); - my $s = $ref->encode(); + if (ref $ref) { + my $s = $ref->encode(); - print "'$a' => qq{ $s },\n"; + print "'$a' => q{ $s },\n"; + } else { + print "# $a has gorn missing\n"; + } $count++; } print ");\n