Changeset 5846

Timestamp:

2003-11-14T15:00:16+13:00 (20 years ago)

Author:

kjdon

Message:

now the script makes the exported collection public

File:

• trunk/gsdl/bin/script/exportcol.pl (modified) (1 diff)

trunk/gsdl/bin/script/exportcol.pl

@@ -193 +193 @@
     &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 {
+        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 OUT if $close_out;