Mercurial > judyates

annotate perl/meet_the_artist_descriptions.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
rev   line source
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; }