Mercurial > judyates
view perl/recent_sales.pl @ 28:118cb614cf18 judyates tip
judy bio.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 29 Dec 2015 16:26:18 -0800 |
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 HERE21 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 © 2007 Robert McIntyre. All pictures Copyright © Judy Yates.<br>Special thanks to Dylan Holmes for designing the main banner.</div>46 </body>49 </html>51 HERE