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

detail changes in console

Browse Source
This commit is contained in:
djk 1999-07-02 11:35:03 +00:00
parent 32dd3b3ad7
commit dc999e28c9
3 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Changes
View File

@ -1,9 +1,13 @@
01Jul99=======================================================================
1. Altered priv to 5 for connect.pl to match disconnect for nodes
29Jun99=======================================================================
1. fixed merge command that I broke.
2. added some randomness in waittimes for aborted outgoing messages
3. Message Queuing now only occurs every 5 minutes (configurable if anyone
wants to write the command for doing it) nad on receipt of a PC16. This is
a further attempt at sorting the crossing of messages!
4. a PC33 will cause another attempt at queuing. If you are on a roll, keep
going!
28Jun99=======================================================================
1. console.pl now works with history and editting.
2. added scrolling to stuff sent by the cluster.

2
cmd/connect.pl
View File

@ -5,7 +5,7 @@ my $self = shift;
my $call = uc shift;
my $lccall = lc $call;
return (0) if $self->priv < 8;
return (1, $self->msg('e5')) if $self->priv < 5;
return (1, $self->msg('e6')) unless $call gt ' ';
return (1, $self->msg('already', $call)) if DXChannel->get($call);
return (1, $self->msg('conscript', $lccall)) unless -e "$main::root/connect/$lccall";

24
perl/console.pl
View File

@ -118,6 +118,15 @@ sub show_screen
$top->refresh();
}
# add a line to the end of the top screen
sub addtotop
{
my $inbuf = shift;
push @shistory, $inbuf;
shift @shistory if @shistory > $maxshist;
show_screen();
}
# handle incoming messages
sub rec_socket
{
@ -129,10 +138,7 @@ sub rec_socket
my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
if ($sort eq 'D') {
push @shistory, $line;
shift @shistory if @shistory > $maxshist;
# $spos = @shistory if $spos >= @shistory - 1;
show_screen();
addtotop($line);
} elsif ($sort eq 'Z') { # end, disconnect, go, away .....
cease(0);
}
@ -164,6 +170,9 @@ sub rec_stdin
$bot->clrtoeol();
$bot->addstr(substr($inbuf, 0, COLS));
}
# add it to the monitor window
addtotop($inbuf) if $inbuf;
# send it to the cluster
$inbuf = " " unless $inbuf;
@ -252,11 +261,8 @@ sub rec_stdin
$pos++;
$lth++;
} elsif ($r eq "\014" || $r eq "\022") {
$top->touchwin();
$bot->touchwin();
$scr->touchwin();
$scr->refresh();
$top->refresh();
# curscr()->refresh();
return;
} elsif ($r eq "\013") {
$inbuf = substr($inbuf, 0, $pos);
$lth = length $inbuf;