sub delete_it
{
- system("rm -f $userfn*");
+ DXUser->del_file($userfn);
}
sub create_it
$self->{qth} = $myqth;
$self->{qra} = $mylocator;
$self->{lat} = $mylatitude;
- $self->{long} = $mylongtitude;
+ $self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{homenode} = $mycall;
$self->{qth} = $myqth;
$self->{qra} = $mylocator;
$self->{lat} = $mylatitude;
- $self->{long} = $mylongtitude;
+ $self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{homenode} = $mycall;
}
-DXUser->init($userfn);
if (-e "$userfn") {
print "Do you wish to destroy your user database (THINK!!!) [y/N]: ";
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
delete_it();
+ DXUser->init($userfn, 1);
create_it();
} else {
print "Do you wish to reset your cluster and sysop information? [y/N]: ";
$ans = <STDIN>;
- create_it() if $ans =~ /^[Yy]/;
+ if ($ans =~ /^[Yy]/) {
+ DXUser->init($userfn, 1);
+ create_it();
+ }
}
} else {
+ DXUser->init($userfn, 1);
create_it();
}
DXUser->finish();