sub cease
{
my $sendz = shift;
- if ($conn && $sendz) {
- $conn->send_now("Z$call|bye...");
- sleep(1);
- }
+# if ($conn && $sendz) {
+# $conn->send_now("Z$call|bye...");
+# sleep(1);
+# }
$stdout->flush if $stdout;
if ($pid) {
dbg('connect', "killing $pid");
{
my ($con, $msg, $err) = @_;
if (defined $err && $err) {
- cease(1);
+ cease(0);
}
if (defined $msg) {
my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
my $snl = $mynl;
my $newsavenl = "";
$snl = "" if $mode == 0;
- $snl = "\r\n" if $mode == 2;
+ $snl = "\n" if $mode == 2;
if ($mode == 2 && $line =~ />$/) {
$newsavenl = $snl;
$snl = ' ';
# any other sorts that might happen are silently ignored.
# ******************************************************
# ******************************************************
+ } else {
+ cease(0);
}
$lasttime = time;
}