wantann_talk => '0,Talklike Anns,yesno',
lastoper => '9,Last for/oper,cldatetime',
nothere => '0,Not Here Text',
+ registered => '9,Registered?,yesno',
);
no strict;
sub wantlogininfo
{
- return _want('logininfo', @_);
+ my $self = shift;
+ my $val = shift;
+ $self->{wantlogininfo} = $val if defined $val;
+ return $self->{wantlogininfo};
}
sub is_node