Changeset 1614

Timestamp:

2000-10-25T16:28:06+13:00 (24 years ago)

Author:

paynter

Message:

Added support for the phind phrase browser. If a "phind" line is detected
in the collection configureation file, then we assume the user wants to
generate aphind index. Before we let them proceed, we make sure they have
all the files installed in the right place (they are not installed by
default). If everything is okay, we call the phindgen.pl script after the
build.

File:

• trunk/gsdl/bin/script/buildcol.pl (modified) (2 diffs)

trunk/gsdl/bin/script/buildcol.pl

@@ -161 +161 @@
     }
 
-    # build it in realbuilddir
+
+    # Phind installation check
+    # The phind phrase browser is research software and is not installed
+    # by defualt.  If the user attepts to use it we warn them that it's a
+    # bit dodgy, then tell them how to install it.  If they can do that 
+    # and get all the files in place, then we let them proceed.
+    if ($collectcfg->{'phind'}) {
+    
+    print $out "Phind - *experimental* Greenstone verion.\n";
+    print $out "Checking the phind phrase browser requirements...\n";
+
+    # Make sure we're not in windows
+    die "Phind currently only works under Unix" unless ($ENV{'GSDLOS'} !~ /windows/i);
+
+    # Ensure the Phind generate scripts are in place
+    my $file1 = &util::filename_cat($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}, "suffix");
+    my $file2 = &util::filename_cat($ENV{'GSDLHOME'}, "bin", "script", "phindgen.pl");
+    my $file3 = &util::filename_cat($ENV{'GSDLHOME'}, "perllib", "phproc.pm");
+    my $src = &util::filename_cat($ENV{'GSDLHOME'}, "src", "phind", "generate");
+
+    if (!((-e $file1) && (-e $file2) && (-e $file3))) {
+        print STDERR "The phind generate scripts are not installed.  ";
+        print STDERR "To install them, change to the directory\n";
+        print STDERR "   $src\n";
+        print STDERR "and type \"make install\".\n\n";
+        die "\n";
+    }
+
+    # Ensure the Phind CGI script is in place
+    $file1 = &util::filename_cat($ENV{'GSDLHOME'}, "cgi-bin", "phindcgi");
+    $src =  &util::filename_cat($ENV{'GSDLHOME'}, "src", "phind", "host");
+
+    if (!(-e $file1)) {
+        print STDERR "The phind CGI program is not installed.  ";
+            print STDERR "To install it, change to the directory\n";
+        print STDERR "   $src\n";
+        print STDERR "and type \"make install\".\n\n";
+    }
+    
+    print $out "All the files appear to be in place.\n\n";
+    }
+
+
+    # Build the collection in realbuilddir
     &util::mk_all_dir ($realbuilddir);
 
@@ -208 +251 @@
     }
 
+    
+    # Create the phind phrase browser interface
+    if ($collectcfg->{'phind'}) {
+
+    # formulate and execute the phind generate command
+    my $command = &util::filename_cat($ENV{'GSDLHOME'}, "bin", "script", "phindgen.pl");
+    $command .= " -verbosity $verbosity";
+    $command .= " -maxdocs $maxdocs" if ($maxdocs && ($maxdocs > 0));
+    $command .= " $collection";
+
+    print $out "\nExecuting: $command\n" if $verbosity;
+    my $status = system($command);
+    if ($status != 0) {
+        print STDERR "buildcol.pl - Error executing $command: $!\n";
+        exit($status);
+    }
+    }
+
     close OUT if $close_out;
+
 }