projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-3008 prefixes
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index 60d49eafe72e3d7b7f613f068f75cc132f273324..6a06bb3c32baa4278543b32c2764cc8305e264f6 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-412,10
+412,10
@@
sub fields
sub export
{
sub export
{
- my $name = shift;
+ my $name = shift
|| 'user_asc'
;
my $basic_info_only = shift;
my $basic_info_only = shift;
- my $fn =
"$main::local_data/$name";
+ my $fn =
$name ne 'user_asc' ? $name : "$main::local_data/$name"; # force use of local
# save old ones
move "$fn.oooo", "$fn.ooooo" if -e "$fn.oooo";
# save old ones
move "$fn.oooo", "$fn.ooooo" if -e "$fn.oooo";
@@
-466,8
+466,6
@@
BEGIN {
}
}
}
}
-package DXUser;
-
use SysVar;
use DXUser;
use SysVar;
use DXUser;
@@
-476,8
+474,10
@@
if (@ARGV) {
print "user filename now $userfn\n";
}
print "user filename now $userfn\n";
}
-DXUser::del_file();
-DXUser::init();
+package DXUser;
+
+del_file();
+init(1);
%u = ();
my $count = 0;
my $err = 0;
%u = ();
my $count = 0;
my $err = 0;
@@
-533,8
+533,10
@@
print "There are $count user records and $err errors\n";
}
}
$fh->close;
}
}
$fh->close;
- }
- return "$count Users $del Deleted $err Errors ('sh/log Export' for details)";
+ }
+ my $s = qq{Exported users to $fn - $count Users $del Deleted $err Errors ('sh/log Export' for details)};
+ LogDbg('command', $s);
+ return $s;
}
#
}
#