X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=9416a7f3a8578769a2a4152895433646cc00cc8b;hb=1a9286080b21d5b65f97cab08d8a493abafad8f1;hp=d4e9981a2e3df54c649d2dbd806139041ef7f316;hpb=b06fd1d447d5411d8d441e807f93efa897b68aaf;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index d4e9981a..9416a7f3 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -263,8 +263,8 @@ sub new_channel $lock = $user->lockout; } elsif ($basecall ne $call) { # if there isn't a SSID on the $call, then try the base - $user = DXUser::get_current($basecall); - $lock = $user->lockout if $user; + my $luser = DXUser::get_current($basecall); + $lock = $luser->lockout if $luser; } # now deal with the lock @@ -545,6 +545,12 @@ sub setup_start $SIG{__DIE__} = $w; } + # setup location of motd & issue + localdata_mv($motd); + $motd = localdata($motd); + localdata_mv("issue"); + + # try to load XML::Simple DXXml::init();