2 # Cause node to send PC41 info frames
4 # Copyright (c) 1998 - Iain Philipps G0RDI
6 # Mods by Dirk Koopman G1TLH 12Dec98
9 my ($self, $line) = @_;
10 my @f = split /\s+/, uc $line;
13 if ($self->priv < 1) {
17 return (1, $self->msg('e5'));
20 return (1, $self->msg('e6'));
25 my $ref = DXUser->get_current($call);
27 my $name = $ref->name;
30 my $long = $ref->long;
31 my $node = $ref->homenode;
33 my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
35 my $l = DXProt::pc41($DXProt::me, $call, 1, $name);
37 DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
40 my $l = DXProt::pc41($call, 2, $qth);
42 DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
45 my $l = DXProt::pc41($call, 3, $latlong);
47 DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
50 my $l = DXProt::pc41($call, 4, $node);
52 DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
55 my $l = DXProt::pc41($call, 5, $qra);
57 DXProt::broadcast_all_ak1a($l, $DXProt::me) ;