]> scm.dxcluster.org Git - spider.git/blob - perl/create_sysop.pl
added announce
[spider.git] / perl / create_sysop.pl
1 #!/usr/bin/perl
2 #
3 # create a NEW user database and the sysop record
4 #
5 # WARNING - running this will destroy any existing user database
6 #
7 # Copyright (c) 1998 Dirk Koopman G1TLH
8 #
9 # $Id$
10
11
12 use DXVars;
13 use DXUser;
14
15 sub create_it
16 {
17   system("rm -f $userfn*");
18   DXUser->init($userfn);
19   my $self = DXUser->new($mycall);
20   $self->{alias} = $myalias;
21   $self->{name} = $myname;
22   $self->{qth} = $myqth;
23   $self->{qra} = $mylocator;
24   $self->{lat} = $mylatitude;
25   $self->{long} = $mylongtitude;
26   $self->{email} = $myemail;
27   $self->{bbsaddr} = $mybbsaddr;
28   $self->{sort} = 'U';           # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
29   $self->{priv} = 9;             # 0 - 9 - with 9 being the highest
30   $self->{lastin} = 0;
31   $self->{dxok} = 1;
32   $self->{annok} = 1;
33
34   # write it away
35   $self->close();
36
37   # now do one for the alias
38   $self = DXUser->new($myalias);
39   $self->{name} = $myname;
40   $self->{qth} = $myqth;
41   $self->{qra} = $mylocator;
42   $self->{lat} = $mylatitude;
43   $self->{long} = $mylongtitude;
44   $self->{email} = $myemail;
45   $self->{bbsaddr} = $mybbsaddr;
46   $self->{sort} = 'U';           # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
47   $self->{priv} = 9;             # 0 - 9 - with 9 being the highest
48   $self->{lastin} = 0;
49   $self->{dxok} = 1;
50   $self->{annok} = 1;
51
52   # write it away
53   $self->close();
54
55   DXUser->finish();
56   print "New user database created as $userfn\n";
57 }
58
59 if (-e "$userfn") {
60   print "This program will destroy your user database!!!!\n\nDo you wish to continue [y/N]: ";
61   $ans = <STDIN>;
62   create_it() if ($ans =~ /^[Yy]/);
63 } else {
64   create_it();
65 }
66 exit(0);
67