Changeset 7179 for trunk/gsdl/bin/script/exportcol.pl

Timestamp:

2004-04-05T14:03:53+12:00 (20 years ago)

Author:

kjdon

Message:

does a check for one of teh export to cd files first and then tells the user that the export to cd function is not installed if it cant find it

File:

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

trunk/gsdl/bin/script/exportcol.pl

@@ -119 +119 @@
     }
 
+    # first we do a quick check to see if the export coll function has been 
+    # installed
+    my $gssetupexe = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "gssetup.exe"); 
+    if (!-e $gssetupexe) {
+    &gsprintf($out, "{exportcol.fail} {exportcol.export_coll_not_installed}\n");
+    die "\n";
+    }
+
     # check each collection
     my @valid_coll_list = ();
@@ -215 +223 @@
     my $maincfg = &util::filename_cat ($ENV{'GSDLHOME'}, "etc", "main.cfg");
     my $serverexe = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "server.exe");
-    my $gssetupexe = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "gssetup.exe");
+    #my $gssetupexe = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "gssetup.exe"); - have checked this earlier
     my $setupexe = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "Setup.exe");
     my $net32dir = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "windows", "net32");