judyates: perl/recent_sales.pl annotate

[svn r1] initial import

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@0	8 <link rel="stylesheet" type="text/css"
rlm@0	9 href="firetest.css"> </link>
rlm@0	10 </head>
rlm@0	11 <body>
rlm@0	12
rlm@0	13
rlm@0	14
rlm@0	15 <Title>
rlm@0	16 Judy Yates -- Wildlife and Pets on Stone
rlm@0	17 </title>
rlm@0	18
rlm@0	19 <span>
rlm@0	20 <img src = "./album_pics/3_logo.jpg">
rlm@0	21 </span>
rlm@0	22 HERE
rlm@0	23 open MENU, "<../menu.html";
rlm@0	24 while (<MENU>){print;}
rlm@0	25 close MENU;
rlm@0	26
rlm@0	27
rlm@0	28 $finla = "recent_sales";
rlm@0	29
rlm@0	30 if (open TXT, "<../texts/$finla.txt"){
rlm@0	31 while (<TXT>){print;}
rlm@0	32 close TXT;
rlm@0	33 }
rlm@0	34
rlm@0	35
rlm@0	36
rlm@0	37
rlm@0	38 open MENU, "<../menu.html";
rlm@0	39 while (<MENU>){print;}
rlm@0	40 close MENU;
rlm@0	41 print <<HERE;
rlm@0	42
rlm@0	43 <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	44
rlm@0	45
rlm@0	46
rlm@0	47
rlm@0	48 </body>
rlm@0	49
rlm@0	50
rlm@0	51 </html>
rlm@0	52
rlm@0	53 HERE

Mercurial > judyates