Mercurial > judyates

comparison perl/meet_the_artist.pl @ 0:60668cf4f443 judyates

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