Changeset 1279 for branches/New_Config_Format-branch/gsdl/bin/script/mkcol.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/mkcol.pl (modified) (6 diffs)

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

@@ -51 +51 @@
     print STDERR "   -title text         The title for the collection\n";
     print STDERR "   -about text         The about text for the collection\n";
-    print STDERR "   -plugins list       Space separated list of perl plugin modules to use\n";
+    print STDERR "   -plugin text        perl plugin module to use (there may be multiple\n";
+    print STDERR "                       plugin entries\n";
     print STDERR "   -refine   list      Space separated list of perl plugin modules to use\n";
 
@@ -106 +107 @@
         $line =~ s/\*\*title\*\*/$title/g;
         $line =~ s/\*\*about\*\*/$about/g;
-        $line =~ s/\*\*plugins\*\*/$plugins/g;
+        $line =~ s/\*\*plugins\*\*/$pluginstring/g;
         $line =~ s/\*\*refine\*\*/$refine/g;
 
@@ -119 +120 @@
 
 
-my (@indexes, @indexestext);
+my (@indexes, @indexestext, @plugin);
 
 # get and check options
@@ -132 +133 @@
                'title/.+/', \$title,
                'about/.+/', \$about,
-               'plugins/.+/GMLPlug TEXTPlug ArcPlug RecPlug/', \$plugins,
+               'plugin/.+', \@plugin,
                'refine/.+/', \$refine
                )) {
@@ -138 +139 @@
     die "\n";
 }
-    
+
+# load default plugins if none were on command line    
+if (!scalar(@plugin)) {
+    @plugin = (GMLPlug,TEXTPlug,ArcPlug,RecPlug);
+}
+
 # get and check the collection name
 ($collection) = @ARGV;
@@ -195 +201 @@
 }
 
+$pluginstring = "";
+foreach $plugin (@plugin) {
+    $pluginstring .= "plugin         $plugin\n";
+}
 
 # make sure the model collection exists