hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix free talking in command mode

Browse Source
This commit is contained in:
minima 2007-06-11 15:22:50 +00:00
parent 011ea517c2
commit c1a9cb4e04
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cmd/talk.pl
View File

@ -36,8 +36,10 @@ my $dxchan = $clref->dxchan if $clref;
#return (1, $self->msg('e7', $call)) unless $dxchan;
return (1, $self->msg('e28')) unless $self->registered || $to eq $main::myalias;
$DB::single = 1;
# default the 'via'
$via ||= '*';
#$via ||= '*';
# if there is a line send it, otherwise add this call to the talk list
# and set talk mode for command mode
@ -51,7 +53,7 @@ if ($line) {
}
} else {
my $s = $to;
$s .= ">$via" if $via;
$s .= ">$via" if $via && $via ne '*';
my $ref = $self->talklist;
if ($ref) {
unless (grep { $_ eq $s } @$ref) {

4
perl/DXCommandmode.pm
View File

@ -384,11 +384,11 @@ sub send_talks
my ($to, $via) = $ent =~ /(\S+)>(\S+)/;
$to = $ent unless $to;
my $call = $via ? $via : $to;
my $call = $via && $via ne '*' ? $via : $to;
my $clref = Route::get($call);
my $dxchan = $clref->dxchan if $clref;
if ($dxchan) {
$dxchan->talk($self->{call}, $to, $via, $line);
$dxchan->talk($self->{call}, $to, undef, $line);
} else {
$self->send($self->msg('disc2', $via ? $via : $to));
my @l = grep { $_ ne $ent } @{$self->{talklist}};

6
perl/Spot.pm
View File

@ -22,10 +22,8 @@ use QSL;
use strict;
use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
$main::build += $VERSION;
$main::branch += $BRANCH;
($VERSION, $BRANCH) = dxver(q$Revision$);
use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef $totalspots $hfspots $vhfspots $maxcalllth);