X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fexport_user.pl;fp=perl%2Fexport_user.pl;h=0000000000000000000000000000000000000000;hb=6c38bca91e6b75002e15cce29c45a894f675e22e;hp=3157d21aede0e738b09a9fd67163e0f0981e1583;hpb=08c1d4cfc96357b3706f50d683c53abfe802d16b;p=spider.git

diff --git a/perl/export_user.pl b/perl/export_user.pl
deleted file mode 100755
index 3157d21a..00000000
--- a/perl/export_user.pl
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-#
-# Export the user file in a form that can be directly imported
-# back with a do statement
-#
-
-require 5.004;
-
-# search local then perl directories
-BEGIN {
-	# root of directory tree for this system
-	$root = "/spider"; 
-	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-	
-	unshift @INC, "$root/perl";	# this IS the right way round!
-	unshift @INC, "$root/local";
-}
-
-use DXVars;
-use DXUser;
-
-$userfn = $ARGV[0] if @ARGV;
-
-DXUser->init($userfn);
-
-@all = DXUser::get_all_calls();
-$t = scalar localtime;
-print "#!/usr/bin/perl
-#
-# The exported userfile for a DXSpider System
-# 
-# Input file: $userfn
-#       Time: $t
-#
-
-package DXUser;
-
-%u = (
-";
-
-for $a (@all) {
-	my $ref = DXUser->get($a);
-	if (ref $ref) {
-		my $s = $ref->encode();
-	
-		print "'$a' => q{ $s },\n";
-	} else {
-		print "# $a has gorn missing\n";
-	}
-	$count++;
-}
-print ");\n
-#
-# there were $count records
-#\n";
-