Changeset 843 for trunk/gsdl/bin/script/mkcol.pl

Timestamp:

1999-12-13T17:34:19+13:00 (24 years ago)

Author:

davidb

Message:

general improvements

File:

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

trunk/gsdl/bin/script/mkcol.pl

@@ -47 +47 @@
 #    print STDERR "   -index type         The indexes which should be made\n";
 #    print STDERR "   -indextext name     The index description\n";
-#    print STDERR "   -defaultindex type  The index to use if no others are supplied\n\n";
+#    print STDERR "   -defaultindex type  The index to use if no others are supplied\n";
+
+    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 "   -refine   list      Space separated list of perl plugin modules to use\n";
+
+
 }
 
@@ -56 +63 @@
 
     if (!(-e $coldir)) {
-    if (!mkdir ($coldir, 0775)) {
+
+    my $store_umask = umask(0002);
+    my $mkdir_ok = mkdir ($coldir, 0777);
+    umask($store_umask);
+
+    if (!$mkdir_ok) 
+    {
         die "$!";
     }
@@ -91 +104 @@
         $line =~ s/\*\*indexestext\*\*/$indexestextstr/g;
         $line =~ s/\*\*defaultindex\*\*/$defaultindex/g;
+        $line =~ s/\*\*title\*\*/$title/g;
+        $line =~ s/\*\*about\*\*/$about/g;
+        $line =~ s/\*\*plugins\*\*/$plugins/g;
+        $line =~ s/\*\*refine\*\*/$refine/g;
 
         print OUTFILE $line;
@@ -112 +129 @@
                'index/.*/document:all', \@indexes,
                'indextext/\.*/Terms must appear within the same document', \@indexestext,
-               'defaultindex/.*/document:all', \$defaultindex
+               'defaultindex/.*/document:all', \$defaultindex,
+               'title/.+/', \$title,
+               'about/.+/', \$about,
+               'plugins/.+/GMLPlug TEXTPlug ArcPlug RecPlug/', \$plugins,
+               'refine/.+/', \$refine
                )) {
     &print_usage();
@@ -157 +178 @@
 $beta = "true" unless defined $beta;
 
+
+if (!defined($title) || $title eq "") {
+    $title = $collection;
+}
+
 # get capitalised version of the collection
 $capcollection = $collection;
@@ -186 +212 @@
 print STDERR "\n\nThe new collection is in $ENV{'GSDLHOME'}/collect/$collection.\n\n";
 
+