rlm@0
|
1
|
rlm@0
|
2 @hunt = qw(
|
rlm@0
|
3 (small)hunting_1.jpg
|
rlm@0
|
4 (small)hunting_2.jpg
|
rlm@0
|
5 (small)hunting_3.jpg
|
rlm@0
|
6 (small)hunting_4.jpg
|
rlm@0
|
7 (small)hunting_5.jpg
|
rlm@0
|
8 (small)hunting_6.jpg
|
rlm@0
|
9 (small)hunting_7.jpg
|
rlm@0
|
10 (small)hunting_8.jpg
|
rlm@0
|
11 (small)hunting_9.jpg
|
rlm@0
|
12 (small)hunting_10.jpg
|
rlm@0
|
13 (small)hunting_11.jpg
|
rlm@0
|
14 (small)hunting_12.jpg
|
rlm@0
|
15 );
|
rlm@0
|
16
|
rlm@0
|
17 @hunt1 = qw(
|
rlm@0
|
18 hunting_1
|
rlm@0
|
19 hunting_2
|
rlm@0
|
20 hunting_3
|
rlm@0
|
21 hunting_4
|
rlm@0
|
22 hunting_5
|
rlm@0
|
23 hunting_6
|
rlm@0
|
24 hunting_7
|
rlm@0
|
25 hunting_8
|
rlm@0
|
26 hunting_9
|
rlm@0
|
27 hunting_10
|
rlm@0
|
28 hunting_11
|
rlm@0
|
29 hunting_12
|
rlm@0
|
30 );
|
rlm@0
|
31
|
rlm@0
|
32 @duck1 = qw(
|
rlm@0
|
33
|
rlm@0
|
34 stamp001
|
rlm@0
|
35 stamp003
|
rlm@0
|
36 stamp005
|
rlm@0
|
37 stamp007
|
rlm@0
|
38 stamp009
|
rlm@0
|
39 stamp011
|
rlm@0
|
40
|
rlm@0
|
41 );
|
rlm@0
|
42
|
rlm@0
|
43
|
rlm@0
|
44
|
rlm@0
|
45 @duck = qw(
|
rlm@0
|
46 stamp001(small).jpg
|
rlm@0
|
47 stamp003(small).jpg
|
rlm@0
|
48 stamp005(small).jpg
|
rlm@0
|
49 stamp007(small).jpg
|
rlm@0
|
50 stamp009(small).jpg
|
rlm@0
|
51 stamp011(small).jpg
|
rlm@0
|
52 );
|
rlm@0
|
53
|
rlm@0
|
54 &make_page(1,"hunt");
|
rlm@0
|
55 &make_page(2,"duck");
|
rlm@0
|
56
|
rlm@0
|
57
|
rlm@0
|
58
|
rlm@0
|
59 sub make_page{
|
rlm@0
|
60
|
rlm@0
|
61
|
rlm@0
|
62 $page = $_[0];
|
rlm@0
|
63 $arr = $_[1];
|
rlm@0
|
64
|
rlm@0
|
65 @names = @{$arr};
|
rlm@0
|
66
|
rlm@0
|
67 @namess = @{$arr."1"};
|
rlm@0
|
68
|
rlm@0
|
69
|
rlm@0
|
70
|
rlm@0
|
71
|
rlm@0
|
72 open FILE, ">../Meet the Artist$page.html";
|
rlm@0
|
73 select FILE;
|
rlm@0
|
74
|
rlm@0
|
75 print <<HERE;
|
rlm@0
|
76 <html>
|
rlm@0
|
77 <title> Biography of Judy Yates</title>
|
rlm@0
|
78 <head>
|
rlm@0
|
79 <link rel="stylesheet" type="text/css"
|
rlm@0
|
80 href="firetest.css"> </link>
|
rlm@0
|
81 </head>
|
rlm@0
|
82 <body>
|
rlm@0
|
83 <span>
|
rlm@0
|
84 <img src = "./album_pics/3_logo.jpg"></img> <span class = "vcenter"></span>
|
rlm@0
|
85 </span>
|
rlm@0
|
86 HERE
|
rlm@0
|
87 open MENU, "<../menu.html";
|
rlm@0
|
88 while (<MENU>){print;}
|
rlm@0
|
89 close MENU;
|
rlm@0
|
90
|
rlm@0
|
91 print <<HERE;
|
rlm@0
|
92 <table>
|
rlm@0
|
93
|
rlm@0
|
94
|
rlm@0
|
95
|
rlm@0
|
96
|
rlm@0
|
97 <table cellpadding="0" cellspacing="0" width="640">
|
rlm@0
|
98
|
rlm@0
|
99 HERE
|
rlm@0
|
100
|
rlm@0
|
101 $menux = '<div class = "menu"><ul class = "menu"><li class = "menu"><a class = "menu" href = "./Meet the Artist1.html">Hunting Pics</a></li><li class = "menu"><a class = "menu" href = "./Meet the Artist2.html">Federal Duck Stamp Entries</a></li></ul></div>';
|
rlm@0
|
102 print "<tr><td>$menux</td></tr></table>";
|
rlm@0
|
103
|
rlm@0
|
104
|
rlm@0
|
105 $start = 0;
|
rlm@0
|
106 $end = $#namess;
|
rlm@0
|
107 print '<table cellpadding="0" cellspacing="20px" width="640">';
|
rlm@0
|
108
|
rlm@0
|
109 foreach($start..$end){
|
rlm@0
|
110 #print "\n\n****".($_%3)."****\n\n";
|
rlm@0
|
111 if (($_%3 )== 0){print '<tr>'; }
|
rlm@0
|
112 print '<td>';
|
rlm@0
|
113 $name = $names[$_];
|
rlm@0
|
114 $namess = $namess[$_];
|
rlm@0
|
115 print '<a href ="artwork_descriptions/'.$namess.'.html" class = "gallery"> <img class = "gallery" src = "album_pics/'.$name.'" width = "200"></img></a>'."\n";
|
rlm@0
|
116 print '</td>';
|
rlm@0
|
117 if (($_%3) == 2){print '</tr>'; }
|
rlm@0
|
118
|
rlm@0
|
119 }
|
rlm@0
|
120
|
rlm@0
|
121
|
rlm@0
|
122 print <<THERE;
|
rlm@0
|
123
|
rlm@0
|
124
|
rlm@0
|
125
|
rlm@0
|
126
|
rlm@0
|
127 </table>
|
rlm@0
|
128
|
rlm@0
|
129
|
rlm@0
|
130 </table>
|
rlm@0
|
131 THERE
|
rlm@0
|
132
|
rlm@0
|
133 if (open TXT, "<../texts/Meet the Artist$page.txt"){
|
rlm@0
|
134 while (<TXT>){print;}
|
rlm@0
|
135 close TXT;
|
rlm@0
|
136 }
|
rlm@0
|
137
|
rlm@0
|
138
|
rlm@0
|
139
|
rlm@0
|
140 open MENU, "<../menu.html";
|
rlm@0
|
141 while (<MENU>){print;}
|
rlm@0
|
142 close MENU;
|
rlm@0
|
143
|
rlm@0
|
144 print <<THERE;
|
rlm@0
|
145 </body>
|
rlm@0
|
146 </html>
|
rlm@0
|
147
|
rlm@0
|
148
|
rlm@0
|
149
|
rlm@0
|
150 THERE
|
rlm@0
|
151
|
rlm@0
|
152
|
rlm@0
|
153 } |