
# This Program Searches All the Alias Directories Files and Files Contents and Shows the Search Results
#
# This will work only for Abyss Web Server X1- Windows Installed in Default Location
#
# Author: Kaushik Biswas
# Email: kbfromindia@yahoo.co.in

use XML::Simple;
use CGI qw(:standard);

$ABYSSPATH = "C:\\Program Files\\Abyss Web Server\\abyss.conf";

$cgi = new CGI;

print $cgi->header();

######## Search Form ###############################

print <<EOF ;

<Title>KB's Search Engine</Title>
<H3>KB's Search Engine</H3>
<form method=post>
<input name=searchstring><input type = submit>
</form>

EOF

####################################################

$stext = $cgi->param('searchstring');
if($stext eq ""){die;}

print "<hr><H3>KB's Search Result For :  $stext</H3>";

print "\n<hr>\n";

$stext =~ s/ /.*/g;

$surl = "http://$ENV{SERVER_NAME}";

$xml = new XML::Simple;

$data = $xml->XMLin($ABYSSPATH);

######### ROOT #####################################

$rpath = trim($data->{server}->{parameters}->{root});
$rdocs = trim($data->{server}->{host}->{path});

search("/","$rpath$rdocs");

####################################################

#########  ALIAS ###################################

$cnt = 0;

do
{
	$h =  $data->{server}->{host}->{aliases}->{alias}[$cnt++];

search($h->{virtual},$h->{real});

} until ($aname eq "");

####################################################

print "\n<br><hr>\n";

sub trim{

($txt) = @_;

$txt =~ s/^\s+//;
	$txt =~ s/\s+$//;

return $txt;
}

sub search{

($aname, $apath) = @_;

$aname =~ s/\s//g;

$apath = trim($apath);

if($apath =~ m/:\\/)
	{

for $fname (`dir "$apath" /B /S`)
		{
			open F, "$fname";
			$fname =~ s/\\/\//g;
			chomp($fname);
			$fname = substr($fname, length($apath)+1);
			$spath = $surl.$aname."/".$fname;

$spath = "<br><a href='$surl$aname/$fname'>$fname</a><br>\n";

if($fname=~ m/$stext/i) { print $spath;close F}

if($fname !~ m/\.doc|\.htm|\.txt/i){close F}

while(<F>)
			{
				if($_=~ m/$stext/i) { print $spath;close F}
			}
			close F;
		}

}
}