Changeset 1279 for branches/New_Config_Format-branch/gsdl/bin/script/buildcol.pl

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/bin/script/buildcol.pl (modified) (6 diffs)

branches/New_Config_Format-branch/gsdl/bin/script/buildcol.pl

@@ -54 +54 @@
     print STDERR "   -keepold              will not destroy the current contents of the\n";
     print STDERR "                         building directory\n";
-    print STDERR "   -allclassifications   Don't remove empty classifications\n\n";
+    print STDERR "   -allclassifications   Don't remove empty classifications\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\n";
 }
 
@@ -61 +65 @@
 {
     my ($verbosity, $archivedir, $cachedir, $builddir, $maxdocs, 
-    $debug, $mode, $indexname, $keepold, $allclassifications);
+    $debug, $mode, $indexname, $keepold, $allclassifications,
+    $create_images);
     if (!parsargv::parse(\@ARGV, 
              'verbosity/\d+/2', \$verbosity,
@@ -72 +77 @@
              'index/.*/', \$indexname,
              'keepold', \$keepold,
-             'allclassifications', \$allclassifications)) {
+             'allclassifications', \$allclassifications,
+             'create_images', \$create_images)) {
     &print_usage();
     die "\n";
@@ -85 +91 @@
     # read the configuration file
     $textindex = "section:text";
-    $configfilename = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "etc/collect.cfg");
+    $configfilename = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "etc", "collect.cfg");
     if (-e $configfilename) {
     $collectcfg = &colcfg::read_collect_cfg ($configfilename);
@@ -101 +107 @@
     }
     
+    # 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 /
@@ -177 +192 @@
 }
 
-
+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 STDERR "WARNING: Image making script ($image_script) could not be found\n";
+    print STDERR "         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 STDERR "WARNING: Couldn't open config file ($configfilename)\n";
+    print STDERR "         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 _httprefix_/collect/$collection/images/$collection.gif\n";
+        $found = 1;
+    } elsif ($line =~ /collectionmeta\s+iconcollectionsmall\s+/) {
+        $line = "collectionmeta iconcollectionsmall _httprefix_/collect/$collection/images/${collection}sm.gif\n";
+        $foundsm = 1;
+    }
+    $file .= $line;
+    }
+    close CFGFILE;
+
+    $file .= "collectionmeta iconcollection _httprefix_/collect/$collection/images/$collection.gif\n" if !$found;
+    $file .= "collectionmeta iconcollectionsmall _httprefix_/collect/$collection/images/${collection}sm.gif\n" if !$foundsm;
+
+    if (!open (CFGFILE, ">$configfilename")) {
+    print STDERR "WARNING: Couldn't open config file ($configfilename)\n";
+    print STDERR "         for updating so collection images may not be linked correctly\n";
+    return;
+    }
+    print CFGFILE $file;
+    close CFGFILE;
+}