]> dxcluster.org Git - spider.git/commitdiff
1. Added an efficiency thing for AUTOLOADed accessors from OO Perl by Conway.
authorminima <minima>
Sat, 19 Aug 2000 20:56:32 +0000 (20:56 +0000)
committerminima <minima>
Sat, 19 Aug 2000 20:56:32 +0000 (20:56 +0000)
2. Fiddled with the rtty and digital bandplan frequencies.

Changes
data/bands.pl
perl/Bands.pm
perl/DXChannel.pm
perl/DXCluster.pm
perl/DXDb.pm
perl/DXMsg.pm
perl/DXUser.pm
perl/Prefix.pm
perl/cluster.pl

diff --git a/Changes b/Changes
index 44880fa912dec17388877450370619da3feede84..6b16e1941a86e0809698dc5c893f0142a2e101b5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+19Aug00=======================================================================
+1. Added an efficiency thing for AUTOLOADed accessors from OO Perl by Conway.
+2. Fiddled with the rtty and digital bandplan frequencies.
 18Aug00=======================================================================
 1. added a couple of changes for perl 5.6.0
 2. removed del_dup from DXUser for earlier versions of DB '1.85' (ie real ones
@@ -12,7 +15,7 @@ not 2.x versions in 1.85 compatibility mode).
 1. removed extra /60 in AnnTalk to make deduping of announces work a bit
 better for longer...
 05Aug00=======================================================================
-1. Fixed hax character problem put in somewhen in the C Client
+1. Fixed hex character problem put in somewhen in the C Client
 03Aug00=======================================================================
 1. caught some more signals (are any of these causing the random stopping
 of the code?
index bb361258652d7728e01378d91e340ea8b1ef7c17..abc62e58888111e15e36569add535fd4dcce26f3 100644 (file)
 
   '80m' => bless( { band => [ 3500, 4000 ], 
                     cw => [ 3500, 3600 ], 
-                    data => [ 3590, 3600 ], 
+                    data => [ 3580, 3619 ], 
+                    rtty => [ 3580, 3619 ], 
                     sstv => [ 3730, 3740 ], 
                     ssb => [ 3601, 4000 ]  
                   }, 'Bands'),
 
   '40m' => bless( { band => [ 7000, 7400 ], 
-                    cw => [ 7000, 7050 ], 
-                    cw => [ 7000, 7050 ], 
+                    cw => [ 7000, 7034 ], 
+                   data => [ 7035, 7044], 
+                   rtty => [ 7035, 7044], 
                     ssb => [ 7051, 7400 ] 
                   }, 'Bands'),
 
   '30m' => bless( { band => [ 10100, 10150 ], 
                     cw => [ 10000, 10140 ], 
-                    data => [ 10141, 10150 ] 
+                    data => [ 10141, 10149 ] ,
+                    rtty => [ 10141, 10149 ] 
                   }, 'Bands'),
 
   '20m' => bless( { band => [ 14000, 14350 ], 
                     beacon => [ 14099, 14100 ],
                     sstv => [ 14225, 14235 ],
                     data => [ 14070, 14098, 14101, 14111 ],
+                    rtty => [ 14070, 14098, 14101, 14111 ],
                   }, 'Bands'),
 
   '17m' => bless( { band => [ 18068, 18168 ], 
                     cw => [ 18068, 18100 ], 
                     ssb => [ 18111, 18168 ], 
                     data => [ 18101, 18108], 
+                    rtty => [ 18101, 18108], 
                     beacon => [ 18109, 18110] 
                   }, 'Bands'),
 
   '15m' => bless( { band => [ 21000, 21450 ], 
                     cw => [ 21000, 21150 ], 
-                    data => [ 21100, 21120 ], 
+                    data => [ 21080, 21119 ], 
+                    rtty => [ 21080, 21119 ], 
                     ssb => [ 21151, 21450] 
                   }, 'Bands'),
 
   '12m' => bless( { band => [ 24890, 24990 ], 
                     cw => [ 24890, 24990 ], 
-                    ssb => [ 24920, 24930], 
-                    rtty => [ 24930, 24990], 
+                    ssb => [ 24931, 24990], 
+                    rtty => [ 24920, 24929], 
+                    data => [ 24920, 24929], 
                   }, 'Bands'),
 
 
   '10m' => bless( { band => [ 28000, 29700 ], 
                     cw => [ 28000, 28198 ], 
-                    data => [ 28120, 28150, 29200, 29300 ], 
+                    data => [ 28050, 28149, 29200, 29299 ], 
+                    rtty => [ 28050, 28149 ], 
                     space => [ 29200, 29300 ],
                     ssb => [ 28201, 29299, 29550, 29700] 
                   }, 'Bands'),
index 16a992ed603c77c9da3218a07f49661badeec13a..d40d4c823d1dfe032579a39b7009dbb4dc86b2f8 100644 (file)
@@ -139,6 +139,9 @@ sub AUTOLOAD
        return if $name =~ /::DESTROY$/;
        $name =~ s/.*:://o;
   
+       # 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}} ;
        @_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
index b7d32c44ad4f22e6a98693f7e531d373b61835fb..7a27a8f2bc3bd3a90eda6efaaf388e9c6bc312fc 100644 (file)
@@ -466,8 +466,13 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
   
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
-       @_ ? $self->{$name} = shift : $self->{$name} ;
+
+       # 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}} ;
+    @_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
+
 1;
 __END__;
index 5d35e4a3051adc784a2c2e40fabc81c332f277f2..2160846547e9e542b5c80413c3bc8c1201e46ccf 100644 (file)
@@ -153,6 +153,9 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
   
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+       # 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}} ;
        @_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
index a7f31acca8ec1f4e07b59c187b910e252b77e812..0f30e5b05b423d31d698c0700b4c21353525e39f 100644 (file)
@@ -347,6 +347,9 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
   
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+       # 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}} ;
        @_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
index 85c9e68eaf6498c169b48014147fd41ca27a9bb8..5c990177330ddc26c55fd20ccd7a0fcf242e49b1 100644 (file)
@@ -1235,6 +1235,9 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
        
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+       # 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}} ;
        @_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
index 0785d16b2c1b1a6c1945ef41cc67a074b0a5dbbb..fa9e109f56cbe5a1cb3ca8cf7b66307290f1a535 100644 (file)
@@ -77,6 +77,9 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
   
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+       # 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}} ;
        if (@_) {
                $self->{$name} = shift;
        }
index 41a95db8086ec106eec66a102ecda92324727497..263f5f82d138f42594a2cad27c98f8f6eef89a24 100644 (file)
@@ -200,6 +200,9 @@ sub AUTOLOAD
        $name =~ s/.*:://o;
   
        confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+       # 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}} ;
        if (@_) {
                $self->{$name} = shift;
        }
index 6f82b0d0bdebdeecaba15df94448e7a57d7bda59..1ecbc094a704487fd96c3998a560eb493d02f976 100755 (executable)
@@ -340,7 +340,7 @@ $SIG{KILL} = 'DEFAULT';     # as if it matters....
 # catch the rest with a hopeful message
 for (keys %SIG) {
        if (!$SIG{$_}) {
-               dbg('chan', "Catching SIG $_");
+#              dbg('chan', "Catching SIG $_");
                $SIG{$_} = sub { my $sig = shift;       DXDebug::confess("Caught signal $sig");  }; 
        }
 }