Changeset 3168 for trunk/protemix/rename.pl

Timestamp:

2002-06-23T22:58:30+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/rename.pl (modified) (2 diffs)

trunk/protemix/rename.pl

@@ -97 +97 @@
     $noncss =~ s/(<table.*?)rules=\"all\"\s+/$1/sig;
 
+    # remove empty <div> tags 
+    while ($noncss =~ s/(<div[^>]*>\s*<\/div>)//sig) {}
+
+    # remove empty table rows
+    $noncss =~ s/(<tr[^>]*>(\s*<td[^>]*>\s*<\/td>)*\s*<\/tr>)//sig;
+    $noncss =~ s/<table[^>]*>\s*<\/table>//sig;
+
     open (FILE, ">$filename") || die;
     print FILE $header . $noncss . $footer;
@@ -108 +115 @@
     $filename =~ s/\s+//g;
     $filename =~ s/^protemix\(\d+\)-?//;
+    $filename =~ s/^OCR\d+-0//;
 
     return $filename;