Changeset 11178 for trunk/gsdl

Timestamp:

2006-02-01T10:11:10+13:00 (18 years ago)

Author:

kjdon

Message:

modifications to support bundling netscape, needs the language pack installed, and the nav_ns4 compatibility macros.

File:

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

trunk/gsdl/bin/script/exportcol.pl

@@ -160 +160 @@
     }
 
+    # if we want to use netscape, check that the lanugage pack has been installed. What's best to check? for now, use one of the english image files
+    if ($use_netscape) {
+    my $search_image = &util::filename_cat ($ENV{'GSDLHOME'}, "images", "en", "tsrchgr.gif");
+    if (!-e $search_image) {
+        &gsprintf($out, "{exportcol.fail} {exportcol.lang_pack_not_installed}\n");
+        die "\n";
+    }
+    }
+
     # check each collection
     my @valid_coll_list = ();
@@ -286 +295 @@
     }
 
-    &util::cp_r ($imagesdir, $gsdldir);
+    # images. If not using netscape, copy only the top level, not any subdirs
+    if ($use_netscape) {
+    &util::cp_r ($imagesdir, $gsdldir);
+    } else {
+    &util::cp_r_toplevel ($imagesdir, $gsdldir);
+    }
     &util::cp_r ($macrosdir, $gsdldir);
     &util::cp_r ($mappingsdir, $gsdldir);
@@ -300 +314 @@
     &util::cp ($gsdlcollageappletjar, $binjavadir);
 
+
+    # if we have netscape 4 bundled, then switch to ns4 compat macro file
+    if ($use_netscape) {
+    my $main_cfg_file = &util::filename_cat($etcdir, "main.cfg");
+    open INFILE, "<$main_cfg_file";
+    open OUTFILE, ">$main_cfg_file.tmp";
+    my $line;
+    while ($line = <INFILE>) {
+        if ($line =~ s/nav_css\.dm/nav_ns4\.dm/) {
+        print OUTFILE $line;
+        last; # stop matching once we have found the line
+        } else {
+        print OUTFILE "$line";
+        }
+    }
+    # continue with no checking
+    while ($line = <INFILE>) {
+        print OUTFILE "$line";
+    }
+    close INFILE;
+    close OUTFILE;
+    &util::mv("$main_cfg_file.tmp", $main_cfg_file);
+    }
+
     # now change the home.dm macro file to a simple version
     my $newmacrodir = &util::filename_cat ($gsdldir, "macros");