fix users delete? messages, local::pcprot()

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 5a4ee228bccca52609684db7c66d42d9d3fffc9b..7f4d996a34a98a60deaf987596fbdffb3d46600f 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -64,7 +64,8 @@ $count = 0;
                  enhanced => '5,Enhanced Client,yesno',
                  errors => '9,Errors',
                  func => '5,Function',
-                 group => '0,Access Group,parray',     # used to create a group of users/nodes for some purpose or other
+                 group => '0,Access Group,parray',     # used to create a group of users/nodes for some purpose or other.
+                 gtk => '5,Using GTK,yesno',
                  handle_xml => '9,Handles XML,yesno',
                  here => '0,Here?,yesno',
                  hostname => '0,Hostname',
@@ -77,9 +78,11 @@ $count = 0;
                  inspotsfilter => '5,Spot Filt-inp',
                  inwcyfilter => '5,WCY Filt-inp',
                  inwwvfilter => '5,WWV Filt-inp',
+                 isbasic => '9,Internal Connection', 
                  isolate => '5,Isolate network,yesno',
                  isslugged => '9,Still Slugged,yesno',
                  itu => '0,ITU Zone',
+                 K => '9,Seen on PC92 K,yesno',
                  lang => '0,Language',
                  lastmsgpoll => '0,Last Msg Poll,atime',
                  lastping => '5,Ping last sent,atime',
@@ -768,6 +771,15 @@ sub error_handler
        $self->disconnect(1);
 }
 
+sub refresh_user
+{
+       my $call = shift;
+       my $user = shift;
+       return unless $call && $user && ref $user;
+       my $self = DXChannel::get($call);
+       $self->{user} = $user;
+       return $user;
+}
 
 sub isregistered
 {