added code to cope with disappearing records

[spider.git] / perl / export_user.pl

diff --git a/perl/export_user.pl b/perl/export_user.pl
index 2b21466b7ce5d1b9e95a223092c733bbdc0e70f5..3157d21aede0e738b09a9fd67163e0f0981e1583 100755 (executable)
--- 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