From: minima Date: Wed, 2 Jan 2002 13:26:28 +0000 (+0000) Subject: make sure that callsigns and locators are all upper case X-Git-Tag: R_1_50~120 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=75b16c6079349ca89bd37a8ee28f368c421f06ea;p=spider.git make sure that callsigns and locators are all upper case --- diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl index 246de92d..fbfc7764 100755 --- a/perl/create_sysop.pl +++ b/perl/create_sysop.pl @@ -28,19 +28,19 @@ sub delete_it sub create_it { - my $ref = DXUser->get($mycall); + my $ref = DXUser->get(uc $mycall); $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->{qra} = $mylocator; + $self->{qra} = uc $mylocator; $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; @@ -51,18 +51,18 @@ sub create_it $self->close(); # now do one for the alias - $ref = DXUser->get($myalias); + $ref = DXUser->get(uc $myalias); $ref->del() if $ref; - $self = DXUser->new($myalias); + $self = DXUser->new(uc $myalias); $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->{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; diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl index 4cba9abf..af128c94 100755 --- a/perl/update_sysop.pl +++ b/perl/update_sysop.pl @@ -29,21 +29,21 @@ sub create_it { my $ref; - while ($ref = DXUser->get($mycall)) { + while ($ref = DXUser->get(uc $mycall)) { 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->{qra} = $mylocator; + $self->{qra} = uc $mylocator; $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; @@ -60,15 +60,15 @@ sub create_it $ref->del(); } - $self = DXUser->new($myalias); + $self = DXUser->new(uc $myalias); $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->{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;