view perl/recent_sales.pl @ 27:5cba379693e7 judyates

whatever
author Robert McIntyre <rlm@mit.edu>
date Sat, 18 Apr 2015 21:23:32 -0700
parents 903b91a97990
children
line wrap: on
line source
1 open FILE, ">../recent_sales.html";
2 select FILE;
3 print <<HERE;
6 <html>
7 <head>
8 <title>Judy Yates -- Wildlife and Pets on Stone</title>
9 <link rel="stylesheet" type="text/css" href="firetest.css"> </link>
10 <script type="text/javascript" src="/js/google_analytics.js"></script>
11 </head>
12 <body>
17 <span>
18 <img src = "./album_pics/3_logo.jpg">
19 </span>
20 HERE
21 open MENU, "<../menu.html";
22 while (<MENU>){print;}
23 close MENU;
26 $finla = "recent_sales";
28 if (open TXT, "<../texts/$finla.txt"){
29 while (<TXT>){print;}
30 close TXT;
31 }
36 open MENU, "<../menu.html";
37 while (<MENU>){print;}
38 close MENU;
39 print <<HERE;
41 <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>
46 </body>
49 </html>
51 HERE