Gallery of Original Artwork by Judy Yates

rlm@0: %names = qw( rlm@0: san_photo001 cat rlm@0: san_photo002 cat rlm@0: san_photo003 cat rlm@0: san_photo004 cat rlm@0: san_photo005 cat rlm@0: san_photo0xx cat rlm@0: san_photo0x2 cat rlm@0: san_photo052 cat rlm@0: san_photo053 cat rlm@0: san_photo054 cat rlm@0: san_photo010 dog rlm@0: san_photo011 dog rlm@0: san_photo012 dog rlm@0: san_photo013 dog rlm@0: san_photo014 dog rlm@0: san_photo015 dog rlm@0: san_photo016 dog rlm@0: san_photo017 dog rlm@0: san_photo018 dog rlm@0: san_photo019 dog rlm@0: san_photo020 dog rlm@0: san_photo021 dog rlm@0: san_photo022 dog rlm@0: san_photo023 dog rlm@0: san_photo024 dog rlm@0: san_photo025 dog rlm@0: san_photo026 dog rlm@0: san_photo027 dog rlm@0: san_photo028 dog rlm@0: san_photo029 dog rlm@0: san_photo030 dog rlm@0: san_photo031 dog rlm@0: san_photo032 dog rlm@0: san_photo033 dog rlm@0: san_photo034 dog rlm@0: san_photo035 dog rlm@0: san_photo036 dog rlm@0: san_photo037 dog rlm@0: san_photo038 dog rlm@0: san_photo039 dog rlm@0: san_photo040 dog rlm@0: san_photo041 dog rlm@0: san_photo042 dog rlm@0: san_photo045 dog rlm@0: san_photo046 dog rlm@0: san_photo047 dog rlm@0: san_photo048 dog rlm@0: san_photo049 dog rlm@0: san_photo050 dog rlm@0: san_photo051 dog rlm@0: san_photo055 dog rlm@0: san_photo056 dog rlm@0: san_photo057 dog rlm@0: san_photo058 dog rlm@0: san_photo006 horse rlm@0: san_photo007 horse rlm@0: san_photo008 horse rlm@0: san_photo009 horse rlm@0: ); rlm@0: rlm@0: @namess = qw rlm@0: rlm@0: ( rlm@0: san_photo001 rlm@0: san_photo002 rlm@0: san_photo003 rlm@0: san_photo004 rlm@0: san_photo005 rlm@0: san_photo0x2 rlm@0: san_photo0xx rlm@0: san_photo052 rlm@0: san_photo053 rlm@0: san_photo054 rlm@0: san_photo010 rlm@0: san_photo011 rlm@0: san_photo012 rlm@0: san_photo013 rlm@0: san_photo014 rlm@0: san_photo015 rlm@0: san_photo016 rlm@0: san_photo017 rlm@0: san_photo018 rlm@0: san_photo019 rlm@0: san_photo020 rlm@0: san_photo021 rlm@0: san_photo022 rlm@0: san_photo023 rlm@0: san_photo024 rlm@0: san_photo025 rlm@0: san_photo026 rlm@0: san_photo027 rlm@0: san_photo028 rlm@0: san_photo029 rlm@0: san_photo030 rlm@0: san_photo031 rlm@0: san_photo032 rlm@0: san_photo033 rlm@0: san_photo034 rlm@0: san_photo035 rlm@0: san_photo036 rlm@0: san_photo037 rlm@0: san_photo038 rlm@0: san_photo039 rlm@0: san_photo040 rlm@0: san_photo041 rlm@0: san_photo042 rlm@0: san_photo045 rlm@0: san_photo046 rlm@0: san_photo047 rlm@0: san_photo048 rlm@0: san_photo049 rlm@0: san_photo050 rlm@0: san_photo051 rlm@0: san_photo055 rlm@0: san_photo056 rlm@0: san_photo057 rlm@0: san_photo058 rlm@0: san_photo006 rlm@0: san_photo007 rlm@0: san_photo008 rlm@0: san_photo009); 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 ($names{$finla} eq "dog"){ rlm@0: print "dog"; rlm@0: $galname = "Dogs"; rlm@0: $galla = "../pets2.html";} rlm@0: rlm@0: if ($names{$finla} eq "cat"){ rlm@0: print "cat"; rlm@0: $galname = "Cats"; rlm@0: $galla = "../pets1.html";} rlm@0: rlm@0: if ($names{$finla} eq "horse"){ rlm@0: print "horse"; rlm@0: $galname = "Horses"; rlm@0: $galla = "../pets3.html";} 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; }