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