Prepare for git repository

[spider.git] / perl / AGWMsg.pm

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index d6828812f2f31dbd2684b3143db3575bbae39647..1888ac6f2dcdf9e5026528c9e8449418cb06fed9 100644 (file)
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -45,12 +45,6 @@ $hpolltime = 300 unless defined $hpolltime;
 %circuit = ();
 $total_in = $total_out = 0;
 
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
 sub init
 {
        return unless $enable;
@@ -104,6 +98,11 @@ sub finish
        }
 }
 
+sub login
+{
+       goto &main::login;        # save some writing, this was the default
+}
+
 sub active
 {
        return $sock;
@@ -327,15 +326,9 @@ sub _decode
                                $conn->{incoming} = 1;
                                $conn->{agwcall} = $call;
                                $circuit{$call} = $conn;
-                               if ($call =~ /^(\w+)-(\d\d?)$/) {
-                                       my $c = $1;
-                                       my $s = $2;
-                                       $s = 15 - $s;
-                                       if ($s <= 8 && $s > 0) {
-                                               $call = "${c}-${s}";
-                                       } else {
-                                               $call = $c;
-                                       }
+                               if (my ($c, $s) = $call =~ /^(\w+)-(\d\d?)$/) {
+                                       $s = 15 - $s if $s > 8;
+                                       $call = $s > 0 ? "${c}-${s}" : $c;
                                }
                                $conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
                        }