use DXBearing;
use CmdAlias;
use FileHandle;
+use Filter;
use Carp;
use strict;
$self->{consort} = $line; # save the connection type
# set some necessary flags on the user if they are connecting
- $self->{beep} = $self->{wwv} = $self->{talk} = $self->{ann} = $self->{here} = $self->{dx} = 1;
+ $self->{beep} = $self->{wwv} = $self->{wx} = $self->{talk} = $self->{ann} = $self->{here} = $self->{dx} = 1;
# $self->prompt() if $self->{state} =~ /^prompt/o;
# add yourself to the database
$self->send($self->msg('qthe1')) if !$user->qth;
$self->send($self->msg('qll')) if !$user->qra || (!$user->lat && !$user->long);
$self->send($self->msg('hnodee1')) if !$user->qth;
+ $self->send($self->msg('msgnew')) if DXMsg::for_me($call);
+ # get the filters
+ $self->{spotfilter} = Filter::read_in('spots', $call);
$self->send($self->msg('pr', $call));
}
$self->state('prompt');
}
} else {
- @ans = run_cmd($self, $cmdline) if length $cmdline;
+ @ans = run_cmd($self, $cmdline); # if length $cmdline;
if ($self->{pagelth} && @ans > $self->{pagelth}) {
my $i;
return (1, "Syserr: Eval err $errstr on stored func $self->{func}");
}
} else {
+
+ return () if length $cmdline == 0;
# strip out //
$cmdline =~ s|//|/|og;
return undef;
}
- if(defined $Cache{$package}->{mtime} && $Cache{$package}->{mtime } <= $mtime) {
+ if(defined $Cache{$package}{mtime} && $Cache{$package}{mtime } <= $mtime) {
#we have compiled this subroutine already,
#it has not been updated on disk, nothing left to do
#print STDERR "already compiled $package->handler\n";
;
} else {
+ delete_package($package) if defined $Cache{$package}{mtime};
+
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
delete_package($package);
} else {
#cache it unless we're cleaning out each time
- $Cache{$package}->{'mtime'} = $mtime;
+ $Cache{$package}{'mtime'} = $mtime;
}
}