Changeset 3092 for trunk/gsdl

Timestamp:

2002-04-23T11:30:11+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/bin/script/convert_toc.pl

@@ -3 +3 @@
 # convert_toc.pl converts old <<TOC>> marked up files to use the new
 # <Section> syntax (suitable for processing by HTMLPlug -description_tags
+
+use File::Basename;
 
 my $level = 0;
@@ -19 +21 @@
   # fix images
   $content =~ s/&lt;&lt;I&gt;&gt;\s*(\w+\.(?:png|jpe?g|gif))\s*(.*?)<\/p>/<center><img src=\"$1\"><br>$2<\/center><\/p>\n/igs;
-  
+
+  # may need to rename image files if case isn't consistent
+  # (i.e. collections prepared on windows may have images named
+  # AAA.GIF which are linked into the HTML as aaa.gif)
+  my $image_file = $1;
+  my $dirname = &File::Basename::dirname($ARGV[0]);
+  if (!-e "$dirname/$image_file") {
+    # try all lower case
+    my $image_file_new = lc($image_file);
+    if (-e "$dirname/$image_file_new") {
+      print STDERR "renaming $dirname/$image_file --> $dirname/$image_file_new\n";
+      rename ("$dirname/$image_file", "$dirname/$image_file_new");
+    } else {
+      print STDERR "ERROR**** $dirname/$image_file does not exist\n";
+    }
+  }
+
   # process section title
   while ($content =~ s/(?:<P[^>]*>|<BR>)(?:\s*<\/?[^>]*>)*?&lt;&lt;TOC(\d+)&gt;&gt;(.*?)(?:\s*<\/?[^>]*>)*?\s*(<\/P[^>]*>|<BR>)/process_toc ($1, $2)/sige) {}
@@ -39 +57 @@
   my $toc = '';
  
-  $title =~ s/\n/ /g;
   $title =~ s/<[^>]+>//g;
   $title =~ s/^\s+//;
   $title =~ s/\s+$//;
+  $title =~ s/\n/ /g;
 
   $toc .= "\n<!--\n";