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 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