projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add missing Filter.pm mod
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index d04a7279bd585f9450a7e2fb1094c94018823461..2c8c456bbfff35268d43fcb9e72d12b37f32132e 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-10,10
+10,16
@@
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
require 5.004;
#
require 5.004;
+package main;
+
+use vars qw($data $clusteraddr $clusterport);
+
+$clusteraddr = '127.0.0.1'; # cluster tcp host address - used for things like console.pl
+$clusterport = 27754; # cluster tcp port
# search local then perl directories
BEGIN {
# search local then perl directories
BEGIN {
@@
-23,6
+29,8
@@
BEGIN {
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
+ $is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
+ $data = "$root/data";
}
use Msg;
}
use Msg;
@@
-54,7
+62,7
@@
$spos = $pos = $lth = 0;
$inbuf = "";
@time = ();
$inbuf = "";
@time = ();
-$SIG{WINCH} = sub {@time = gettimeofday};
+
#
$SIG{WINCH} = sub {@time = gettimeofday};
sub mydbg
{
sub mydbg
{
@@
-84,9
+92,9
@@
sub do_initscr
init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
init_pair(13, COLOR_YELLOW, COLOR_GREEN);
init_pair(14, COLOR_RED, COLOR_GREEN);
init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
init_pair(13, COLOR_YELLOW, COLOR_GREEN);
init_pair(14, COLOR_RED, COLOR_GREEN);
- eval { assume_default_colors($foreground, $background) };
+ eval { assume_default_colors($foreground, $background) }
unless $is_win
;
}
}
-
+
$top = $scr->subwin($lines-4, $cols, 0, 0);
$top->intrflush(0);
$top->scrollok(1);
$top = $scr->subwin($lines-4, $cols, 0, 0);
$top->intrflush(0);
$top->scrollok(1);
@@
-230,7
+238,7
@@
sub addtotop
if ($inbuf =~ s/\x07+$//) {
beep();
}
if ($inbuf =~ s/\x07+$//) {
beep();
}
- if (length $inbuf > $cols) {
+ if (length $inbuf >
=
$cols) {
$Text::Wrap::Columns = $cols;
push @shistory, wrap('',"\t", $inbuf);
} else {
$Text::Wrap::Columns = $cols;
push @shistory, wrap('',"\t", $inbuf);
} else {