mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
68 lines
1.4 KiB
Perl
68 lines
1.4 KiB
Perl
#
|
|
# Base class for OO version of all protocol stuff
|
|
#
|
|
|
|
package Prot;
|
|
|
|
use strict;
|
|
|
|
|
|
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;
|
|
|
|
use DXUtil;
|
|
use DXDebug;
|
|
use vars qw(%valid);
|
|
|
|
%valid = (
|
|
fromnode => '0,From Node',
|
|
tonode => '0,To Node',
|
|
vianode => '0,Via Node',
|
|
origin => '0,Original Node',
|
|
tocall => '0,To Callsign',
|
|
fromcall => '0,From Callsign',
|
|
hops => '0,No. of hops',
|
|
text => '0,Text',
|
|
datetime => '0,Date/Time,atime',
|
|
freq => '0,Frequency',
|
|
dxcall => '0,DX Callsign',
|
|
sort => '0,Sort',
|
|
hereflag => '0,Here?,yesno',
|
|
talkflag => '0,Talk mode',
|
|
bellflag => '0,Bell?',
|
|
privflag => '0,Private?,yesno',
|
|
rrflag => '0,RR Req.?,yesno',
|
|
sysopflag => '0,Sysop flag',
|
|
dxcount => '0,DX Count',
|
|
wwvcount => '0,WWV Count',
|
|
version => '0,Node Version',
|
|
nodelist => '0,Node List,parray',
|
|
);
|
|
|
|
|
|
sub new
|
|
{
|
|
my $pkg = shift;
|
|
my $sort = shift;
|
|
my $self = bless { sort => $sort }, $pkg;
|
|
return $self;
|
|
}
|
|
|
|
sub AUTOLOAD
|
|
{
|
|
no strict;
|
|
my $name = $AUTOLOAD;
|
|
return if $name =~ /::DESTROY$/;
|
|
$name =~ s/^.*:://o;
|
|
|
|
confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
|
|
*$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};
|
|
goto &$AUTOLOAD;
|
|
}
|
|
|
|
1;
|
|
__END__
|