--- SweepViruses.pm.old	2003-10-18 13:43:26.000000000 +0100
+++ SweepViruses.pm	2003-11-04 12:26:49.000000000 +0000
@@ -1864,19 +1864,19 @@
   
   MailScanner::Log::InfoLog("%s", $line);
 
-  if (/^(.*?): (.*) FOUND$/)
+  if (/^(\(raw\) )?(.*?): (.*) FOUND$/)
   {
      my ($file, $subfile, $virus, $report, $ReportStart);
-     $virus = $2;
+     $virus = $3;
      if ($clamav_archive)
      {
         $file = $clamav_archive;
-	($subfile = $1) =~ s/^.*\///;  # get basename of file
+	($subfile = $2) =~ s/^.*\///;  # get basename of file
 	$report = "in $subfile (possibly others)";
      }
      else
      {
-	 $file = $1;
+	 $file = $2;
      }     
      
      $file =~ s/^(.\/)?$BaseDir\/?//;
@@ -1889,6 +1889,19 @@
     $types->{"$id"}{"$part"} .= "v";
     return 1;
   }
+  if (/^(.*?): File size limit exceeded\.$/) {
+    my ($file, $ReportStart);
+    $file = $1;
+
+    $file =~ s/^(.\/)?$BaseDir\/?//;
+    $file =~ s/^\.\///;
+    my ($id,$part) = split /\//, $file, 2;
+    $ReportStart = $part;
+    $ReportStart = $Name . ': ' . $ReportStart if $Name;
+    $infections->{"$id"}{"$part"} .= "$ReportStart contains dangerous broken zip file\n";
+    $types->{"$id"}{"$part"} .= "v";
+    return 1;
+  }
 
   chomp $line;
   return 0 if $line =~ /^$/; # Catch blank lines