2 # Base class for OO version of all protocol stuff
10 use vars qw($VERSION $BRANCH);
11 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
12 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
13 $main::build += $VERSION;
14 $main::branch += $BRANCH;
21 fromnode => '0,From Node',
22 tonode => '0,To Node',
23 vianode => '0,Via Node',
24 origin => '0,Original Node',
25 tocall => '0,To Callsign',
26 fromcall => '0,From Callsign',
27 hops => '0,No. of hops',
29 datetime => '0,Date/Time,atime',
30 freq => '0,Frequency',
31 dxcall => '0,DX Callsign',
33 hereflag => '0,Here?,yesno',
34 talkflag => '0,Talk mode',
35 bellflag => '0,Bell?',
36 privflag => '0,Private?,yesno',
37 rrflag => '0,RR Req.?,yesno',
38 sysopflag => '0,Sysop flag',
39 dxcount => '0,DX Count',
40 wwvcount => '0,WWV Count',
41 version => '0,Node Version',
42 nodelist => '0,Node List,parray',
50 my $self = bless { sort => $sort }, $pkg;
58 return if $name =~ /::DESTROY$/;
61 confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
62 *$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};