Changeset 1693

Timestamp:

2000-11-23T11:51:09+13:00 (23 years ago)

Author:

kjm18

Message:

updated to resemble the updated buildcol.pl

File:

• trunk/gsdl/bin/script/mgppbuildcol.pl (modified) (12 diffs)

trunk/gsdl/bin/script/mgppbuildcol.pl

@@ -26 +26 @@
 #
 ###########################################################################
+package mgppbuildcol;
 
 BEGIN {
@@ -32 +33 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify"); 
 }
     #$ENV{'PATH'} = "$ENV{'GSDLHOME'}/src/mgpp/text:".$ENV{'PATH'};
@@ -38 +40 @@
 use parsargv;
 use util;
+use FileHandle;
 
 &main();
@@ -56 +59 @@
     print STDERR "                         building directory\n";
     print STDERR "   -allclassifications   Don't remove empty classifications\n\n";
-}
+    print STDERR "   -create_images        Attempt to create default images for new\n";
+    print STDERR "                         collection. This relies on the Gimp being\n";
+    print STDERR "                         installed along with relevant perl modules\n";
+    print STDERR "                         to allow scripting from perl\n";
+    print STDERR "   -collectdir directory Collection directory (defaults to " .
+    &util::filename_cat ($ENV{'GSDLHOME'}, "collect") . ")\n";
+    print STDERR "   -out                  Filename or handle to print output status to.\n";
+    print STDERR "                         The default is STDERR\n\n";
+}
+
 
 
@@ -62 +74 @@
 {
     my ($verbosity, $archivedir, $cachedir, $builddir, $maxdocs, 
-    $debug, $mode, $indexname, $keepold, $allclassifications);
+    $debug, $mode, $indexname, $keepold, $allclassifications,
+    $create_images, $collectdir, $out);
     if (!parsargv::parse(\@ARGV, 
              'verbosity/\d+/2', \$verbosity,
@@ -73 +86 @@
              'index/.*/', \$indexname,
              'keepold', \$keepold,
-             'allclassifications', \$allclassifications)) {
+             'allclassifications', \$allclassifications,
+             'create_images', \$create_images,
+             'collectdir/.*/', \$collectdir,
+             'out/.*/STDERR', \$out)) {
     &print_usage();
     die "\n";
     }
+
+    my $close_out = 0;
+    if ($out !~ /^(STDERR|STDOUT)$/i) {
+    open (OUT, ">$out") || die "Couldn't open output file $out\n";
+    $out = "buildcol::OUT";
+    $close_out = 1;
+    }
+    $out->autoflush(1);
 
     # get and check the collection
     # this sets up GSDLCOLLECTION (eg demo) and GSDLCOLLECTDIR (eg
     # GSDLHOME/collect/demo )
-    if (($collection = &util::use_collection(@ARGV)) eq "") {
+    if (($collection = &util::use_collection(@ARGV, $collectdir)) eq "") {
     &print_usage();
     die "\n";
@@ -107 +131 @@
     }
     
+    # create default images if required
+    if ($create_images) {
+    my $collection_name = $collection;
+    $collection_name = $collectcfg->{'collectionmeta'}->{'collectionname'} 
+    if defined $collectcfg->{'collectionmeta'}->{'collectionname'};
+    
+    &create_images ($collection_name);
+    }
+
     # fill in the default archives and building directories if none
     # were supplied, turn all \ into / and remove trailing /
@@ -118 +151 @@
     # update the archive cache if needed
     if ($cachedir) {
-    print STDERR "Updating archive cache\n" if ($verbosity >= 1);
+    print $out "Updating archive cache\n" if ($verbosity >= 1);
 
     $cachedir =~ s/[\\\/]+$//;
@@ -138 +171 @@
     &util::mk_all_dir ($realbuilddir);
 
-
-    # if a builder class has been created for this collection, use it
+   # if a builder class has been created for this collection, use it
     # otherwise, use the mg builder
     if (-e "$ENV{'GSDLCOLLECTDIR'}/perllib/${collection}builder.pm") {
@@ -153 +185 @@
     eval("\$builder = new $buildertype(\$collection, " .
      "\$realarchivedir, \$realbuilddir, \$verbosity, " .
-     "\$maxdocs, \$debug, \$keepold, \$allclassifications)");
+     "\$maxdocs, \$debug, \$keepold, \$allclassifications, \$out)");
     die "$@" if $@;
 
@@ -159 +191 @@
 
 
-    print STDERR "text index=$textindex, indexname= $indexname\n";
     if ($mode =~ /^all$/i) {
 #   $builder->build_collection($textindex, $indexname);
@@ -180 +211 @@
     
     if (($realbuilddir ne $builddir) && !$debug) {
-    print STDERR "Copying back the cached build\n" if ($verbosity >= 1);
+    print $out "Copying back the cached build\n" if ($verbosity >= 1);
     &util::rm_r ($builddir);
     &util::cp_r ($realbuilddir, $builddir);
     }
-}
-
-
+
+    close OUT if $close_out;
+}
+
+
+sub create_images {
+    my ($collection_name) = @_;
+
+    my $image_script = &util::filename_cat ($ENV{'GSDLHOME'}, "bin", "script", "gimp", "title_icon.pl");
+    if (!-e $image_script) {
+    print $out "WARNING: Image making script ($image_script) could not be found\n";
+    print $out "         Default images will not be generated\n\n";
+    return;
+    }
+
+    my $imagedir = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "images");
+
+    &util::mk_all_dir ($imagedir);
+
+    # create the images
+    system ("$image_script -size 1.5 -image_dir \"$imagedir\" -filename $collection.gif -text \"$collection_name\"");
+    system ("$image_script -image_dir \"$imagedir\" -filename ${collection}sm.gif -text \"$collection_name\"");
+
+    # update the collect.cfg configuration file (this will need
+    # to be changed when the config file format changes)
+    if (!open (CFGFILE, $configfilename)) {
+    print $out "WARNING: Couldn't open config file ($configfilename)\n";
+    print $out "         for updating so collection images may not be linked correctly\n";
+    return;
+    }
+
+    my $line = ""; my $file = "";
+    my $found = 0; my $foundsm = 0;
+    while (defined ($line = <CFGFILE>)) {
+    if ($line =~ /collectionmeta\s+iconcollection\s+/) {
+        $line = "collectionmeta iconcollection _httpprefix_/collect/$collection/images/$collection.gif\n";
+        $found = 1;
+    } elsif ($line =~ /collectionmeta\s+iconcollectionsmall\s+/) {
+        $line = "collectionmeta iconcollectionsmall _httpprefix_/collect/$collection/images/${collection}sm.gif\n";
+        $foundsm = 1;
+    }
+    $file .= $line;
+    }
+    close CFGFILE;
+
+    $file .= "collectionmeta iconcollection _httpprefix_/collect/$collection/images/$collection.gif\n" if !$found;
+    $file .= "collectionmeta iconcollectionsmall _httpprefix_/collect/$collection/images/${collection}sm.gif\n" if !$foundsm;
+
+    if (!open (CFGFILE, ">$configfilename")) {
+    print $out "WARNING: Couldn't open config file ($configfilename)\n";
+    print $out "         for updating so collection images may not be linked correctly\n";
+    return;
+    }
+    print CFGFILE $file;
+    close CFGFILE;
+}
+