annotate perl/recent_sales.pl @ 0:60668cf4f443 judyates

[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children 903b91a97990
rev   line source
rlm@0 1 open FILE, ">../recent_sales.html";
rlm@0 2 select FILE;
rlm@0 3 print <<HERE;
rlm@0 4
rlm@0 5
rlm@0 6 <html>
rlm@0 7 <head>
rlm@0 8 <link rel="stylesheet" type="text/css"
rlm@0 9 href="firetest.css"> </link>
rlm@0 10 </head>
rlm@0 11 <body>
rlm@0 12
rlm@0 13
rlm@0 14
rlm@0 15 <Title>
rlm@0 16 Judy Yates -- Wildlife and Pets on Stone
rlm@0 17 </title>
rlm@0 18
rlm@0 19 <span>
rlm@0 20 <img src = "./album_pics/3_logo.jpg">
rlm@0 21 </span>
rlm@0 22 HERE
rlm@0 23 open MENU, "<../menu.html";
rlm@0 24 while (<MENU>){print;}
rlm@0 25 close MENU;
rlm@0 26
rlm@0 27
rlm@0 28 $finla = "recent_sales";
rlm@0 29
rlm@0 30 if (open TXT, "<../texts/$finla.txt"){
rlm@0 31 while (<TXT>){print;}
rlm@0 32 close TXT;
rlm@0 33 }
rlm@0 34
rlm@0 35
rlm@0 36
rlm@0 37
rlm@0 38 open MENU, "<../menu.html";
rlm@0 39 while (<MENU>){print;}
rlm@0 40 close MENU;
rlm@0 41 print <<HERE;
rlm@0 42
rlm@0 43 <div class = "copyright"><br><br>Copyright &copy 2007 Robert McIntyre. All pictures Copyright &copy Judy Yates.<br>Special thanks to Dylan Holmes for designing the main banner.</div>
rlm@0 44
rlm@0 45
rlm@0 46
rlm@0 47
rlm@0 48 </body>
rlm@0 49
rlm@0 50
rlm@0 51 </html>
rlm@0 52
rlm@0 53 HERE