Mercurial > judyates
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 © 2007 Robert McIntyre. All pictures Copyright © 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 |