X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXUser.pm;h=0af77f04df235d0da9e136dc5e7df3eb4f8856fa;hp=55245a59a2a7cd2b5651dd8dd08e464c73bfe368;hb=ab568d677a2d2243eabee315b3e609c4ea4f73a0;hpb=b473fa8950fc9a6b747be44434569dec254b0897

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 55245a59..0af77f04 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -39,7 +39,8 @@ $filename = undef;
   sort => '0,Type of User',                # A - ak1a, U - User, S - spider cluster, B - BBS
   xpert => '0,Expert Status,yesno',
   bbs => '0,Home BBS',
-  node => '0,Home Node',
+  node => '0,Last Node',
+  homenode => '0,Home Node',
   lockout => '9,Locked out?,yesno',        # won't let them in at all
   dxok => '9,DX Spots?,yesno',            # accept his dx spots?
   annok => '9,Announces?,yesno',            # accept his announces?
@@ -97,7 +98,7 @@ sub new
 {
   my $pkg = shift;
   my $call = uc shift;
-  $call =~ s/-\d+//o;
+#  $call =~ s/-\d+$//o;
   
   confess "can't create existing call $call in User\n!" if $u{$call};
 
@@ -120,7 +121,7 @@ sub get
 {
   my $pkg = shift;
   my $call = uc shift;
-  $call =~ s/-\d+$//o;       # strip ssid
+#  $call =~ s/-\d+$//o;       # strip ssid
   return $u{$call};
 }
 
@@ -145,7 +146,7 @@ sub get_current
 {
   my $pkg = shift;
   my $call = uc shift;
-  $call =~ s/-\d+$//o;       # strip ssid
+#  $call =~ s/-\d+$//o;       # strip ssid
   
   my $dxchan = DXChannel->get($call);
   return $dxchan->user if $dxchan;