From e028aec8725d73bc98177514e53c0f35aa698202 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 22 May 1999 20:42:13 +0000 Subject: [PATCH] changed crap handling changed multiple connect handling --- perl/cluster.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/cluster.pl b/perl/cluster.pl index bfd9bb09..3014e24f 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -221,8 +221,8 @@ sub process_inqueue # translate any crappy characters into hex characters if ($line =~ /[\x00-\x06\x08\x0a-\x1f\x7f-\xff]/o) { $line =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg; - dbg('chan', "<- $sort $call **CRAP**: $line"); - return; +# dbg('chan', "<- $sort $call **CRAP**: $line"); +# return; } # do the really sexy console interface bit! (Who is going to do the TK interface then?) -- 2.34.1