#!/usr/bin/perl -T sub response { (my $status, my $msg)=@_; print "Content-Type: text/html\n"; #print "Status: $status\n"; print "\n"; print $msg; print "\n"; exit 0; } sub urldecode { local($val)=@_; $val=~s/\+/ /g; $val=~s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge; return $val; } if ($ENV{'REQUEST_METHOD'} ne "GET") { &response(201, "Error: Request method is not GET"); } my $f=$ENV{'QUERY_STRING'}; $f=~/([-a-zA-Z0-9:;_.\/ ]+)/; $f=urldecode($f); (my $person, my $tag)=split(/;/, $f); if ($f eq "") { &response(200, "No person specified"); } my $dir="/home/mraento/public_html/pics/$person"; $html="

Pictures of " . $person; if ($tag eq "") { $html .= "

"; $html .= $f . "

\n"; } $html .= "

\n"; } else { open(IN, "<$dir/${tag}.txt") || &response(201, "cannot open $dir/${tag}.txt"); $html.=" for " . $tag if ($tag ne ""); $html.= "\n"; $html.="\n"; while() { (my $meta, my $filen, my $now, my $desc)=split(/\t/); $html .= "\n"; $html .= "\n"; } $html.="

"; if ($filen=~/jpg/) { $html .= "

"; } else { $html .= "Media"; } $html .= "

Location: " . $meta . "
Time: " . $now; $html .= "
" . $desc unless ($desc eq ""); $html .= "

"; } $html .= ""; &response(200, $html);