projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix console.pl max scroll depth
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 8de22e8281cd3d6af835fadb875e860ae625e757..e828c40574bcbc63c5c077bf4ddf2a67bb72373d 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-13,7
+13,7
@@
#
#
#
#
-require 5.
10
.1;
+require 5.
8
.1;
use warnings;
use vars qw($data $clusteraddr $clusterport);
use warnings;
use vars qw($data $clusteraddr $clusterport);
@@
-50,8
+50,8
@@
use Console;
# initialisation
#
# initialisation
#
-$clusteraddr
//
= '127.0.0.1';
-$clusterport
//
= 27754;
+$clusteraddr
||
= '127.0.0.1';
+$clusterport
||
= 27754;
$call = ""; # the callsign being used
$node = ""; # the node callsign being used
$call = ""; # the callsign being used
$node = ""; # the node callsign being used
@@
-116,7
+116,7
@@
sub do_initscr
$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
}
$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
}
-sub do
_
resize
+sub doresize
{
endwin() if $scr;
initscr();
{
endwin() if $scr;
initscr();
@@
-527,13
+527,13
@@
unless ($DB::VERSION) {
$SIG{'HUP'} = \&sig_term;
# start up
$SIG{'HUP'} = \&sig_term;
# start up
-do
_
resize();
+doresize();
$SIG{__DIE__} = \&sig_term;
$Text::Wrap::columns = $cols;
$conn->send_later("A$call|$connsort width=$cols enhanced");
$SIG{__DIE__} = \&sig_term;
$Text::Wrap::columns = $cols;
$conn->send_later("A$call|$connsort width=$cols enhanced");
-$conn->send_later("I$call|set/page
$maxshist"
);
+$conn->send_later("I$call|set/page
" . ($maxshist-5)
);
$conn->send_later("I$call|set/nobeep");
#Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
$conn->send_later("I$call|set/nobeep");
#Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);