Marshfield, Massachusetts

#!/usr/bin/perl use Size; use Cwd; require "/usr/local/httpd/cgi-bin/cgi-lib.pl"; &ReadParse; $DIR="/usr/local/httpd/htmldocs/virtual/marshfield/photos"; $VDIR="/photos"; $img = $in{"image"}; $image="$DIR/$img"; $filenum = 0; &html_top(); open(FILE, "$DIR/panos.txt"); while (){ chop; if($_) { ($label, $contents) = split /:/; if($label eq "image") { # $image{"$contents"}=$contents; $i = $contents; $filelist[++$filenum] = $contents; } else { if($label eq "title") { $title{$i} = $contents } if($label eq "comments") { $comments{$i} = $contents } if($label eq "related") { $related{$i} = $contents } if($label eq "height") { $height{$i} = $contents } } } } close(FILE); print qq(

$title{$img}

Java support is required for panoramic images.

$comments{$img}

Can't see the image? click here

); for($x = 1; $x <= $filenum; ++$x) { print "\n"; print "\n"; if(++$x <= $filenum) { print "\n"; } else { print "\n"; } } print qq(

Other 360-degree panoramas
$title{$filelist[$x]}		$title{$filelist[$x]}

Return to:

Marshfield panoramas
Marshfield photos
Marshfield home page

); &html_bottom(); sub html_bottom { print qq(

This page designed and copyright © 1996-2007 by Page Crafters. All rights reserved. ); exit; } sub html_top { open FILE, "../nav.html"; while () { $content.=$_; } close FILE; print "Content-type: text/html\n\n"; print qq ( Marshfield, Massachusetts

$content

); }