# IIS Search script.
# Save this file as bin/IISsearch.pl

# Contributed by Main.MartinCleaver
# All credit goes to Adam.

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use lib ( '.' );
use lib ( '../lib' );
use TWiki;

use strict;

&main();

sub main
{
    my $query = new CGI;
    
    my $thePathInfo = $query->path_info(); 
    my $theRemoteUser = $query->remote_user();
    my $theTopic = $query->param( 'topic' );
    my $theUrl = $query->url;

    my( $topic, $webName ) = 
	&TWiki::initialize( $thePathInfo, $theRemoteUser, $theTopic, $theUrl, $query );
    
    if( ! &TWiki::Store::webExists( $webName ) ) {
        my $url = &TWiki::getOopsUrl( $webName, $topic, "oopsnoweb" );
        TWiki::redirect( $query, $url );
        return;
    }

    # The CGI.pm docs claim that it returns all of the values in a
    # multiple select if called in a list context, but that may not
    # work (didn't on the dev box -- perl 5.004_4 and CGI.pm 2.36 on
    # Linux (Slackware 2.0.33) with Apache 1.2.  That being the case,
    # we need to parse them out here.

#    my @webs          = $query->param( "web" ) || ( $webName ); #doesn't work

    # Note for those unused to Perlishness:
    # -------------------------------------
    # The pipeline at the end of this assignment splits the full query
    # string on '&' or ';' and selects out the params that begin with 'web=',
    # replacing them with whatever is after that.  In the case of a
    # single list of webs passed as a string (say, from a text entry
    # field) it does more processing than it needs to to get the
    # correct string, but so what?  The pipline is the second
    # parameter to the join, and consists of the last two lines.  The
    # join takes the results of the pipeline and strings them back
    # together, space delimited, which is exactly what &searchWikiWeb
    # needs.
    # Note that mod_perl/cgi appears to use ';' as separator, whereas plain cgi uses '&'

    my $websStr       = join ' ',
                        grep { s/^web=(.*)$/$1/ }
                        split(/[&;]/, $query->query_string);
                        
    my $search        = $query->param( "search" ) || "";
    my $scope         = $query->param( "scope" )  || "";
    my $order         = $query->param( "order" )  || "";
    my $revSort       = $query->param( "reverse" )  || "";
    my $caseSensitive = $query->param( "casesensitive" ) || "";
    my $regex         = $query->param( "regex" )  || "";
    my $limit         = $query->param( "limit" )  || "";
    my $nosummary     = $query->param( "nosummary" )  || "";
    my $nosearch      = $query->param( "nosearch" )  || "";
    my $noheader      = $query->param( "noheader" )  || "";
    my $nototal       = $query->param( "nototal" ) || "";
    my $bookView      = $query->param( "bookview" )  || ""; # PTh 20 Jul 2000
    my $renameView    = $query->param( "renameview" )  || "";
    my $showlock      = $query->param( "showlock" ) || "";
    my $noempty       = $query->param( "noempty" ) || "";

    &TWiki::writeHeader( $query );
    &TWiki::IISSearch::searchWeb( "0",
        $websStr, $search, $scope, $order, $regex,
        $limit, $revSort, $caseSensitive, $nosummary,
        $nosearch, $noheader, $nototal, $bookView, $renameView,
        $showlock, $noempty, ""
    );
}