Changeset 5920

Timestamp:

2003-11-20T13:52:30+13:00 (20 years ago)

Author:

kjdon

Message:

modified this so you can export mulitple collections, and supply a name from teh resulting cd

File:

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

trunk/gsdl/bin/script/exportcol.pl

@@ -38 +38 @@
     print STDERR "exportcol.pl: Exports a collection for writing to CD-ROM.\n\n";
     print STDERR "  usage: $0 [options] collection-name\n\n";
-    print STDERR "   -out   Filename or handle to print debug info to.\n";
-    print STDERR "          The default is STDERR\n\n";
+    print STDERR "   -out    Filename or handle to print debug info to.\n";
+    print STDERR "           The default is STDERR\n";
+    print STDERR "   -cdname The name of the cd - this is what will appear in the start menu once the cd is installed.\n";
+    print STDERR "           The default is 'Greenstone Collections'.\n\n";
 }
 
@@ -45 +47 @@
 
 sub main {
-    my ($out, $collection);
-    if (!parsargv::parse(\@ARGV, 'out/.*/STDERR', \$out)) {
+    my ($out, $cdname);
+    if (!parsargv::parse(\@ARGV, 
+             'out/.*/STDERR', \$out,
+             'cdname/.*/', \$cdname)) {
+    
     &print_usage();
     die "\n";
     }
-
-    # get and check the collection name
-    if (($collection = &util::use_collection(@ARGV)) eq "") {
+    my $dirname=""; 
+    if ($cdname eq "") {
+    $cdname = "Greenstone Collections";
+    $dirname = "exported_collections";
+    } else {
+    $dirname = $cdname;
+    $dirname =~ s/\s//g;
+    $dirname = "exported_".$dirname;
+    }
+
+    my @coll_list = @ARGV;
+
+    if (not @coll_list) { # empty list
     &print_usage();
-    exit (1);
-    }
-
+    exit(1);
+    }
+    
     my $close_out = 0;
     if ($out !~ /^(STDERR|STDOUT)$/i) {
@@ -64 +79 @@
     }
 
-    # 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 of the following necessary\n";
-    print $out "directories does not exist\n\n";
-    print $out "  $colindexdir\n";
-    print $out "  $coletcdir\n";
+    # check each collection
+    my @valid_coll_list = ();
+    foreach $c (@coll_list) {
+    my $colldir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $c);
+    if (! -d $colldir) {
+        print $out "Invalid collection $c, collection not found at $colldir, ignoring\n";
+        next;
+    }
+    my $colindexdir = &util::filename_cat ($colldir, "index");
+    my $coletcdir = &util::filename_cat ($colldir, "etc");
+    if ((!-d $colindexdir) || (!-d $coletcdir)) {
+        print $out "Invalid collection $c, one of the following directories does not exist\n\n";
+        print $out "  $colindexdir\n";
+        print $out "  $coletcdir\n";
+        next;
+    }
+    # the collection seems ok, we add it to the valid coll list
+    push @valid_coll_list, $c;
+    
+    }
+
+    if (not @valid_coll_list) {
+    # no valid colls left
+    print $out "exportcol.pl failed: no valid collections specified to export\n";
     die "\n";
     }
 
     # create exported directory
-    my $topdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp", "exported_$collection");
+    my $topdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp", $dirname);
     &util::mk_all_dir ($topdir);
     if (!-d $topdir) {
@@ -105 +132 @@
     }
     print INSTALLCFG "CompanyName:New Zealand Digital Library\n";
-    print INSTALLCFG "CollectionName:$collection\n";
-    print INSTALLCFG "CollectionDirName:$collection\n";
+    print INSTALLCFG "CollectionName:$cdname\n";
+    print INSTALLCFG "CollectionDirName:$cdname\n";
     print INSTALLCFG "CollectionVersion:1.0\n";
     print INSTALLCFG "CollectionVolume:1\n";
@@ -123 +150 @@
     print MANIFESTCFG "  net32 net16 server.exe\n\n";
     print MANIFESTCFG "database:\n";
-    print MANIFESTCFG '  etc collect\$(COLDIRNAME)\index\text\$(COLDIRNAME).ldb' . "\n\n";
+    print MANIFESTCFG '  etc ';
+    foreach $c (@valid_coll_list) {
+    print MANIFESTCFG "collect\\$c\\index\\text\\$c.ldb ";
+    }
+    print MANIFESTCFG "\n\n";
     print MANIFESTCFG "collection:\n";
     print MANIFESTCFG "  collect etc images macros mappings bin\n";
@@ -195 +226 @@
     }
 
-    # copy the collection itself
-    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);
-
-    # now we need to check the collect.cfg file to make sure its public
-    my $collectcfg = &util::filename_cat ($thiscoldir, "etc", "collect.cfg");
-    open INFILE, "<$collectcfg";
-    open OUTFILE, ">$collectcfg.tmp";
-    while ($line = <INFILE>) {
-    if ($line =~ /^\s*public\s+false/) {
-        print OUTFILE "public\ttrue\n";
-        last; # stop matching once we have found the line
-    } else {
+    # copy the collections over 
+    foreach $c (@valid_coll_list) {
+    #old directories
+    my $colldir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $c);
+    my $colindexdir = &util::filename_cat ($colldir, "index");
+    my $coletcdir = &util::filename_cat ($colldir, "etc");
+    my $colimagesdir = &util::filename_cat ($colldir, "images");
+    # new coll directory
+    my $newcoldir = &util::filename_cat ($collectdir, $c);
+
+    &util::mk_all_dir ($newcoldir);
+    &util::cp_r ($colindexdir, $newcoldir);
+    &util::cp_r ($coletcdir, $newcoldir);
+    &util::cp_r ($colimagesdir, $newcoldir) if (-e $colimagesdir);
+
+    # now we need to check the collect.cfg file to make sure its public
+    my $collectcfg = &util::filename_cat ($newcoldir, "etc", "collect.cfg");
+    open INFILE, "<$collectcfg";
+    open OUTFILE, ">$collectcfg.tmp";
+    while ($line = <INFILE>) {
+        if ($line =~ /^\s*public\s+false/) {
+        print OUTFILE "public\ttrue\n";
+        last; # stop matching once we have found the line
+        } else {
+        print OUTFILE "$line";
+        }
+    }
+    # continue with no checking
+    while ($line = <INFILE>) {
         print OUTFILE "$line";
     }
-    }
-    # continue with no checking
-    while ($line = <INFILE>) {
-    print OUTFILE "$line";
-    }
-    close INFILE;
-    close OUTFILE;
-    &util::mv("$collectcfg.tmp", $collectcfg);
-
-    print $out "exportcol.pl succeeded: The exported collection is in $topdir\n";
+    close INFILE;
+    close OUTFILE;
+    &util::mv("$collectcfg.tmp", $collectcfg);
+    }
+    print $out "exportcol.pl succeeded: The exported collections are in $topdir\n";
     close OUT if $close_out;
 }