X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconvert-users-v3-to-v3j.pl;h=7509b2035b0b48a66d806f4c9b110aac04481ada;hb=1a81fd5d534cfad7f4e5aa49b30009fe46218716;hp=06fda0970d6d4729932bbef3dbb287a7804d655f;hpb=3b73a2dde8b378db6b56438699c5a1f233194dbf;p=spider.git diff --git a/perl/convert-users-v3-to-v3j.pl b/perl/convert-users-v3-to-v3j.pl index 06fda097..7509b203 100755 --- a/perl/convert-users-v3-to-v3j.pl +++ b/perl/convert-users-v3-to-v3j.pl @@ -80,7 +80,7 @@ if ($convert) { my %newu; LogDbg('',"Converting the User from V$convert format to $fn.v3j "); - LogDbg('',"This will take a while, maybe as much as 10 secs"); + LogDbg('',"This will take a while, maybe as much as 30 secs on very slow disks and/or machines"); my $idbm = tie (%oldu, 'DB_File', localdata("users.v$convert"), O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn.v$convert ($!) [rebuild it from user_asc?]"; my $odbm = tie (%newu, 'DB_File', $ofn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open user file: $ofn ($!)"; for ($action = R_FIRST; !$idbm->seq($key, $val, $action); $action = R_NEXT) {