annotate perl/Contact.pl @ 13:f16185fe9ed9 judyates

[svn r14]
author rlm
date Mon, 12 Apr 2010 03:30:00 -0400
parents 60668cf4f443
children 903b91a97990
rev   line source
rlm@0 1 open FILE, ">../Contact.html";
rlm@0 2 select FILE;
rlm@0 3 print <<HERE;
rlm@0 4
rlm@0 5
rlm@0 6 <html>
rlm@0 7 <title>Contact Information for Judy Yates</title>
rlm@0 8 <head>
rlm@0 9 <link rel="stylesheet" type="text/css"
rlm@0 10 href="firetest.css"> </link>
rlm@0 11 </head>
rlm@0 12 <body>
rlm@0 13 <span>
rlm@0 14 <img src = "./album_pics/3_logo.jpg"></img>
rlm@0 15
rlm@0 16 </span>
rlm@0 17
rlm@0 18 HERE
rlm@0 19 open MENU, "<../menu.html";
rlm@0 20 while (<MENU>){print;}
rlm@0 21 close MENU;
rlm@0 22 print <<HERE;
rlm@0 23
rlm@0 24 <div class = "orangebox">
rlm@0 25 <p class = "orangebox">
rlm@0 26 <Span class = "paragraph">Judy Yates</span> is happy to discuss orders, gift ideas, and other related inquiries via e-mail. Her address is <a href="&#x6d;&#97;&#x69;&#x6c;&#116;&#111;&#58;&#106;&#x6e;&#x79;&#x61;&#x74;&#101;&#x73;&#x40;&#x6a;&#x75;&#x64;&#x79;&#97;&#116;&#101;&#x73;&#46;&#x63;&#x6f;&#109;"><span class = "email">&#106;&#x6e;&#x79;&#x61;&#116;&#101;&#x73;&#x40;&#x6a;&#x75;&#x64;&#x79;&#x61;&#x74;&#x65;&#115;&#x2e;&#99;&#x6f;&#109;</span></a>. She can also be reached by cell phone at &#x28;&#50;&#x31;&#52;&#41;&#45;&#52;&#x31;&#56;&#x2d;&#52;&#x37;&#48;&#x36;. All e-mails will be answered within 24 hours.
rlm@0 27 </P>
rlm@0 28 </div>
rlm@0 29
rlm@0 30 HERE
rlm@0 31 open MENU, "<../menu.html";
rlm@0 32 while (<MENU>){print;}
rlm@0 33 close MENU;
rlm@0 34 print <<HERE;
rlm@0 35
rlm@0 36 </body>
rlm@0 37 </html>
rlm@0 38
rlm@0 39 HERE
rlm@0 40
rlm@0 41