Gallery of Original Artwork by Judy Yates

rlm@0: @namess = qw( rlm@0: hunting_1 rlm@0: hunting_2 rlm@0: hunting_3 rlm@0: hunting_4 rlm@0: hunting_5 rlm@0: hunting_6 rlm@0: hunting_7 rlm@0: hunting_8 rlm@0: hunting_9 rlm@0: hunting_10 rlm@0: hunting_11 rlm@0: hunting_12 rlm@0: stamp001 rlm@0: stamp003 rlm@0: stamp005 rlm@0: stamp007 rlm@0: stamp009 rlm@0: stamp011 rlm@0: ); rlm@0: rlm@0: rlm@0: foreach(0..$#namess){ rlm@0: $nnnum = $_; rlm@0: $finla = $namess[$nnnum]; rlm@0: $prevla = $namess[$nnnum-1].".html"; rlm@0: $nextla = $namess[$nnnum+1].".html"; rlm@0: $galnum = int($nnnum/9 + 1); rlm@0: rlm@0: if ($namess[$_]=~/^s/){ rlm@0: print "stamp"; rlm@0: $galname = "Duck Stamps"; rlm@0: $galla = "../Meet the Artist2.html";} rlm@0: rlm@0: if ($namess[$_]=~/^h/){ rlm@0: print "hunt"; rlm@0: $galname = "Hunting Pics"; rlm@0: $galla = "../Meet the Artist1.html";} rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: print "../artwork_descriptions/$finla.html\n" ; rlm@0: open FILE, ">../artwork_descriptions/$finla.html"; rlm@0: rlm@0: rlm@0: rlm@0: select FILE; rlm@0: rlm@0: print < rlm@0: Gallery of Original Artwork by Judy Yates rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0:

rlm@0: rlm@0: HERE rlm@0: rlm@0: open MENU, "<../menu2.html"; rlm@0: while (){print;} rlm@0: close MENU; rlm@0: rlm@0: print < rlm@0: rlm@0: rlm@0: HERE rlm@0: rlm@0: if($nnnum == 0){ rlm@0: print ""; rlm@0: } rlm@0: rlm@0: elsif ($nnnum == $#namess){ rlm@0: rlm@0: print ""; rlm@0: } rlm@0: rlm@0: else { rlm@0: print ""; rlm@0: } rlm@0: rlm@0: rlm@0: rlm@0: print "

\n"; rlm@0: rlm@0: print < rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: HERE rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: if (open TXT, "<../texts/$finla.txt"){ rlm@0: while (){print;} rlm@0: close TXT; rlm@0: } rlm@0: rlm@0: rlm@0: rlm@0: open MENU, "<../menu2.html"; rlm@0: while (){print;} rlm@0: close MENU; rlm@0: rlm@0: print < rlm@0: rlm@0: HERE rlm@0: rlm@0: close FILE; rlm@0: select STDOUT; }