X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_sysop.pl;h=b363b732634e8c0209a33e90d8b21f4395c99dac;hb=60d6599887f29ec966d075f413c2c73b9e913212;hp=11673e3146f55694f654bd1b7771811e779d1fcf;hpb=83e360f5c54444dc63a14de5124ad0a78624bf5a;p=spider.git diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl index 11673e31..b363b732 100755 --- a/perl/create_sysop.pl +++ b/perl/create_sysop.pl @@ -84,7 +84,9 @@ if (-e $lockfn) { close CLLOCK; } -if (-e "$userfn") { +$DXUser::v3 = 1; + +if (-e "$userfn.v2" || -e "$userfn.v3") { print "Do you wish to destroy your user database (THINK!!!) [y/N]: "; $ans = ; if ($ans =~ /^[Yy]/) {