Mercurial > judyates

annotate perl/meet_the_artist.pl @ 15:b6ba604307fc judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r16] changed the menus to a parenthesized form. Final tests for live site completed.
author rlm
date Mon, 12 Apr 2010 05:20:34 -0400
parents 3f6b44aa6b35
children 903b91a97990
rev   line source
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@15 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@3 153 }