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