mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 00:07:10 +00:00
68 lines
1.6 KiB
Perl
Executable File
68 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# create a NEW user database and the sysop record
|
|
#
|
|
# WARNING - running this will destroy any existing user database
|
|
#
|
|
# Copyright (c) 1998 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
use DXVars;
|
|
use DXUser;
|
|
|
|
sub create_it
|
|
{
|
|
system("rm -f $userfn*");
|
|
DXUser->init($userfn);
|
|
my $self = DXUser->new($mycall);
|
|
$self->{alias} = $myalias;
|
|
$self->{name} = $myname;
|
|
$self->{qth} = $myqth;
|
|
$self->{qra} = $mylocator;
|
|
$self->{lat} = $mylatitude;
|
|
$self->{long} = $mylongtitude;
|
|
$self->{email} = $myemail;
|
|
$self->{bbsaddr} = $mybbsaddr;
|
|
$self->{sort} = 'U'; # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
|
|
$self->{priv} = 9; # 0 - 9 - with 9 being the highest
|
|
$self->{lastin} = 0;
|
|
$self->{dxok} = 1;
|
|
$self->{annok} = 1;
|
|
|
|
# write it away
|
|
$self->close();
|
|
|
|
# now do one for the alias
|
|
$self = DXUser->new($myalias);
|
|
$self->{name} = $myname;
|
|
$self->{qth} = $myqth;
|
|
$self->{qra} = $mylocator;
|
|
$self->{lat} = $mylatitude;
|
|
$self->{long} = $mylongtitude;
|
|
$self->{email} = $myemail;
|
|
$self->{bbsaddr} = $mybbsaddr;
|
|
$self->{sort} = 'U'; # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
|
|
$self->{priv} = 9; # 0 - 9 - with 9 being the highest
|
|
$self->{lastin} = 0;
|
|
$self->{dxok} = 1;
|
|
$self->{annok} = 1;
|
|
|
|
# write it away
|
|
$self->close();
|
|
|
|
DXUser->finish();
|
|
print "New user database created as $userfn\n";
|
|
}
|
|
|
|
if (-e "$userfn") {
|
|
print "This program will destroy your user database!!!!\n\nDo you wish to continue [y/N]: ";
|
|
$ans = <STDIN>;
|
|
create_it() if ($ans =~ /^[Yy]/);
|
|
} else {
|
|
create_it();
|
|
}
|
|
exit(0);
|
|
|