2 # Base class for OO version of all protocol stuff
15 fromnode => '0,From Node',
16 tonode => '0,To Node',
17 vianode => '0,Via Node',
18 origin => '0,Original Node',
19 tocall => '0,To Callsign',
20 fromcall => '0,From Callsign',
21 hops => '0,No. of hops',
23 datetime => '0,Date/Time,atime',
24 freq => '0,Frequency',
25 dxcall => '0,DX Callsign',
27 hereflag => '0,Here?,yesno',
28 talkflag => '0,Talk mode',
29 bellflag => '0,Bell?',
30 privflag => '0,Private?,yesno',
31 rrflag => '0,RR Req.?,yesno',
32 sysopflag => '0,Sysop flag',
33 dxcount => '0,DX Count',
34 wwvcount => '0,WWV Count',
35 version => '0,Node Version',
36 nodelist => '0,Node List,parray',
44 my $self = bless { sort => $sort }, $pkg;
52 return if $name =~ /::DESTROY$/;
55 confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
56 *$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};