unshift @INC, "$root/local";
}
+package main;
+
use DXVars;
use DXUser;
close CLLOCK;
}
-$DXUser::v3 = 1;
+$DXUser::v4 = 1;
-if (-e "$userfn.v2" || -e "$userfn.v3") {
+if (-e "$userfn.v2" || -e "$userfn.v3" ||-e "$userfn.v4") {
print "Do you wish to destroy your user database (THINK!!!) [y/N]: ";
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
DXUser->init($userfn, 1);
create_it();
}
+DXUser->sync;
DXUser->finish();
exit(0);