wantpc90 => '1,Req PC90,yesno',
wantnp => '1,Req New Protocol,yesno',
wantpc16 => '9,Want Users from node,yesno',
- wantsendpc16 => '9,Send PC16,yesno',
- wantroutepc19 => '9,Route PC19,yesno',
+ wantsendpc16 => '9,Send users to node,yesno',
lastoper => '9,Last for/oper,cldatetime',
nothere => '0,Not Here Text',
registered => '9,Registered?,yesno',
#no strict;
sub AUTOLOAD
{
+ my $self = shift;
no strict;
my $name = $AUTOLOAD;
# this clever line of code creates a subroutine which takes over from autoload
# from OO Perl - Conway
*$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};
- goto &$AUTOLOAD;
+ &$AUTOLOAD($self, @_);
+# *{$AUTOLOAD} = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}} ;
+# if (@_) {
+# $self->{$name} = shift;
+# }
+# return $self->{$name};
}
#use strict;
# try to detect a lockfile (this isn't atomic but
# should do for now
- $lockfn = "$root/perl/cluster.lck"; # lock file name
+ $lockfn = "$root/local/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
return _want('sendpc16', @_);
}
-sub wantroutepc16
-{
- return _want('routepc16', @_);
-}
-
sub wantlogininfo
{
my $self = shift;