#!/usr/bin/perl # Define Variables # $basedir = '/htdocs/'; $baseurl = 'http://website.com'; @files = ('*.dtl'); $title = "Search Again"; $title_url = 'http://website.com/'; $search_url = 'http://website.com/'; # Parse Form Search Information &parse_form; # Get Files To Search Through &get_files; # Search the files &search; # Print Results of Search &return_html; sub parse_form { # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } sub get_files { chdir($basedir); foreach $file (@files) { $ls = `ls $file`; @ls = split(/\s+/,$ls); foreach $temp_file (@ls) { if (-d $file) { $filename = "$file$temp_file"; if (-T $filename) { push(@FILES,$filename); } } elsif (-T $temp_file) { push(@FILES,$temp_file); } } } } sub search { @terms = split(/\s+/, $FORM{'terms'}); foreach $FILE (@FILES) { open(FILE,"$FILE"); @LINES = ; close(FILE); #$string is what we will search $string = join(' ', @LINES); $string =~ s/\n//g; #$string2 is the title of the document @string2 = ($LINES[0]); $string2 =~ s/\n//g; $string2 =~ s/\//ig; $string2 =~ s/\<\/h3\>//ig; $string2 =~ s/title: //; #$string3 is the submission date of the document @$string3 = ($LINES[15]); $string3 =~ s/\n//g; $string3 =~ s/submitted: //; #chomp ($string3); $string3 = scalar localtime $string3; if ($FORM{'boolean'} eq 'AND') { foreach $term (@terms) { if ($FORM{'case'} eq 'Insensitive') { if (!($string =~ /$term/i)) { $include{$FILE} = 'no'; last; } else { $include{$FILE} = 'yes'; } } elsif ($FORM{'case'} eq 'Sensitive') { if (!($string =~ /$term/)) { $include{$FILE} = 'no'; last; } else { $include{$FILE} = 'yes'; } } } } elsif ($FORM{'boolean'} eq 'OR') { foreach $term (@terms) { if ($FORM{'case'} eq 'Insensitive') { if ($string =~ /$term/i) { $include{$FILE} = 'yes'; last; } else { $include{$FILE} = 'no'; } } elsif ($FORM{'case'} eq 'Sensitive') { if ($string =~ /$term/) { $include{$FILE} = 'yes'; last; } else { $include{$FILE} = 'no'; } } } } if ($string =~ /(.*)<\/title>/i) { $titles{$FILE} = "$1"; } else { $titles{$FILE} = "$string2"; $titles2{$FILE} = "$string3; } } } sub return_html { print "Content-type: text/html\n\n"; print "<html>\n <head>\n <title>Results of Search\n \n"; print "\n
\n

Results of Search in $title

\n
\n"; print "Below are the results of your search sorted by submission date:

\n"; print "

\n"; print "
\n"; print "Search Information:

\n"; print "


\n"; print "

\n"; print "
\n"; print "\n\n"; }