use DXBearing;
use CmdAlias;
use Filter;
-use Carp;
use Minimuf;
use DXDb;
use Sun;
my $node = DXNode->get($main::mycall) or die "$main::mycall not allocated in DXNode database";
my $cuser = DXNodeuser->new($self, $node, $call, 0, 1);
$node->dxchan($self) if $call eq $main::myalias; # send all output for mycall to myalias
-
+
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
unless (exists $Cache{$package}->{'sub'}) {
$c = eval $Cache{$package}->{'eval'};
if ($@) {
- return ("Syserr: Syntax error in $package", $@);
+ return DXDebug::shortmess($@);
}
$Cache{$package}->{'sub'} = $c;
}
@ans = &{$c}($self, $args);
};
- return ($@) if $@;
+ if ($@) {
+ cluck($@);
+ return (DXDebug::shortmess($@));
+ };
}
} else {
dbg('command', "cmd: $cmd not found");
my $self = shift;
my $call = $self->call;
+ # I was the last node visited
+ $self->user->node($main::mycall);
+
# log out text
if (-e "$main::data/logout") {
open(I, "$main::data/logout") or confess;