judyates: perl/recent_sales.pl annotate

whatever

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

Mercurial > judyates