Mercurial > judyates
view perl/artwork_descriptions.pl @ 17:46fdf059b154 judyates
preparing to add google analytics
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 11 Jul 2011 02:43:59 -0400 |
parents | 60668cf4f443 |
children | 903b91a97990 |
line wrap: on
line source
1 @namess = qw(2 German_Shorthair_Hunting_Dog_on_light_brown_marble_20073 growling_grizzly_bear_on_black_and_white_marble_with_rust_inclusions_20074 wood_duck_standing_on_branch_in_water_on_green_and_white_marble_20075 brown_trout_swimming_on_ochre_granite_with_multicolored_specks_20076 big_mouth_bass_hooked_on_lure_on_green_pearlecent_granite_20077 pheasant_head_profile_on_black_granite_20078 non-typical_mule_deer_buck_walking_on_light_brown_marble_20079 white_tail_buck_with_head_turned_three_quarter_pose_on_light_brown_marble_200710 roan_texas_longhorn_steer_on_triangular_green_and_white_marble_with_silver_specks_200711 half_body_mule_deer_buck_on_light_brown_marble_199912 full_pose_pointer_on_ochre_marble_2_199813 eagle_hunting_for_prey_on_beige_white_marble_200014 pointer_head_with_quail_on_beige_travertine_marble_199815 full_pose_pointer_on_ochre_marble_199816 male_cardinal_perched_on_purple_and_green_marble_199917 african_lion_head_profile_on_multicolored_granite_199918 bluejay_perched_on_light_green_marble_199919 charging_african_elephant_on_beige_travertine_marble_199920 eagle_head_on_black_granite_199921 bugling_bull_moose_head_on_beige_marble_199922 bobwhite_chirping_on_brown_and_snow_marble_199923 texas_longhorn_steer_on_triangular_grey_marble_199824 full_body_buffalo_grey_marble_199925 swimming_bottlenose_dolphin_on_green_and_white_marble_199926 red_fox_on_travertine_marble_199927 bobwhite_quail_on_marble_with_rust_inclusions_199928 flying_wild_turkey_on_downstroke_on_ochre_marble_199929 flying_pheasant_on_travertine_199930 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_pink_marble_199931 white_ram_head_on_triangular_grey_marble_199932 pintail_duck_in_flight_on_azul_do_mar_granite_199933 full_mallard_swmming_straight_at_you_on_grey_granite_199934 black_lab_sitting_with_canvasback_duck_in_mouth_on_grey_marble_with_rust_inclusions_200035 red_texas_longhorn_head_on_triangular_speckled_green_and_beige_granite_undated36 trophy_bull_elk_rear_view_on_white_and_grey_marble_199937 grey_timberwolf_head_study_on_black_granite_with_gold_specks_199838 grizzly_bear_baring_teeth_on_yellow_ochre_199939 prong-horn_male_antelope_head_study_on_pink_granite_199940 golden_retriever_head_on_light_brown_travertine_199941 strutting_wild_turkey_on_brown_and_white_marble_199942 timberwolf_standing_on_ledge_on_purple_green_black_and_white_marble_(very_large)_199743 full_flying_pheasant_on_ochre_and_black_granite_200244 big_mouth_bass_struggling_with_hook_in_mouth_on_green_marble_199945 beautiful_black_lab_head_with_pheasant_in_mouth_on_pure_white_marble_199946 black_lab_head_study_with_grouse_in_mouth_on_white_marble_199947 wood_duck_sitting_on_water_with_reflection_on_green_and_yellow_marble_199948 hooked_big_mouth_bass_on_green_and_yellow_marble_199949 full_body_white_tailed_deer_walking_through_water_on_green_marble_199950 bugling_bull_elk_head_and_chest_on_white_marble_199951 upper_body_of_moose_with_foliage_on_azul_do_mar_199952 howling_timberwolf_on_grey_marble_199953 jumping_big_mouth_bass_with_yellow_lure_on_green_marble_199954 golden_retriever_puppy_head_and_chest_on_grey_granite_199955 orca_whale_jumping_out_of_water_on_blue_granite_199956 black_lab_walking_through_water_with_duck_in_mouth_on_grey_granite_199957 black_lab_sitting_with_pheasant_in_mouth_on_beige_and_ochre_byzantine_199958 sitting_black_lab_drake_mallard_in_mouth_with_reeds_on_white_marble_199959 golden_eagle_head_with_beak_open_blue_granite_199960 red_fox_walking_straight_at_you_on_snow_white_marble_199961 mallard_male_and_female_pair_swimming_on_blue_granite_199962 pair_of_flying_mallards_on_green_and_white_marble_199963 soaring_bald_marble_on_beige_marble_199964 yellow_lab_head_and_chest_on_brown_pentagonal_marble_199965 happy_golden_retriever_head_study_on_black_granite_199966 timberwolf_straight-on_head_on_triangular_grey_and_pink_marble_199967 white_tail_trophy_deer_head_and_chest_on_beige_and_ochre_travertine_199968 white_tail_deer_upper_body_on_light_brown_marble_199969 gobbling_wild_turkey_on_rust_colored_marble_199970 mallard_landing_on_water_on_bluish-grey_granite_199971 pintail_sitting_on_water_with_cat-tail_reeds_on_bluish-grey_granite_199972 flying_mallard_on_blue_white_and_black_granite_199973 soaring_bald_eagle_on_flesh_colored_marble_199974 redhead_drake_duck_head_study_on_greenish_grey_granite_199975 three_strolling_african_elephants_on_beige_and_copper_marble_199976 golden_retriever_head_and_chest_with_mallard_in_mouth_on_paisley_granite_199877 peregrine_falcon_head_and_chest_on_triangular_white_marble_199978 horned_owl_head_and_chest_on_beige_and_ochre_travertine_199979 pink_rose_and_rosebud_on_black_granite_with_gold_specks_199980 big_buck_on_speckled_beige_granite_199981 white_tail_buck_head_and_chest_on_yellow_travertine_199982 full_body_buffalo_profile_on_white_black_and_pink_granite_199983 bald_eagle_head_on_labrador_blue_pearl_granite_199984 black_lab_profile_carrying_mallard_through_water_on_green-grey_granite_199985 pheasant_flying_on_light_multicolored_marble_200386 golden_retriever_head_with_pintail_on_triangular_speckled_granite_199987 roadrunner_on_ochre_199988 bald_eagle_head_with_open_beak_on_triangular_purple_marble_199989 hummingbird_sipping_from_yellow_columbine_on_beige_marble_199990 african_lion_head_on_speckled_granite_199991 wood_duck_standing_in_snow_on_light_brown_marble_199992 canadian_goose_preparing_to_land_on_grey_granite_199993 red_texas_longhorn_on_white_triangular_marble_199994 flying_wood_duck_on_purple_marble_199995 flying_pheasant_on_downstroke_on_yellow_ochre_199996 blue_jay_on_twig_on_grey_white_and_ochre_marble_199997 chocolate_lab_head_and_chest_on_pink_granite_199998 mountain_goat_full_body_on_white_marble_199999 flying_mallard_on_highly_crystalized_black_and_grey_stone_1999_100 non-typical_trophy_whitetail_buck_on_light_brown_marble_1999101 golden_retriever_resting_on_beige_byzantine_1999102 irish_setter_laying_on_grass_on_brown_and_white_marble_1999103 yellow_lab_with_quail_on_brown_marble_with_golden_lighting_1999104 black_lab_retrieving_mallard_on_greenish_grey_granite_1999105 bobwhite_quail_covey_flying_on_ochre_and_beige_travertine_date_unavailable106 whitetail_buck_head_and_chest_on_brown_and_rust_marble_1999_107 bald_eagle_head_profile_on_black_grante_with_small_gold_specks_1998108 pheasant_head_profile_on_ochre_marble_1999109 black_lab_head_with_pintail_on_white_marble_1998110 black_lab_head_profile_with_pheasant_on_white_marble_1998111 young_chocolate_lab_head_with_mallard_on_flesh_colored_marble_1998112 shitzu_head_study_named_Abbe_on_black_granite_2002_113 britney_spaniel_head_study_with_tongue_on_purple_and_green_marble_1999114 timberwolf_full_profile_on_green_and_purple_marble_with_high_crystalization_1999115 gallery_display--custom_order_for_one_person116 gallery_display_2--custom_order_for_one_person117 gallery_display_3--custom_order_for_one_person118 gallery_display_4--custom_order_for_one_person119 brown_trout_with_fly_on_green_granite_1999120 smiling_bald_eagle_head_on_black_granite_1999_121 maltese_named_happy_3_ages_on_black_granite_unsigned_undated122 strutting_wild_turkey_profile_on_brown_and_white_marble_1998123 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_ochre_marble_1999124 black_lab_with_head_cocked_and_flying_mallards_in_background_on_grey_byzantine_1999125 cardinal_perched_on_branch_on_black_marble_with_white_veins_1999126 red_fox_standing_in_snow_on_right_triangular_white_marble_with_grey_vein_1997127 golden_retreiver_puppy_head_and_fromt_paws_laying_on_brown_marble_1996128 king_charles_spaniel_named_sophie_on_beige_marble_2002129 rufus_hummingbird_sipping_nectar_from_red_flowers_on__brown_and_white_marble_1999130 ruby_throated_sipping_from_cluster_of_pink_flowers_on_flesh_tone_marble_1999131 bluebird_perched_on_white_and_grey_rectangular_marble_1999_132 mockingbird_perched_on_a_branch_on_dark_and_light_green_marble_1999133 siberian_tiger_head_and_chest_on_multicolored_ochre_granite_1999134 german_shepard_named_Geta_head_and_chest_on_white_granite_2002135 friendly_grizzly_bear_head_and_chest_on_black_and_gold_granite_1999136 monster_whitetail_buck_and_doe_standing_in_water_on_azul_do_mar_1999137 yellow_lab_sitting_in_reeds_with_mallard_on_brown_and_white_marble_1999138 german_shorthair_full_profile_with_quail_on_brown_and_white_marble_1999139 English_Setter_on_granite_1999140 grizly_bear_head_snaging_salmon_out_of_water_on_green_marble_1999141 pintail_pair--drake_and_hen_flying_on_pink-grey_paisley_1999142 mourning_dove_dodging_bullet_on_grey_and_rust_marble_1999143 horn_toad_lizard_on_light_brown_and_white_marble_1999144 whitetail_deer_upper_body_on_beige_marble_1998145 black_poodle_naned_chanel_with_stuffed_animal_on_light_brown_marble_1999146 wild_turkey_three-quarter_pose_gobbing_on_ochre_and_dark_brown_granite_1998147 red_head_pair_drake_and_hen_flying_on_beige_and_grey_travertine_1999148 wood_duck_drake_head_and_chest_on_water_on_greenish_grey_marble_1999149 yello_lab_with_canvasback_in_mouth_on_beige_marble_1999150 poodle_named_Scarlett_on_black_granite_2002151 coyote_standing_in_snow_on_white_and_beige_marble_1999152 canadian_goose_flying_over_water_on_downstroke_on_wavelike_green_and_grey_granite_1999153 mourning_dove_sitting_on_branch_on_purple_marble_1999154 killer_whale_head_emerging_from_ocean_on_greenish_grey_granite_1999155 majestic_caribou_head_and_chest_on_ochre_marble_1999156 orca_whale_preforming_bellyflop_on_green_marble_1999157 yellow_lab_head_with_bobwhite_quail_on_black_granite_1999158 redbird_on_branch_on_green_and_white_marble_1999159 yellow_lab_resting_on_grass_on_black_granite_with_copper_sparkles_1999160 tom_turkey_head_profile_on_green_marble_1998161 whitetail_buck_head_and_chest_on_ochre_1998162 bugling_elk_fromt_pose_on_black_granite_1998163 bull_elk_laying_in_the_snow_on_white_and_grey_marble_1999164 mountain_goat_head_profile_on_white_marble_1999165 wood_duck_full_standing_on_white_circular_marble_1999166 dog_named_Ulysse_on_beige_travertine_2000167 set_of_three_owls_1995168 female_cardinal_in_snow_on_black_grey_and_white_marble_1999169 bugling_elk_full_profile_on_white_and_grey_marble_1999170 black_lab_flushing_single_quail_on_light_brown_marble_1999171 bugling_elk_head_only_on_forest_green_marble_1999172 mountain_lion_sitting_on_black_and_white_marble_1999173 dolphin_peeking_out_of_ocean_on_green_marble_1999174 full_standing_pheasant_profile_on_ochre_marble_1998175 full_standing_pheasant_profile_on_grey_and_white_marble_1998176 flying_pheasant_with_cattails_on_beige_marble_1998177 yellow_lab_retrieving_mallard_on_greenish_grey_marble_1999178 black_lab_retrieving_pheasant_on_light_brown_marble_1999179 unfriendly_grizzly_bear_head_and_chest_on_beige_marble_1998180 black_bear_three_quarter_view_on_beige_and_ochre_marble_1999181 mallard_coming_in_to_land_on_pink_and_grey_marble_1999182 loon_on_water_on_green_marble_1999183 britney_spaniel_with_grouse_on_beige_and_ochre_marble_1998184 yellow_lab_head_on_grey_and_pink_marble_1999185 black_lab_three_quarter_profile_on_beige_marble_1998186 chocolate_lab_three_quarter_profile_on_beige_marble_1998187 whitetail_deer_standing_in_water_on_green_marble_1998188 big_mouth_bass_hooked_on_black_lure_on_green-grey_granite_1999189 18_dogs_on_a_30_inch_by_40_inch_canvas_1998);194 foreach(0..$#namess){195 $nnnum = $_;196 $finla = $namess[$nnnum];197 $prevla = $namess[$nnnum-1].".html";198 $nextla = $namess[$nnnum+1].".html";199 $galnum = int($nnnum/9 + 1);200 $galname = "page $galnum";201 $galla = "../gallery$galnum.html";203 print "../artwork_descriptions/$finla.html\n" ;204 open FILE, ">../artwork_descriptions/$finla.html";208 select FILE;210 print <<HERE;211 <html>212 <title> Gallery of Original Artwork by Judy Yates</title>213 <head>214 <link rel="stylesheet" type="text/css"215 href="../firetest.css" />216 </head>217 <body>218 <span>219 <img src = "../album_pics/3_logo.jpg"></img>220 </span>221 HERE223 open MENU, "<../menu2.html";224 while (<MENU>){print;}225 close MENU;226 print <<HERE;227 <table>228 <tr><td>229 <div class = "nav">230 <ul class = "nav">231 HERE233 $k = $galnum;234 for($m=1;$m<=21;$m++) {235 print '<li class = "nav"><a ';236 if($m==$k){print 'id="cur" '}237 print 'href = "../gallery'.$m.'.html" class = "nav"> Page '.$m.' </a></li>'."\n";238 }241 print <<HERE;242 </ul>243 </div>244 </td>247 <td>249 <table cellpadding="0" cellspacing="0" width="640">250 <tr><td>252 HERE254 if($nnnum == 0){255 print "<tr><td><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td>";256 }258 elsif ($nnnum == $#namess){260 print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a></td></tr><tr><td>";261 }263 else {264 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>";265 }269 print "<$nnnum><img src = \"../images/$finla.jpg\"></img>\n";271 print <<HERE;273 </td> </tr>274 </table>276 </td></tr>277 </table>280 HERE285 if (open TXT, "<../texts/$finla.txt"){286 while (<TXT>){print;}287 close TXT;288 }292 open MENU, "<../menu2.html";293 while (<MENU>){print;}294 close MENU;296 print <<HERE;297 </body>298 </html>299 HERE301 close FILE;302 select STDOUT; }