Mercurial > judyates
diff perl/meet_the_artist.pl @ 0:60668cf4f443 judyates
[svn r1] initial import
| author | rlm |
|---|---|
| date | Sun, 03 Jan 2010 04:38:50 -0500 |
| parents | |
| children | 3f6b44aa6b35 |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/perl/meet_the_artist.pl Sun Jan 03 04:38:50 2010 -0500 1.3 @@ -0,0 +1,153 @@ 1.4 + 1.5 +@hunt = qw( 1.6 +(small)hunting_1.jpg 1.7 +(small)hunting_2.jpg 1.8 +(small)hunting_3.jpg 1.9 +(small)hunting_4.jpg 1.10 +(small)hunting_5.jpg 1.11 +(small)hunting_6.jpg 1.12 +(small)hunting_7.jpg 1.13 +(small)hunting_8.jpg 1.14 +(small)hunting_9.jpg 1.15 +(small)hunting_10.jpg 1.16 +(small)hunting_11.jpg 1.17 +(small)hunting_12.jpg 1.18 + ); 1.19 + 1.20 +@hunt1 = qw( 1.21 +hunting_1 1.22 +hunting_2 1.23 +hunting_3 1.24 +hunting_4 1.25 +hunting_5 1.26 +hunting_6 1.27 +hunting_7 1.28 +hunting_8 1.29 +hunting_9 1.30 +hunting_10 1.31 +hunting_11 1.32 +hunting_12 1.33 +); 1.34 + 1.35 +@duck1 = qw( 1.36 + 1.37 +stamp001 1.38 +stamp003 1.39 +stamp005 1.40 +stamp007 1.41 +stamp009 1.42 +stamp011 1.43 + 1.44 +); 1.45 + 1.46 + 1.47 + 1.48 +@duck = qw( 1.49 +stamp001(small).jpg 1.50 +stamp003(small).jpg 1.51 +stamp005(small).jpg 1.52 +stamp007(small).jpg 1.53 +stamp009(small).jpg 1.54 +stamp011(small).jpg 1.55 +); 1.56 + 1.57 +&make_page(1,"hunt"); 1.58 +&make_page(2,"duck"); 1.59 + 1.60 + 1.61 + 1.62 +sub make_page{ 1.63 + 1.64 + 1.65 + $page = $_[0]; 1.66 + $arr = $_[1]; 1.67 + 1.68 + @names = @{$arr}; 1.69 + 1.70 + @namess = @{$arr."1"}; 1.71 + 1.72 + 1.73 + 1.74 + 1.75 +open FILE, ">../Meet the Artist$page.html"; 1.76 +select FILE; 1.77 + 1.78 +print <<HERE; 1.79 +<html> 1.80 +<title> Biography of Judy Yates</title> 1.81 +<head> 1.82 +<link rel="stylesheet" type="text/css" 1.83 +href="firetest.css"> </link> 1.84 +</head> 1.85 +<body> 1.86 +<span> 1.87 +<img src = "./album_pics/3_logo.jpg"></img> <span class = "vcenter"></span> 1.88 +</span> 1.89 +HERE 1.90 +open MENU, "<../menu.html"; 1.91 +while (<MENU>){print;} 1.92 +close MENU; 1.93 + 1.94 +print <<HERE; 1.95 +<table> 1.96 + 1.97 + 1.98 + 1.99 + 1.100 +<table cellpadding="0" cellspacing="0" width="640"> 1.101 + 1.102 +HERE 1.103 + 1.104 +$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>'; 1.105 +print "<tr><td>$menux</td></tr></table>"; 1.106 + 1.107 + 1.108 +$start = 0; 1.109 +$end = $#namess; 1.110 +print '<table cellpadding="0" cellspacing="20px" width="640">'; 1.111 + 1.112 +foreach($start..$end){ 1.113 + #print "\n\n****".($_%3)."****\n\n"; 1.114 + if (($_%3 )== 0){print '<tr>'; } 1.115 + print '<td>'; 1.116 + $name = $names[$_]; 1.117 + $namess = $namess[$_]; 1.118 + print '<a href ="artwork_descriptions/'.$namess.'.html" class = "gallery"> <img class = "gallery" src = "album_pics/'.$name.'" width = "200"></img></a>'."\n"; 1.119 + print '</td>'; 1.120 + if (($_%3) == 2){print '</tr>'; } 1.121 + 1.122 + } 1.123 + 1.124 + 1.125 +print <<THERE; 1.126 + 1.127 + 1.128 + 1.129 + 1.130 +</table> 1.131 + 1.132 + 1.133 +</table> 1.134 +THERE 1.135 + 1.136 +if (open TXT, "<../texts/Meet the Artist$page.txt"){ 1.137 + while (<TXT>){print;} 1.138 +close TXT; 1.139 +} 1.140 + 1.141 + 1.142 + 1.143 +open MENU, "<../menu.html"; 1.144 +while (<MENU>){print;} 1.145 +close MENU; 1.146 + 1.147 +print <<THERE; 1.148 +</body> 1.149 +</html> 1.150 + 1.151 + 1.152 + 1.153 +THERE 1.154 + 1.155 + 1.156 +} 1.157 \ No newline at end of file