view 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
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 Stone
17 </title>
19 <span>
20 <img src = "./album_pics/3_logo.jpg">
21 </span>
22 HERE
23 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 &copy 2007 Robert McIntyre. All pictures Copyright &copy Judy Yates.<br>Special thanks to Dylan Holmes for designing the main banner.</div>
48 </body>
51 </html>
53 HERE