view perl/meet_the_artist.pl @ 3:3f6b44aa6b35 judyates

[svn r4] added ability to buy stuff, from a Prints page, but it doesn't work well with the css, and it also has not been fitted into the perl make system.
author rlm
date Mon, 22 Feb 2010 08:02:39 -0500
parents 60668cf4f443
children b6ba604307fc
line wrap: on
line source

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 );
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 );
32 @duck1 = qw(
34 stamp001
35 stamp003
36 stamp005
37 stamp007
38 stamp009
39 stamp011
41 );
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 );
54 &make_page(1,"hunt");
55 &make_page(2,"duck");
59 sub make_page{
62 $page = $_[0];
63 $arr = $_[1];
65 @names = @{$arr};
67 @namess = @{$arr."1"};
72 open FILE, ">../Meet the Artist$page.html";
73 select FILE;
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;
91 print <<HERE;
92 <table>
97 <table cellpadding="0" cellspacing="0" width="640">
99 HERE
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>";
105 $start = 0;
106 $end = $#namess;
107 print '<table cellpadding="0" cellspacing="20px" width="640">';
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>'; }
119 }
122 print <<THERE;
127 </table>
130 </table>
131 THERE
133 if (open TXT, "<../texts/Meet the Artist$page.txt"){
134 while (<TXT>){print;}
135 close TXT;
136 }
140 open MENU, "<../menu.html";
141 while (<MENU>){print;}
142 close MENU;
144 print <<THERE;
145 </body>
146 </html>
150 THERE
153 }