#!/usr/bin/perl # this is a possible place for errors open (DATA, "archive.dat"); my @data = ; close (DATA); chomp (@data); # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @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; } #header print "Content-type: text/html\n\n"; print "Results from holdings search"; print "
"; print "

"; print "Home Page \| Archive Holdings \| Folklore Resources at GMU \| Information for Contributors \| About Us"; print ""; print "

Holdings Search Results
"; # put data in line by line array my @print_data; my $e; for ($i=0; $i<=$#data; $i++) { if ($data[$i]=~/$FORM{'last_name'}/i && $data[$i]=~/$FORM{'first_name'}/i && $data[$i]=~/$FORM{'keyword'}/i && $data[$i]=~/$FORM{'ID'}/i) { unshift (@print_data, $data[$i]); chomp (@print_data); $e=1; } } foreach $print_data (@print_data) { ($ID, $first_name, $middle, $last_name, $title, $model) = split(/\|/, $print_data); unshift (@ID, $ID); unshift (@first_name, $first_name); unshift (@middle, $middle); unshift (@last_name, $last_name); unshift (@title, $title); unshift (@model, $model); } if ($e==0) { print "

Sorry. No matches were found for your request.

\n"; } else { print ""; for ($i=0; $i<=$#ID; $i++) { print "\n"; } print "
\#TitleFieldworker
$ID[$i]$title[$i]$first_name[$i] $middle[$i] $last_name[$i]
"; }