use DXLogPrint;
use DXBearing;
use CmdAlias;
-use FileHandle;
+use IO::File;
+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
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
- DXProt::broadcast_ak1a(@pc16);
+ for (@pc16) {
+ DXProt::broadcast_all_ak1a($_);
+ }
Log('DXCommand', "$call connected");
# send prompts and things
$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));
}
} else {
$self->state('prompt');
}
+ } elsif ($self->{state} eq 'sysop') {
+ my $passwd = $self->{user}->passwd;
+ my @pw = split / */, $passwd;
+ if ($passwd) {
+ my @l = @{$self->{passwd}};
+ my $str = "$pw[$l[0]].*$pw[$l[1]].*$pw[$l[2]].*$pw[$l[3]].*$pw[$l[4]]";
+ if ($cmdline =~ /$str/) {
+ $self->{priv} = $self->{user}->priv;
+ } else {
+ $self->send($self->msg('sorry'));
+ }
+ } else {
+ $self->send($self->msg('sorry'));
+ }
+ delete $self->{passwd};
+ $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;
($path, $fcmd) = search($main::localcmd, $cmd, "pl");
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
- dbg('command', "path: $cmd cmd: $fcmd");
-
- my $package = find_cmd_name($path, $fcmd);
- @ans = (0) if !$package ;
+ if ($path && $cmd) {
+ dbg('command', "path: $cmd cmd: $fcmd");
- if ($package) {
- dbg('command', "package: $package");
+ my $package = find_cmd_name($path, $fcmd);
+ @ans = (0) if !$package ;
- my $c = qq{ \@ans = $package(\$self, \$args) };
- dbg('eval', "cluster cmd = $c\n");
- eval $c;
- if ($@) {
- @ans = (0, "Syserr: Eval err cached $package\n$@");
+ if ($package) {
+ dbg('command', "package: $package");
+
+ my $c = qq{ \@ans = $package(\$self, \$args) };
+ dbg('eval', "cluster cmd = $c\n");
+ eval $c;
+ if ($@) {
+ @ans = (0, "Syserr: Eval err cached $package\n$@");
+ }
}
+ } else {
+ dbg('command', "cmd: $cmd not found");
+ @ans = (0);
}
}
}
{
my $self = shift;
my $call = $self->call;
-
+
+ # log out text
+ if (-e "$main::data/logout") {
+ open(I, "$main::data/logout") or confess;
+ my @in = <I>;
+ close(I);
+ $self->send_now('D', @in);
+ sleep(1);
+ }
+
if ($call eq $main::myalias) { # unset the channel if it is us really
my $node = DXNode->get($main::mycall);
$node->{dxchan} = 0;
}
- my $ref = DXNodeuser->get($call);
+ my $ref = DXCluster->get_exact($call);
# issue a pc17 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my $pc17 = $nchan->pc17($self);
- DXProt::broadcast_ak1a($pc17);
+ DXProt::broadcast_all_ak1a($pc17);
Log('DXCommand', "$call disconnected");
$ref->del() if $ref;
sub prompt
{
my $self = shift;
- my $call = $self->{call};
- $self->send($self->msg('pr', $call));
- #DXChannel::msg($self, 'pr', $call);
+ $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call));
}
# broadcast a message to all users [except those mentioned after buffer]
# return if we can't find it
$errstr = undef;
- if (undef $mtime) {
+ unless (defined $mtime) {
$errstr = DXM::msg('e1');
return undef;
}
#print STDERR "already compiled $package->handler\n";
;
} else {
- my $fh = new FileHandle;
+ delete_package($package) if defined $Cache{$package}{mtime};
+
+ my $fh = new IO::File;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
return undef;
close $fh;
#wrap the code into a subroutine inside our unique package
- my $eval = qq{
- sub $package
- {
- $sub
- } };
+ my $eval = qq{ sub $package { $sub } };
if (isdbg('eval')) {
my @list = split /\n/, $eval;
delete_package($package);
} else {
#cache it unless we're cleaning out each time
- $Cache{$package}{mtime} = $mtime;
+ $Cache{$package}{'mtime'} = $mtime;
}
}