projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8e862ce
)
make sure that callsigns and locators are all upper case
author
minima
<minima>
Wed, 2 Jan 2002 13:26:28 +0000
(13:26 +0000)
committer
minima
<minima>
Wed, 2 Jan 2002 13:26:28 +0000
(13:26 +0000)
perl/create_sysop.pl
patch
|
blob
|
history
perl/update_sysop.pl
patch
|
blob
|
history
diff --git
a/perl/create_sysop.pl
b/perl/create_sysop.pl
index 246de92d1a39fd9ee4df8d999ff9cc7a247feb07..fbfc776481c3b65a92e1f656706a12253fc68831 100755
(executable)
--- a/
perl/create_sysop.pl
+++ b/
perl/create_sysop.pl
@@
-28,19
+28,19
@@
sub delete_it
sub create_it
{
sub create_it
{
- my $ref = DXUser->get($mycall);
+ my $ref = DXUser->get(
uc
$mycall);
$ref->del() if $ref;
$ref->del() if $ref;
- my $self = DXUser->new($mycall);
- $self->{alias} = $myalias;
+ my $self = DXUser->new(
uc
$mycall);
+ $self->{alias} =
uc
$myalias;
$self->{name} = $myname;
$self->{qth} = $myqth;
$self->{name} = $myname;
$self->{qth} = $myqth;
- $self->{qra} = $mylocator;
+ $self->{qra} =
uc
$mylocator;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
- $self->{homenode} = $mycall;
+ $self->{homenode} =
uc
$mycall;
$self->{sort} = 'S'; # 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->{sort} = 'S'; # 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;
@@
-51,18
+51,18
@@
sub create_it
$self->close();
# now do one for the alias
$self->close();
# now do one for the alias
- $ref = DXUser->get($myalias);
+ $ref = DXUser->get(
uc
$myalias);
$ref->del() if $ref;
$ref->del() if $ref;
- $self = DXUser->new($myalias);
+ $self = DXUser->new(
uc
$myalias);
$self->{name} = $myname;
$self->{qth} = $myqth;
$self->{name} = $myname;
$self->{qth} = $myqth;
- $self->{qra} = $mylocator;
+ $self->{qra} =
uc
$mylocator;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
- $self->{homenode} = $mycall;
+ $self->{homenode} =
uc
$mycall;
$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->{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;
diff --git
a/perl/update_sysop.pl
b/perl/update_sysop.pl
index 4cba9abf4c5d04c343cd24720805694ecbf73fac..af128c946238ae5c8a30f134cb1466e3762911d3 100755
(executable)
--- a/
perl/update_sysop.pl
+++ b/
perl/update_sysop.pl
@@
-29,21
+29,21
@@
sub create_it
{
my $ref;
{
my $ref;
- while ($ref = DXUser->get($mycall)) {
+ while ($ref = DXUser->get(
uc
$mycall)) {
print "old call $mycall deleted\n";
$ref->del();
}
print "old call $mycall deleted\n";
$ref->del();
}
- my $self = DXUser->new($mycall);
- $self->{alias} = $myalias;
+ my $self = DXUser->new(
uc
$mycall);
+ $self->{alias} =
uc
$myalias;
$self->{name} = $myname;
$self->{qth} = $myqth;
$self->{name} = $myname;
$self->{qth} = $myqth;
- $self->{qra} = $mylocator;
+ $self->{qra} =
uc
$mylocator;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
- $self->{homenode} = $mycall;
+ $self->{homenode} =
uc
$mycall;
$self->{sort} = 'S'; # 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->{sort} = 'S'; # 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;
@@
-60,15
+60,15
@@
sub create_it
$ref->del();
}
$ref->del();
}
- $self = DXUser->new($myalias);
+ $self = DXUser->new(
uc
$myalias);
$self->{name} = $myname;
$self->{qth} = $myqth;
$self->{name} = $myname;
$self->{qth} = $myqth;
- $self->{qra} = $mylocator;
+ $self->{qra} =
uc
$mylocator;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
$self->{lat} = $mylatitude;
$self->{long} = $mylongitude;
$self->{email} = $myemail;
$self->{bbsaddr} = $mybbsaddr;
- $self->{homenode} = $mycall;
+ $self->{homenode} =
uc
$mycall;
$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->{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;