Changeset 3093

Timestamp:

2002-04-23T14:36:52+12:00 (21 years ago)

Author:

nzdl

Message:

* empty log message *

File:

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

trunk/gsdl/bin/script/convert_toc.pl

@@ -12 +12 @@
   open STDOUT, ">$ARGV[1]" or die "$ARGV[1]: $!\n";
 
+  my $dirname = &File::Basename::dirname($ARGV[0]);
+
   my $content = "";
   
   while (<STDIN>) {
-    $_ =~ s/[\cJ\cM]+$//;
+    $_ =~ s/[\cJ\cM]+$/\n/;
     $content .= $_;
   }
 
   # 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;
+  $content =~ s/&lt;&lt;I&gt;&gt;\s*(\w+\.(?:png|jpe?g|gif))\s*(.*?)<\/p>/rename_image_old($1, $2, $dirname)/iegs;
+  $content =~ s/<img\s+src=\"?(\w+\.(?:png|jpe?g|gif))\"?/rename_image($1, $dirname)/iegs;
 
-  # 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) {}
+  $content =~ s/(?:<P[^>]*>|<BR>)(?:\s*<\/?[^>]*>)*?&lt;&lt;TOC(\d+)&gt;&gt;(.*?)(?=<\/?P[^>]*>|<BR>)/
+      process_toc ($1, $2)/sige;
   
   # close the remaining sections
@@ -47 +36 @@
   }
   $section_ending .= "-->\n";
-  $content =~ s/(<\/body>)/$section_ending.$1/ie;
+  $content =~ s/(<\/body>)/$section_ending.$1/sie;
 
   print STDOUT $content;
@@ -57 +46 @@
   my $toc = '';
  
-  $title =~ s/<[^>]+>//g;
-  $title =~ s/^\s+//;
-  $title =~ s/\s+$//;
-  $title =~ s/\n/ /g;
+  $title =~ s/<[^>]+>//sg;
+  $title =~ s/^\s+//s;
+  $title =~ s/\s+$//s;
+  $title =~ s/\n/ /sg;
 
   $toc .= "\n<!--\n";
@@ -80 +69 @@
 }
 
+sub rename_image_old {
+    my ($image_name, $following_text, $dirname) = @_;
+
+    &rename_image($image_name, $dirname);
+
+    return "<center><img src=\"$image_name\"><br>$following_text<\/center><\/p>\n";
+}
+
+
+# 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)
+sub rename_image {
+    my ($image_name, $dirname) = @_;
+
+    if (!-e "$dirname/$image_name") {
+
+    my ($pre, $ext) = $image_name =~ /^([^\.]+)\.(.*)$/;
+    my $image_name_uc = uc($image_name);
+    my $image_name_lc = lc($image_name);
+    my $image_name_ul = uc($pre) . "." . lc($ext);
+    my $image_name_lu = lc($pre) . "." . uc($ext);
+
+    if (-e "$dirname/$image_name_uc") {
+        print STDERR "renaming $dirname/$image_name_uc --> $dirname/$image_name\n";
+        rename ("$dirname/$image_name_uc", "$dirname/$image_name");
+
+    } elsif (-e "$dirname/$image_name_lc") {
+        print STDERR "renaming $dirname/$image_name_lc --> $dirname/$image_name\n";
+        rename ("$dirname/$image_name_lc", "$dirname/$image_name");
+    
+    } elsif (-e "$dirname/$image_name_ul") {
+        print STDERR "renaming $dirname/$image_name_ul --> $dirname/$image_name\n";
+        rename ("$dirname/$image_name_ul", "$dirname/$image_name");
+    
+    } elsif (-e "$dirname/$image_name_lu") {
+        print STDERR "renaming $dirname/$image_name_lu --> $dirname/$image_name\n";
+        rename ("$dirname/$image_name_lu", "$dirname/$image_name");
+    
+    } else {
+        print STDERR "ERROR**** $dirname/$image_name could not be found\n";
+    }
+    }
+    return "<img src=\"$image_name\"";
+}
+
+
+
 &main;