X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fexport_user.pl;h=3157d21aede0e738b09a9fd67163e0f0981e1583;hb=9995de8c1bfcb9ed980ab0ef12e4d66564c04105;hp=950b72e5386527b12daf5f7d9dad09b77e13ea27;hpb=8ac487c0c3297023df07493b11fe166d4c857081;p=spider.git

diff --git a/perl/export_user.pl b/perl/export_user.pl
index 950b72e5..3157d21a 100755
--- a/perl/export_user.pl
+++ b/perl/export_user.pl
@@ -24,7 +24,7 @@ $userfn = $ARGV[0] if @ARGV;
 DXUser->init($userfn);
 
 @all = DXUser::get_all_calls();
-$t = scalar time;
+$t = scalar localtime;
 print "#!/usr/bin/perl
 #
 # The exported userfile for a DXSpider System
@@ -40,15 +40,13 @@ package DXUser;
 
 for $a (@all) {
 	my $ref = DXUser->get($a);
-	print "'$a' => bless ( { ";
+	if (ref $ref) {
+		my $s = $ref->encode();
 	
-	my $f;
-	for $f (sort keys %{$ref}) {
-		my $val = ${$ref}{$f};
-	    $val =~ s/'/\\'/og;
-		print "'$f' => '$val', ";
+		print "'$a' => q{ $s },\n";
+	} else {
+		print "# $a has gorn missing\n";
 	}
-	print " }, 'DXUser'),\n";
 	$count++;
 }
 print ");\n