]> scm.dxcluster.org Git - spider.git/blob - perl/PC.pm
add delete/user command
[spider.git] / perl / PC.pm
1 #
2 # OO version of all the PC protocol stuff
3 #
4 # Here is done all reception, validation and generation of PC
5 # protocol frames
6 #
7 # This uses the Prot class as a basis for all 
8 # protocol entities
9 #
10
11
12 use vars qw($VERSION $BRANCH);
13 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
14 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
15 $main::build += $VERSION;
16 $main::branch += $BRANCH;
17
18 package PC10;
19
20 @ISA = qw(Prot);
21 use DXUtil;
22
23 use strict;
24
25 sub new
26 {
27         my $pkg = shift;
28         my $self = SUPER->new($pkg);
29         $self->{from} = shift;
30         $self->{to} = shift;     # is TO if {to} is blank
31         $self->{text} = shift;
32     $self->{flag} = shift;
33     my $auxto = shift;
34     $self->{origin} = shift;
35
36         # sort out the to/via dillema and do some validation
37         if (is_callsign($auxto)) {
38                 $self->{via} = $self->{to};
39                 $self->{to} = $auxto;
40                 return undef unless is_callsign($self->{via});
41         }
42         return undef unless is_callsign($self->{from}) && is_callsign($self->{to}) && is_callsign($self->{origin}) && is_pctext($self->{text}) && is_pcflag($self->{flag});
43         return $self;
44 }
45
46 sub out {
47         my $self = shift;
48         my $addra = $self->{via} || $self->{to};
49     my $addrb = exists $self->{via} ? $self->{to} : ' ';
50         return "PC10^$self->{from}^$addra^$self->{text}^$self->{flag}^$addrb^$self->{origin}^~";
51 }
52
53 1;
54 __END__