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
  32   # write it away
  33   $self->close();
  34
  35   # now do one for the alias
  36   $self = DXUser->new($myalias);
  37   $self->{name} = $myname;
  38   $self->{qth} = $myqth;
  39   $self->{qra} = $mylocator;
  40   $self->{lat} = $mylatitude;
  41   $self->{long} = $mylongtitude;
  42   $self->{email} = $myemail;
  43   $self->{bbsaddr} = $mybbsaddr;
  44   $self->{sort} = 'U';           # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS
  45   $self->{priv} = 9;             # 0 - 9 - with 9 being the highest
  46   $self->{lastin} = 0;
  47
  48   # write it away
  49   $self->close();
  50
  51   DXUser->finish();
  52   print "New user database created as $userfn\n";
  53 }
  54
  55 if (-e "$userfn") {
  56   print "This program will destroy your user database!!!!\n\nDo you wish to continue [y/N]: ";
  57   $ans = <STDIN>;
  58   create_it() if ($ans =~ /^[Yy]/);
  59 } else {
  60   create_it();
  61 }
  62 exit(0);
  63