#!/usr/bin/perl # Search for words in all OID files, returning a list of them # as a Web page. Silly! # Expects to be called as a CGI-BIN script with a ?search argument. $httpbase = "http://www.alvestrand.no/objectid"; $dirbase = "/home/httpd/html/alvestrand/objectid"; $ENV{"PATH"} = "/bin"; chdir("$dirbase") || die "Unable to change directory\n"; open(LOG, ">>debuglog") || die "Unable to open debuglog\n"; $date = `date`; print LOG "Script started at $date"; print LOG "Argv is ", join(" ", @ARGV), "\n"; print LOG "Query string is $ENV{'QUERY_STRING'}\n"; #read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #print LOG "Stdin($ENV{'CONTENT_LENGTH'}) is $buffer\n"; @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $entry{$name} = $value; } $expr = $entry{"text"}; if ($expr =~ /^([-A-Z0-9a-z \.\*]+)$/) { $expr = $1; } else { die "Attempt to search for $expr - should fail!\n"; } $prefix = $entry{"prefix"}; if ($prefix =~ /^([0-9\.]+)$/) { $fileprefix = "$1*.html"; } elsif (!$prefix || $prefix eq "top") { $fileprefix = "[0-9]*.html"; # Only search files starting with number } else { die "Attempt to search under prefix $prefix\n"; } print LOG "Action is grep -i -l -e '$expr' $fileprefix\n"; @files = `grep -i -l -e '$expr' $fileprefix`; print LOG "Files are ", join(" ", @files), "\n"; print < Search result when searching for $expr under $prefix

Search result when searching for "$expr"

NOTE: This search mechanism is EXTREMELY primitive. Searching is without regards to word boundaries, and searches both markup syntax and OID contents.

Search again for
under prefix

The following OIDs matched