Mercurial > judyates
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 HERE19 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="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.27 </P>28 </div>30 HERE31 open MENU, "<../menu.html";32 while (<MENU>){print;}33 close MENU;34 print <<HERE;36 </body>37 </html>39 HERE