Changeset 3115

Timestamp:

2002-05-14T17:42:21+12:00 (22 years ago)

Author:

jrm21

Message:

Redirect mg(pp)_passes stderr to /dev/null if the "-out xxx" option is given
to buildcol.pl, as some things (eg cron) think a program fails if there is
any output to stderr.

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (2 diffs)
• mgppbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -208 +208 @@
     my $osextra = "";
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
-    $fulltextprefix =~ s/\//\\/g;
+    $fulltextprefix =~ s@/@\\@g;
     } else {
     $osextra = " -d /";
@@ -477 +477 @@
     my $osextra = "";
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
-    $fullindexprefix =~ s/\//\\/g;
+    $fullindexprefix =~ s@/@\\@g;
     } else {
     $osextra = " -d /";
+    if ($outhandle ne "STDERR") {
+        # so mg_passes doesn't print to stderr if we redirect output
+        $osextra .= " 2>/dev/null";
+    }
     }
 

trunk/gsdl/perllib/mgppbuilder.pm

@@ -253 +253 @@
    my $osextra = "";
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
-    $fulltextprefix =~ s/\//\\/g;
+    $fulltextprefix =~ s@/@\\@g;
     } 
     else {
@@ -546 +546 @@
      my $osextra = "";
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
-    $fullindexprefix =~ s/\//\\/g;
+    $fullindexprefix =~ s@/@\\@g;
     } else {
     $osextra = " -d /";
+    if ($outhandle ne "STDERR") {
+        # so mgpp_passes doesn't print to stderr if we redirect output
+        $osextra .= " 2>/dev/null";
+    }
     }