projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-3304
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 13f2bfa1873ae9522068d427e217cc5e936c2a24..e828c40574bcbc63c5c077bf4ddf2a67bb72373d 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-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
@@
-533,7
+533,7
@@
$SIG{__DIE__} = \&sig_term;
$Text::Wrap::columns = $cols;
$conn->send_later("A$call|$connsort width=$cols enhanced");
$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);