X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fexport_user.pl;h=3157d21aede0e738b09a9fd67163e0f0981e1583;hb=f155969d600561b9ef151a7ce2494a0c89aed033;hp=2b21466b7ce5d1b9e95a223092c733bbdc0e70f5;hpb=1728c7c7a64eaf2852c490629f022c7e70bc46e2;p=spider.git

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