6 # send <call> [<call> .. ]
7 # send private <call> [<call> .. ]
8 # send private rr <call> [<call> .. ]
9 # send rr <call> [<call> .. ]
10 # send noprivate <call> [<call> .. ]
11 # send b <call> [<call> .. ]
12 # send copy <call> [<call> .. ]
13 # send copy rr <call> [<call> .. ]
15 # Copyright (c) Dirk Koopman G1TLH
19 my ($self, $line) = @_;
20 return (1, $self->msg('e5')) if $self->remotecmd;
23 my $loc = $self->{loc} = {};
28 $loc->{private} = '1';
33 if ($self->state eq "prompt") {
35 my @f = split /([\s\@\$])/, $line;
36 @f = map {s/\s+//g; length $_ ? $_ : ()} @f;
38 # any thing after send?
39 return (1, $self->msg('e6')) if !@f;
40 return (1, $self->msg('e28')) unless $self->registered || uc $f[0] eq $main::myalias;
45 # first deal with copies
46 if ($f eq 'C' || $f eq 'CC' || $f eq 'COPY') {
48 if (@f && uc $f[0] eq 'RR') {
55 my $oref = DXMsg::get($m);
56 return (0, $self->msg('m4', $m)) unless $oref;
57 return (0, $self->msg('m16')) unless @f;
59 # separate copy to everyone listed
61 my $newcall = uc shift @f;
62 my $msgno = DXMsg::next_transno('Msgno');
63 my $newsubj = "CC: " . $oref->subject;
64 my $nref = DXMsg->alloc($msgno,
74 my $from = $oref->from;
76 my $date = cldate($oref->t);
77 my $time = ztime($oref->t);
78 my $buf = "Original from: $from To: $to Date: $date $time";
80 push @list, $oref->read_msg_body();
83 push @out, $self->msg('m2', $oref->msgno, $newcall);
90 # private / noprivate / rr
91 if ($notincalls && ($f eq 'B' || $f =~ /^NOP/oi)) {
92 $loc->{private} = '0';
93 } elsif ($notincalls && ($f eq 'P' || $f =~ /^PRI/oi)) {
95 } elsif ($notincalls && ($f eq 'RR')) {
97 } elsif ($f eq '<' && @f) { # this is bbs syntax for from call
98 $loc->{from} = uc shift @f;
99 } elsif (($f =~ /^[\@\.\#\$]$/ || $f eq '.#') && @f) { # this is bbs syntax, for send it 'to node'
101 } elsif ($f =~ /^\$/) { # this is bbs syntax for a bid
103 } elsif ($f =~ /^<(\S+)/) { # this is bbs syntax for from call
105 } elsif ($f =~ /^\$\S+/) { # this is bbs syntax for bid
112 # is this callsign a distro?
113 my $fn = "/spider/msg/distro/$f.pl";
115 my $fh = new IO::File $fn;
122 return (1, "Error in Distro $f.pl:", $@) if $@;
130 if (grep $_ eq $f, @DXMsg::badmsg) {
131 push @out, $self->msg('m3', $f);
138 # check we have some callsigns
143 return (1, $self->msg('e6'));
145 $loc->{from} ||= $self->call;
146 unless (is_callsign($loc->{from})) {
148 return (1, $self->msg('e22', $loc->{from}));
151 # find me and set the state and the function on my state variable to
152 # keep calling me for every line until I relinquish control
153 $self->func("DXMsg::do_send_stuff");
154 $self->state('send1');
155 push @out, $self->msg('m1');
157 push @out, $self->msg('m17', $self->state);