]> dxcluster.net Git - spider.git/blob - perl/create_sysop.pl
4696fc2e505633f723568594e363a60f43a7bf64
[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 # make sure that modules are searched in the order local then perl
13 BEGIN {
14   # root of directory tree for this system
15   $root = "/spider"; 
16   $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
17
18   unshift @INC, "$root/perl";  # this IS the right way round!
19   unshift @INC, "$root/local";
20 }
21
22 use DXVars;
23 use DXUser;
24
25 sub create_it
26 {
27   system("rm -f $userfn*");
28   DXUser->init($userfn);
29   my $self = DXUser->new($mycall);
30   $self->{alias} = $myalias;
31   $self->{name} = $myname;
32   $self->{qth} = $myqth;
33   $self->{qra} = $mylocator;
34   $self->{lat} = $mylatitude;
35   $self->{long} = $mylongtitude;
36   $self->{email} = $myemail;
37   $self->{bbsaddr} = $mybbsaddr;
38   $self->{homenode} = $mycall;
39   $self->{sort} = 'A';           # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
40   $self->{priv} = 9;             # 0 - 9 - with 9 being the highest
41   $self->{lastin} = 0;
42   $self->{dxok} = 1;
43   $self->{annok} = 1;
44
45   # write it away
46   $self->close();
47
48   # now do one for the alias
49   $self = DXUser->new($myalias);
50   $self->{name} = $myname;
51   $self->{qth} = $myqth;
52   $self->{qra} = $mylocator;
53   $self->{lat} = $mylatitude;
54   $self->{long} = $mylongtitude;
55   $self->{email} = $myemail;
56   $self->{bbsaddr} = $mybbsaddr;
57   $self->{homenode} = $mycall;
58   $self->{sort} = 'U';           # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
59   $self->{priv} = 9;             # 0 - 9 - with 9 being the highest
60   $self->{lastin} = 0;
61   $self->{dxok} = 1;
62   $self->{annok} = 1;
63   $self->{lang} = 'en';
64   
65   # write it away
66   $self->close();
67
68   DXUser->finish();
69   print "New user database created as $userfn\n";
70 }
71
72 if (-e "$userfn") {
73   print "This program will destroy your user database!!!!\n\nDo you wish to continue [y/N]: ";
74   $ans = <STDIN>;
75   create_it() if ($ans =~ /^[Yy]/);
76 } else {
77   create_it();
78 }
79 exit(0);
80