yangtse: curl-www/auto summarize.pl,1.60,1.61

Update of /cvsroot/curl/curl-www/auto
In directory giant.haxx.se:/var/tmp/cvs-serv28094

Modified Files:
	summarize.pl 
Log Message:
Removed long time ago obsolete quoted-printable decoding code from singlefile()
which was used for daily build log files named 'inbox*log'.

At least since 2007, received autobuild files are first processed by the inpipe
script, and once decoded if needed, stored in an individual build log file named
'build*log' and additionally in a daily build log file named 'inbox*log'.

In this way, if decoding is required for a received autobuild file it is only
done once to avoid loading the server needlessly.


Index: summarize.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/summarize.pl,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -d -r1.60 -r1.61
--- summarize.pl	1 Oct 2009 13:25:35 -0000	1.60
+++ summarize.pl	5 Oct 2009 02:13:02 -0000	1.61
@@ -1,7 +1,5 @@
 #!/usr/bin/env perl
 
-use MIME::QuotedPrint ();
-
 require "CGI.pm";
 require "../curl.pm";
 require "ccwarn.pm";
@@ -392,42 +390,8 @@
 
     chmod 0644, $file;
 
-    # find out if log file is quoted-printable encoded
-    my $qpencoded = 0;
-    if(open(SCAN, "<$file")) {
-        my $linecount = 0;
-        my $mimecount = 0;
-        while(<SCAN>) {
-            if($_ =~ /^testcurl: [A-Z]+ =3D/) {
-                if($mimecount++ > 5) {
-                    $qpencoded = 1;
-                    last;
-                }
-            }
-            last if($linecount++ > 30);
-        }
-        close(SCAN);
-    }
-
-    my $buffer = "";
-
     open(READ, "<$file");
-    while(my $chunk = <READ>) {
-        my $line;
-        # decode quoted-printable if encoded
-        if($qpencoded) {
-            $buffer .= MIME::QuotedPrint::decode_qp($chunk);
-            if($buffer =~ /\n$/) {
-                $line = $buffer;
-                $buffer = "";
-            }
-            else {
-                next; # chunk
-            }
-        }
-        else {
-            $line = $chunk;
-        }
+    while(my $line = <READ>) {
         chomp $line;
 
  #       print "L: $state - $line\n";