Change DXUser->get* to DXUser::get*

[spider.git] / perl / update_sysop.pl

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index e4bf45aebce90bc5c1faf1c3707387c9adecc6fd..2fccbb5aee90c8aa2f46fa5c5412b933150b187d 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -29,7 +29,7 @@ sub create_it
 {
        my $ref;
        
-       while ($ref = DXUser->get(uc $mycall)) {
+       while ($ref = DXUser::get(uc $mycall)) {
                print "old call $mycall deleted\n";
                $ref->del();
        }
@@ -55,7 +55,7 @@ sub create_it
        print "new call $mycall added\n";
 
        # now do one for the alias
-       while ($ref = DXUser->get($myalias)) {
+       while ($ref = DXUser::get($myalias)) {
                print "old call $myalias deleted\n";
                $ref->del();
        }
@@ -75,6 +75,7 @@ sub create_it
        $self->{dxok} = 1;
        $self->{annok} = 1;
        $self->{lang} = 'en';
+       $self->{group} = [qw(local #9000)];
   
        # write it away
        $self->close();