X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=14c95bac6b14505493d4891098c1a8b117187b7c;hb=4746cf71bae031c57c24600713d7cfc281d71e20;hp=d01cd5390e8a88af39b8324dfe67c76ecd66a999;hpb=7ab06733bff9df3779a4082b5863a6273b5373d7;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index d01cd539..14c95bac 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -134,6 +134,7 @@ sub doresize $inscroll = 0; $spos = @sh < $pagel ? 0 : @sh - $pagel; show_screen(); + $conn->send_later("C$call|$cols") if $conn; } # cease communications