Changeset 3102

Timestamp:

2002-04-28T10:24:21+12:00 (21 years ago)

Author:

nzdl

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/convert_toc.pl (modified) (5 diffs)

trunk/gsdl/bin/script/convert_toc.pl

@@ -25 +25 @@
   $content =~ s/<img\s+src=\"?(\w+\.(?:png|jpe?g|gif))\"?/rename_image($1, $dirname)/iegs;
 
-
   # process section title
   $content =~ s/(?:<P[^>]*>|<BR>)(?:\s*<\/?[^>]*>)*?&lt;&lt;TOC(\d+)&gt;&gt;(.*?)(?=<\/?P[^>]*>|<BR>)/
       process_toc ($1, $2)/sige;
-  
+
   # close the remaining sections
   my $section_ending = "<!--\n";
@@ -58 +57 @@
     }
   }
+
   $toc .= "<Section>\n".
     "  <Description>\n".
@@ -65 +65 @@
 
   $level = $thislevel;
-  
+
   return $toc;
 }
@@ -83 +83 @@
 sub rename_image {
     my ($image_name, $dirname) = @_;
+
 
     if (!-e "$dirname/$image_name") {
@@ -110 +111 @@
     } else {
         print STDERR "ERROR**** $dirname/$image_name could not be found\n";
+        if (open (ERROR, ">>error.txt")) {
+        print ERROR "ERROR**** $dirname/$image_name could not be found\n";
+        close ERROR;
+        }
     }
     }