Mercurial > judyates
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="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 |