annotate perl/recent_sales.pl @ 22:be17de86e80d judyates

add promo for old-masters stuff (very rough).
author Robert McIntyre <rlm@mit.edu>
date Sun, 09 Feb 2014 20:46:57 -0500
parents 903b91a97990
children
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@18 8 <title>Judy Yates -- Wildlife and Pets on Stone</title>
rlm@18 9 <link rel="stylesheet" type="text/css" href="firetest.css"> </link>
rlm@18 10 <script type="text/javascript" src="/js/google_analytics.js"></script>
rlm@0 11 </head>
rlm@0 12 <body>
rlm@0 13
rlm@0 14
rlm@0 15
rlm@0 16
rlm@0 17 <span>
rlm@0 18 <img src = "./album_pics/3_logo.jpg">
rlm@0 19 </span>
rlm@0 20 HERE
rlm@0 21 open MENU, "<../menu.html";
rlm@0 22 while (<MENU>){print;}
rlm@0 23 close MENU;
rlm@0 24
rlm@0 25
rlm@0 26 $finla = "recent_sales";
rlm@0 27
rlm@0 28 if (open TXT, "<../texts/$finla.txt"){
rlm@0 29 while (<TXT>){print;}
rlm@0 30 close TXT;
rlm@0 31 }
rlm@0 32
rlm@0 33
rlm@0 34
rlm@0 35
rlm@0 36 open MENU, "<../menu.html";
rlm@0 37 while (<MENU>){print;}
rlm@0 38 close MENU;
rlm@0 39 print <<HERE;
rlm@0 40
rlm@0 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>
rlm@0 42
rlm@0 43
rlm@0 44
rlm@0 45
rlm@0 46 </body>
rlm@0 47
rlm@0 48
rlm@0 49 </html>
rlm@0 50
rlm@0 51 HERE