Changeset 1644

Timestamp:

2000-11-02T14:20:57+13:00 (24 years ago)

Author:

paynter

Message:

Reverted to version 1.20 (no mention of phind).

File:

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

trunk/gsdl/bin/script/buildcol.pl

@@ -161 +161 @@
     }
 
-
-    # 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-phind\".\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-phind\".\n\n";
-        die "\n";
-    }
-    
-    print $out "All the files appear to be in place.\n\n";
-    }
-
-
-    # Build the collection in realbuilddir
+    # build it in realbuilddir
     &util::mk_all_dir ($realbuilddir);
 
@@ -252 +208 @@
     }
 
-    
-    # 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;
-
 }