changed crap handling

changed multiple connect handling

diff --git a/perl/cluster.pl b/perl/cluster.pl
index bfd9bb094ba4655fb6313346688ae572b7f2110e..3014e24fd7cf45bb4e6e3af622de45f4f1b50720 100755 (executable)
--- 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?)