|
rlm@0
|
1 @namess = qw(
|
|
rlm@0
|
2 hunting_1
|
|
rlm@0
|
3 hunting_2
|
|
rlm@0
|
4 hunting_3
|
|
rlm@0
|
5 hunting_4
|
|
rlm@0
|
6 hunting_5
|
|
rlm@0
|
7 hunting_6
|
|
rlm@0
|
8 hunting_7
|
|
rlm@0
|
9 hunting_8
|
|
rlm@0
|
10 hunting_9
|
|
rlm@0
|
11 hunting_10
|
|
rlm@0
|
12 hunting_11
|
|
rlm@0
|
13 hunting_12
|
|
rlm@0
|
14 stamp001
|
|
rlm@0
|
15 stamp003
|
|
rlm@0
|
16 stamp005
|
|
rlm@0
|
17 stamp007
|
|
rlm@0
|
18 stamp009
|
|
rlm@0
|
19 stamp011
|
|
rlm@0
|
20 );
|
|
rlm@0
|
21
|
|
rlm@0
|
22
|
|
rlm@0
|
23 foreach(0..$#namess){
|
|
rlm@0
|
24 $nnnum = $_;
|
|
rlm@0
|
25 $finla = $namess[$nnnum];
|
|
rlm@0
|
26 $prevla = $namess[$nnnum-1].".html";
|
|
rlm@0
|
27 $nextla = $namess[$nnnum+1].".html";
|
|
rlm@0
|
28 $galnum = int($nnnum/9 + 1);
|
|
rlm@0
|
29
|
|
rlm@0
|
30 if ($namess[$_]=~/^s/){
|
|
rlm@0
|
31 print "stamp";
|
|
rlm@0
|
32 $galname = "Duck Stamps";
|
|
rlm@0
|
33 $galla = "../Meet the Artist2.html";}
|
|
rlm@0
|
34
|
|
rlm@0
|
35 if ($namess[$_]=~/^h/){
|
|
rlm@0
|
36 print "hunt";
|
|
rlm@0
|
37 $galname = "Hunting Pics";
|
|
rlm@0
|
38 $galla = "../Meet the Artist1.html";}
|
|
rlm@0
|
39
|
|
rlm@0
|
40
|
|
rlm@0
|
41
|
|
rlm@0
|
42
|
|
rlm@0
|
43 print "../artwork_descriptions/$finla.html\n" ;
|
|
rlm@0
|
44 open FILE, ">../artwork_descriptions/$finla.html";
|
|
rlm@0
|
45
|
|
rlm@0
|
46
|
|
rlm@0
|
47
|
|
rlm@0
|
48 select FILE;
|
|
rlm@0
|
49
|
|
rlm@0
|
50 print <<HERE;
|
|
rlm@0
|
51 <html>
|
|
rlm@0
|
52 <title> Gallery of Original Artwork by Judy Yates</title>
|
|
rlm@0
|
53 <head>
|
|
rlm@0
|
54 <link rel="stylesheet" type="text/css"
|
|
rlm@0
|
55 href="../firetest.css" />
|
|
rlm@0
|
56 </head>
|
|
rlm@0
|
57 <body>
|
|
rlm@0
|
58 <span>
|
|
rlm@0
|
59 <img src = "../album_pics/3_logo.jpg"></img>
|
|
rlm@0
|
60 </span>
|
|
rlm@0
|
61 HERE
|
|
rlm@0
|
62
|
|
rlm@0
|
63 open MENU, "<../menu2.html";
|
|
rlm@0
|
64 while (<MENU>){print;}
|
|
rlm@0
|
65 close MENU;
|
|
rlm@0
|
66
|
|
rlm@0
|
67 print <<HERE;
|
|
rlm@0
|
68 <table cellpadding="0" cellspacing="0" width="740">
|
|
rlm@0
|
69
|
|
rlm@0
|
70
|
|
rlm@0
|
71 HERE
|
|
rlm@0
|
72
|
|
rlm@0
|
73 if($nnnum == 0){
|
|
rlm@0
|
74 print "<tr><td><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td align = \"center\">";
|
|
rlm@0
|
75 }
|
|
rlm@0
|
76
|
|
rlm@0
|
77 elsif ($nnnum == $#namess){
|
|
rlm@0
|
78
|
|
rlm@0
|
79 print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a></td></tr><tr><td align = \"center\">";
|
|
rlm@0
|
80 }
|
|
rlm@0
|
81
|
|
rlm@0
|
82 else {
|
|
rlm@0
|
83 print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td align=\"center\">";
|
|
rlm@0
|
84 }
|
|
rlm@0
|
85
|
|
rlm@0
|
86
|
|
rlm@0
|
87
|
|
rlm@0
|
88 print "<img src = \"../images/$finla.jpg\"></img>\n";
|
|
rlm@0
|
89
|
|
rlm@0
|
90 print <<HERE;
|
|
rlm@0
|
91
|
|
rlm@0
|
92 </td> </tr>
|
|
rlm@0
|
93 </table>
|
|
rlm@0
|
94
|
|
rlm@0
|
95
|
|
rlm@0
|
96
|
|
rlm@0
|
97
|
|
rlm@0
|
98 HERE
|
|
rlm@0
|
99
|
|
rlm@0
|
100
|
|
rlm@0
|
101
|
|
rlm@0
|
102
|
|
rlm@0
|
103 if (open TXT, "<../texts/$finla.txt"){
|
|
rlm@0
|
104 while (<TXT>){print;}
|
|
rlm@0
|
105 close TXT;
|
|
rlm@0
|
106 }
|
|
rlm@0
|
107
|
|
rlm@0
|
108
|
|
rlm@0
|
109
|
|
rlm@0
|
110 open MENU, "<../menu2.html";
|
|
rlm@0
|
111 while (<MENU>){print;}
|
|
rlm@0
|
112 close MENU;
|
|
rlm@0
|
113
|
|
rlm@0
|
114 print <<HERE;
|
|
rlm@0
|
115 </body>
|
|
rlm@0
|
116 </html>
|
|
rlm@0
|
117 HERE
|
|
rlm@0
|
118
|
|
rlm@0
|
119 close FILE;
|
|
rlm@0
|
120 select STDOUT; } |
