Mercurial > judyates
annotate perl/recent_sales.pl @ 0:60668cf4f443 judyates
[svn r1] initial import
author | rlm |
---|---|
date | Sun, 03 Jan 2010 04:38:50 -0500 |
parents | |
children | 903b91a97990 |
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 © 2007 Robert McIntyre. All pictures Copyright © 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 |