projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dc999e2
)
a few detail changes
author
djk
<djk>
Mon, 5 Jul 1999 16:16:58 +0000
(16:16 +0000)
committer
djk
<djk>
Mon, 5 Jul 1999 16:16:58 +0000
(16:16 +0000)
Changes
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
perl/console.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 42289542cc8cf600365ea49dbffd16cb31ee9798..3907a654af7c44a2e7bc00b3badf82a64f3b6e6f 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,7
@@
+04Jul99=======================================================================
+1. removed silly 'new message has arrived' to connected nodes if message is
+2. added a ! command to the console.pl program; works like the bash shell.
+addressed to the node call.
01Jul99=======================================================================
1. Altered priv to 5 for connect.pl to match disconnect for nodes
29Jun99=======================================================================
01Jul99=======================================================================
1. Altered priv to 5 for connect.pl to match disconnect for nodes
29Jun99=======================================================================
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index a76ec43d5922af67462aee33ab74e6f3fe5cd5df..42d5c65ed6f772bdcc52987dddaacf23a602da65 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-275,7
+275,7
@@
sub process
$ref->store($ref->{lines});
add_dir($ref);
my $dxchan = DXChannel->get($ref->{to});
$ref->store($ref->{lines});
add_dir($ref);
my $dxchan = DXChannel->get($ref->{to});
- $dxchan->send($dxchan->msg('m9')) if $dxchan;
+ $dxchan->send($dxchan->msg('m9')) if $dxchan
&& $dxchan->is_user
;
Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}");
}
}
Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}");
}
}
diff --git
a/perl/console.pl
b/perl/console.pl
index 0cb15bd0fbc0171446f40fde6151ee100621f8d7..41eb8016cc38249e2eccb891b38fedc05cede131 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-163,6
+163,21
@@
sub rec_stdin
# save the lines
if ($inbuf) {
# save the lines
if ($inbuf) {
+ # check for a pling and do a search back for a command
+ if ($inbuf =~ /^!/o) {
+ my $i;
+ $inbuf =~ s/^!//o;
+ for ($i = $#khistory; $i >= 0; $i--) {
+ if ($khistory[$i] =~ /^$inbuf/) {
+ $inbuf = $khistory[$i];
+ last;
+ }
+ }
+ if ($i < 0) {
+ beep();
+ return;
+ }
+ }
push @khistory, $inbuf if $inbuf;
shift @khistory if @khistory > $maxkhist;
$khistpos = @khistory;
push @khistory, $inbuf if $inbuf;
shift @khistory if @khistory > $maxkhist;
$khistpos = @khistory;