#!/usr/bin/perl print "Content-type: text/html\n\n"; use DBI; sub myerror { my $err=shift; print "$err !

"; print ""; exit 5; } sub strinput { my $id=shift; $data{$id}="" unless (defined($data{$id})); print "

$id :

\n"; print "\n"; } sub searchbut { print "

\n"; } print "\n\n\n"; print "\n"; print "\ \ \ \ \n"; print "Furry Story Quick Search\n\n

Mia's Index of Anthro' Stories

\ \n

Quick Story Search

\ \n"; $request_method = $ENV{'REQUEST_METHOD'}; ($request_method = "") unless(defined($request_method)); if ($request_method eq "GET") { $query_string = $ENV{'QUERY_STRING'}; } elsif ($request_method eq "POST") { read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); } else { $query_string=""; # Silently assume we were called without arguments } @data = split (/&/, $query_string); %data=(); foreach $key_value (@data) { ($key, $value) = split (/=/, $key_value); $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/eg; $data{$key} = $value; } print "

What do you want to search for ?

Or would you like Information about how to use this Form ?

"; print "

"; print "\n"; print "\n"; print "\n"; foreach $label (("Author","Title","Comment")) { &strinput($label); } print "

\nKeyword : Species : \n

\n"; &searchbut(); print "

\n
\nOr maybe you'd like to do some more complex searches?

\ \n

\n"; print "Neither furry.de nor bnd.de are responsible for this page, it's contents, or views "; print "expressed therein. Miavir, this page, it's contents, and the names 'Mia's Index of Anthro' Stories', 'MIA'S', and 'Miavir' are Copyright © 1995-2002 by Deon F. Ramsey.

If you feel you have found some Error in, or Problem with this page, read this page before reporting them.

\ \n

"; print "MIAS Staff (To E-Mail us)\n

\n"; print "
Mia's Index of Anthro' Stories
\ \n\n\n";