#
#
-require 5.10.1;
+require 5.8.1;
use warnings;
use vars qw($data $clusteraddr $clusterport);
# 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
$mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
}
-sub do_resize
+sub doresize
{
endwin() if $scr;
initscr();
$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");
-$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);