#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$file = $ENV{'QUERY_STRING'};
$source = "/pub/Martini/photos/Paris_desc/${file}.txt";

open (FILE, "< $source")  || die "Cant open file $source, $!";
$desc = <FILE>;
close (FILE);



print <<EOM;

<HTML>
<HEAD>
<TITLE>Martini.Net Pictures of Paris</TITLE>
<BASE HREF="http://www.martini.net/">
</HEAD>

<BODY
    BGCOLOR="#FFFFFF"
    BACKGROUND="pics/marble.gif" 
    TEXT="#0007C7"
    LINK="#B20000"
    ALINK="#FF6666"
    VLINK="#42005C">
<BASEFONT SIZE=3>


<CENTER><STRONG><FONT SIZE=+2>Enjoy the photos of Paris</FONT></STRONG></CENTER>

<P>

<CENTER>
<IMG SRC="photos/Paris_lg/${file}.jpg" BORDER="0">

<HR SIZE=2 WIDTH=20% ALIGN=center>

<TABLE ALIGN=CENTER BORDER=0 WIDTH="50%">
<TR ALIGN=CENTER><TD><B>
$desc
</B></TD></TR>
</TABLE>

<HR SIZE=2 WIDTH=20% ALIGN=center>
<P>

<IMG SRC="pics/new.gif" BORDER="0" ALT="NEW! "><A HREF="guestbook"><FONT SIZE=+1>If you like what you see please sign my Guestbook!</FONT></A>
</CENTER>

<P>
<CENTER>
<HR SIZE=2 WIDTH=40%>
<A HREF="http://www.martini.net/paris.html"><IMG ALIGN=CENTER SRC="photos/Paris_sm/099.gif" WIDTH="64" HEIGHT="96" BORDER="0" ></A>
<A HREF="http://www.martini.net/paris2.html"><IMG ALIGN=CENTER SRC="photos/Paris_sm/008.gif" WIDTH="64" HEIGHT="96" BORDER="0" ></A>
<A HREF="http://www.martini.net/paris.html"><BR>Click Here to return to photos of Paris #1.</A>
<A HREF="http://www.martini.net/paris2.html"><BR>Or Here to return to photos of Paris #2.</A>
</CENTER>

<P>
<CENTER>
<HR SIZE=2 WIDTH=40%>
<A HREF="http://www.martini.net/home.html"><IMG ALIGN=BOTTOM SRC="pics/martini_glass_trans.gif" BORDER="0" ALT="Mart
ini.net Home Page"><BR>Back to Martini.net Home Page </A>
</CENTER>

<P><CENTER><FONT SIZE=-1> &#169; 1996 Matt Martini</FONT></CENTER>


</BODY>
</HTML>


EOM


