projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix export_users cmd
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index 6a06bb3c32baa4278543b32c2764cc8305e264f6..26eb3d424000528561df17944f0c13b04e9acaf1 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-177,9
+177,9
@@
sub init
sub del_file
{
sub del_file
{
- my $fn = localdata("users");
-
$fn .= $v3 ? ".v3" : ".v2
";
- unlink
$fn
;
+ # with extreme prejudice
+
unlink "$main::data/users.v3
";
+ unlink
"$main::local_data/users.v3"
;
}
#
}
#
@@
-488,12
+488,13
@@
while (<DATA>) {
if ($ref) {
$ref->put();
$count++;
if ($ref) {
$ref->put();
$count++;
+ DXUser::sync() unless $count % 10000;
} else {
print "# Error: $f[0]\t$f[1]\n";
$err++
}
}
} else {
print "# Error: $f[0]\t$f[1]\n";
$err++
}
}
-DXUser::sync
; DXUser::finish
;
+DXUser::sync
(); DXUser::finish()
;
print "There are $count user records and $err errors\n";
};
print $fh "__DATA__\n";
print "There are $count user records and $err errors\n";
};
print $fh "__DATA__\n";