X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_sysop.pl;h=3b1196fee93b9205c3babed34d0ddeb2a9967187;hb=1cf4bd14be226274d5deb05da8480ab91a5dac52;hp=43d59785899e31ee1754a5584f43f1544b555fc8;hpb=f46017e7bef9ee062cd5a8648d214eabe585da25;p=spider.git diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl index 43d59785..3b1196fe 100755 --- a/perl/create_sysop.pl +++ b/perl/create_sysop.pl @@ -25,9 +25,11 @@ sub create_it $self->{long} = $mylongtitude; $self->{email} = $myemail; $self->{bbsaddr} = $mybbsaddr; - $self->{sort} = 'C'; # C - Console user, S - Spider cluster, A - AK1A, U - User, B - BBS + $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->{dxok} = 1; + $self->{annok} = 1; # write it away $self->close(); @@ -44,6 +46,8 @@ sub create_it $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->{dxok} = 1; + $self->{annok} = 1; # write it away $self->close();