judyates: perl/Contact.pl annotate

[svn r1] initial import

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="mailto:jnyates@judyates.com"><span class = "email">jnyates@judyates.com</span></a>. She can also be reached by cell phone at (214)-418-4706. 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

Mercurial > judyates