view perl/Contact.pl @ 13:f16185fe9ed9 judyates

[svn r14]
author rlm
date Mon, 12 Apr 2010 03:30:00 -0400
parents 60668cf4f443
children 903b91a97990
line wrap: on
line source
1 open FILE, ">../Contact.html";
2 select FILE;
3 print <<HERE;
6 <html>
7 <title>Contact Information for Judy Yates</title>
8 <head>
9 <link rel="stylesheet" type="text/css"
10 href="firetest.css"> </link>
11 </head>
12 <body>
13 <span>
14 <img src = "./album_pics/3_logo.jpg"></img>
16 </span>
18 HERE
19 open MENU, "<../menu.html";
20 while (<MENU>){print;}
21 close MENU;
22 print <<HERE;
24 <div class = "orangebox">
25 <p class = "orangebox">
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.
27 </P>
28 </div>
30 HERE
31 open MENU, "<../menu.html";
32 while (<MENU>){print;}
33 close MENU;
34 print <<HERE;
36 </body>
37 </html>
39 HERE