Mercurial > judyates
view perl/recent_sales.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, ">../recent_sales.html";2 select FILE;3 print <<HERE;6 <html>7 <head>8 <link rel="stylesheet" type="text/css"9 href="firetest.css"> </link>10 </head>11 <body>15 <Title>16 Judy Yates -- Wildlife and Pets on Stone17 </title>19 <span>20 <img src = "./album_pics/3_logo.jpg">21 </span>22 HERE23 open MENU, "<../menu.html";24 while (<MENU>){print;}25 close MENU;28 $finla = "recent_sales";30 if (open TXT, "<../texts/$finla.txt"){31 while (<TXT>){print;}32 close TXT;33 }38 open MENU, "<../menu.html";39 while (<MENU>){print;}40 close MENU;41 print <<HERE;43 <div class = "copyright"><br><br>Copyright © 2007 Robert McIntyre. All pictures Copyright © Judy Yates.<br>Special thanks to Dylan Holmes for designing the main banner.</div>48 </body>51 </html>53 HERE