X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=3014e24fd7cf45bb4e6e3af622de45f4f1b50720;hb=ae8b40244a552256fd35720e40b4ef0e14df55f1;hp=bfd9bb094ba4655fb6313346688ae572b7f2110e;hpb=28ad9d9ee88ce029286e9dabe6ee9de40f8f0ae5;p=spider.git 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?)