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

Timestamp:

2001-03-08T15:45:10+13:00 (23 years ago)

Author:

sjboddie

Message:

tinkered with the export collection function a little so that it only
exports those parts of a collection that are required at display time

File:

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

trunk/gsdl/bin/script/exportcol.pl

@@ -62 +62 @@
     $out = OUT;
     $close_out = 1;
+    }
+
+    # make sure the collection is built (or at least contains all the
+    # directories we expect it to) - we expect that it should contain an
+    # index and an etc directory and will also copy across an images
+    # directory if it exists
+    my $colindexdir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $collection, "index");
+    my $colimagesdir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $collection, "images");
+    my $coletcdir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $collection, "etc");
+    if ((!-d $colindexdir) || (!-d $coletcdir)) {
+    print $out "exportcol.pl failed: One or more the the following necessary\n";
+    print $out "directories does not exist\n\n";
+    print $out "  $colindexdir\n";
+    print $out "  $coletcdir\n";
     }
 
@@ -143 +157 @@
 
     # copy the collection itself
-    &util::cp_r (&util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection), $collectdir);
+    my $thiscoldir = &util::filename_cat ($collectdir, $collection);
+    &util::mk_all_dir ($thiscoldir);
+    &util::cp_r ($colindexdir, $thiscoldir);
+    &util::cp_r ($coletcdir, $thiscoldir);
+    &util::cp_r ($colimagesdir, $thiscoldir) if (-e $colimagesdir);
 
     print $out "exportcol.pl succeeded: The exported collection is in $topdir\n";