diff perl/artwork_descriptions.pl @ 0:60668cf4f443 judyates

[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children 903b91a97990
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl/artwork_descriptions.pl	Sun Jan 03 04:38:50 2010 -0500
     1.3 @@ -0,0 +1,302 @@
     1.4 +@namess = qw(
     1.5 +German_Shorthair_Hunting_Dog_on_light_brown_marble_2007
     1.6 +growling_grizzly_bear_on_black_and_white_marble_with_rust_inclusions_2007
     1.7 +wood_duck_standing_on_branch_in_water_on_green_and_white_marble_2007
     1.8 +brown_trout_swimming_on_ochre_granite_with_multicolored_specks_2007
     1.9 +big_mouth_bass_hooked_on_lure_on_green_pearlecent_granite_2007
    1.10 +pheasant_head_profile_on_black_granite_2007
    1.11 +non-typical_mule_deer_buck_walking_on_light_brown_marble_2007
    1.12 +white_tail_buck_with_head_turned_three_quarter_pose_on_light_brown_marble_2007
    1.13 +roan_texas_longhorn_steer_on_triangular_green_and_white_marble_with_silver_specks_2007
    1.14 +half_body_mule_deer_buck_on_light_brown_marble_1999
    1.15 +full_pose_pointer_on_ochre_marble_2_1998
    1.16 +eagle_hunting_for_prey_on_beige_white_marble_2000
    1.17 +pointer_head_with_quail_on_beige_travertine_marble_1998
    1.18 +full_pose_pointer_on_ochre_marble_1998
    1.19 +male_cardinal_perched_on_purple_and_green_marble_1999
    1.20 +african_lion_head_profile_on_multicolored_granite_1999
    1.21 +bluejay_perched_on_light_green_marble_1999
    1.22 +charging_african_elephant_on_beige_travertine_marble_1999
    1.23 +eagle_head_on_black_granite_1999
    1.24 +bugling_bull_moose_head_on_beige_marble_1999
    1.25 +bobwhite_chirping_on_brown_and_snow_marble_1999
    1.26 +texas_longhorn_steer_on_triangular_grey_marble_1998
    1.27 +full_body_buffalo_grey_marble_1999
    1.28 +swimming_bottlenose_dolphin_on_green_and_white_marble_1999
    1.29 +red_fox_on_travertine_marble_1999
    1.30 +bobwhite_quail_on_marble_with_rust_inclusions_1999
    1.31 +flying_wild_turkey_on_downstroke_on_ochre_marble_1999
    1.32 +flying_pheasant_on_travertine_1999
    1.33 +black_lab_with_mallard_in_mouth_sitting_in_reeds_on_pink_marble_1999
    1.34 +white_ram_head_on_triangular_grey_marble_1999
    1.35 +pintail_duck_in_flight_on_azul_do_mar_granite_1999
    1.36 +full_mallard_swmming_straight_at_you_on_grey_granite_1999
    1.37 +black_lab_sitting_with_canvasback_duck_in_mouth_on_grey_marble_with_rust_inclusions_2000
    1.38 +red_texas_longhorn_head_on_triangular_speckled_green_and_beige_granite_undated
    1.39 +trophy_bull_elk_rear_view_on_white_and_grey_marble_1999
    1.40 +grey_timberwolf_head_study_on_black_granite_with_gold_specks_1998
    1.41 +grizzly_bear_baring_teeth_on_yellow_ochre_1999
    1.42 +prong-horn_male_antelope_head_study_on_pink_granite_1999
    1.43 +golden_retriever_head_on_light_brown_travertine_1999
    1.44 +strutting_wild_turkey_on_brown_and_white_marble_1999
    1.45 +timberwolf_standing_on_ledge_on_purple_green_black_and_white_marble_(very_large)_1997
    1.46 +full_flying_pheasant_on_ochre_and_black_granite_2002
    1.47 +big_mouth_bass_struggling_with_hook_in_mouth_on_green_marble_1999
    1.48 +beautiful_black_lab_head_with_pheasant_in_mouth_on_pure_white_marble_1999
    1.49 +black_lab_head_study_with_grouse_in_mouth_on_white_marble_1999
    1.50 +wood_duck_sitting_on_water_with_reflection_on_green_and_yellow_marble_1999
    1.51 +hooked_big_mouth_bass_on_green_and_yellow_marble_1999
    1.52 +full_body_white_tailed_deer_walking_through_water_on_green_marble_1999
    1.53 +bugling_bull_elk_head_and_chest_on_white_marble_1999
    1.54 +upper_body_of_moose_with_foliage_on_azul_do_mar_1999
    1.55 +howling_timberwolf_on_grey_marble_1999
    1.56 +jumping_big_mouth_bass_with_yellow_lure_on_green_marble_1999
    1.57 +golden_retriever_puppy_head_and_chest_on_grey_granite_1999
    1.58 +orca_whale_jumping_out_of_water_on_blue_granite_1999
    1.59 +black_lab_walking_through_water_with_duck_in_mouth_on_grey_granite_1999
    1.60 +black_lab_sitting_with_pheasant_in_mouth_on_beige_and_ochre_byzantine_1999
    1.61 +sitting_black_lab_drake_mallard_in_mouth_with_reeds_on_white_marble_1999
    1.62 +golden_eagle_head_with_beak_open_blue_granite_1999
    1.63 +red_fox_walking_straight_at_you_on_snow_white_marble_1999
    1.64 +mallard_male_and_female_pair_swimming_on_blue_granite_1999
    1.65 +pair_of_flying_mallards_on_green_and_white_marble_1999
    1.66 +soaring_bald_marble_on_beige_marble_1999
    1.67 +yellow_lab_head_and_chest_on_brown_pentagonal_marble_1999
    1.68 +happy_golden_retriever_head_study_on_black_granite_1999
    1.69 +timberwolf_straight-on_head_on_triangular_grey_and_pink_marble_1999
    1.70 +white_tail_trophy_deer_head_and_chest_on_beige_and_ochre_travertine_1999
    1.71 +white_tail_deer_upper_body_on_light_brown_marble_1999
    1.72 +gobbling_wild_turkey_on_rust_colored_marble_1999
    1.73 +mallard_landing_on_water_on_bluish-grey_granite_1999
    1.74 +pintail_sitting_on_water_with_cat-tail_reeds_on_bluish-grey_granite_1999
    1.75 +flying_mallard_on_blue_white_and_black_granite_1999
    1.76 +soaring_bald_eagle_on_flesh_colored_marble_1999
    1.77 +redhead_drake_duck_head_study_on_greenish_grey_granite_1999
    1.78 +three_strolling_african_elephants_on_beige_and_copper_marble_1999
    1.79 +golden_retriever_head_and_chest_with_mallard_in_mouth_on_paisley_granite_1998
    1.80 +peregrine_falcon_head_and_chest_on_triangular_white_marble_1999
    1.81 +horned_owl_head_and_chest_on_beige_and_ochre_travertine_1999
    1.82 +pink_rose_and_rosebud_on_black_granite_with_gold_specks_1999
    1.83 +big_buck_on_speckled_beige_granite_1999
    1.84 +white_tail_buck_head_and_chest_on_yellow_travertine_1999
    1.85 +full_body_buffalo_profile_on_white_black_and_pink_granite_1999
    1.86 +bald_eagle_head_on_labrador_blue_pearl_granite_1999
    1.87 +black_lab_profile_carrying_mallard_through_water_on_green-grey_granite_1999
    1.88 +pheasant_flying_on_light_multicolored_marble_2003
    1.89 +golden_retriever_head_with_pintail_on_triangular_speckled_granite_1999
    1.90 +roadrunner_on_ochre_1999
    1.91 +bald_eagle_head_with_open_beak_on_triangular_purple_marble_1999
    1.92 +hummingbird_sipping_from_yellow_columbine_on_beige_marble_1999
    1.93 +african_lion_head_on_speckled_granite_1999
    1.94 +wood_duck_standing_in_snow_on_light_brown_marble_1999
    1.95 +canadian_goose_preparing_to_land_on_grey_granite_1999
    1.96 +red_texas_longhorn_on_white_triangular_marble_1999
    1.97 +flying_wood_duck_on_purple_marble_1999
    1.98 +flying_pheasant_on_downstroke_on_yellow_ochre_1999
    1.99 +blue_jay_on_twig_on_grey_white_and_ochre_marble_1999
   1.100 +chocolate_lab_head_and_chest_on_pink_granite_1999
   1.101 +mountain_goat_full_body_on_white_marble_1999
   1.102 +flying_mallard_on_highly_crystalized_black_and_grey_stone_1999_
   1.103 +non-typical_trophy_whitetail_buck_on_light_brown_marble_1999
   1.104 +golden_retriever_resting_on_beige_byzantine_1999
   1.105 +irish_setter_laying_on_grass_on_brown_and_white_marble_1999
   1.106 +yellow_lab_with_quail_on_brown_marble_with_golden_lighting_1999
   1.107 +black_lab_retrieving_mallard_on_greenish_grey_granite_1999
   1.108 +bobwhite_quail_covey_flying_on_ochre_and_beige_travertine_date_unavailable
   1.109 +whitetail_buck_head_and_chest_on_brown_and_rust_marble_1999_
   1.110 +bald_eagle_head_profile_on_black_grante_with_small_gold_specks_1998
   1.111 +pheasant_head_profile_on_ochre_marble_1999
   1.112 +black_lab_head_with_pintail_on_white_marble_1998
   1.113 +black_lab_head_profile_with_pheasant_on_white_marble_1998
   1.114 +young_chocolate_lab_head_with_mallard_on_flesh_colored_marble_1998
   1.115 +shitzu_head_study_named_Abbe_on_black_granite_2002_
   1.116 +britney_spaniel_head_study_with_tongue_on_purple_and_green_marble_1999
   1.117 +timberwolf_full_profile_on_green_and_purple_marble_with_high_crystalization_1999
   1.118 +gallery_display--custom_order_for_one_person
   1.119 +gallery_display_2--custom_order_for_one_person
   1.120 +gallery_display_3--custom_order_for_one_person
   1.121 +gallery_display_4--custom_order_for_one_person
   1.122 +brown_trout_with_fly_on_green_granite_1999
   1.123 +smiling_bald_eagle_head_on_black_granite_1999_
   1.124 +maltese_named_happy_3_ages_on_black_granite_unsigned_undated
   1.125 +strutting_wild_turkey_profile_on_brown_and_white_marble_1998
   1.126 +black_lab_with_mallard_in_mouth_sitting_in_reeds_on_ochre_marble_1999
   1.127 +black_lab_with_head_cocked_and_flying_mallards_in_background_on_grey_byzantine_1999
   1.128 +cardinal_perched_on_branch_on_black_marble_with_white_veins_1999
   1.129 +red_fox_standing_in_snow_on_right_triangular_white_marble_with_grey_vein_1997
   1.130 +golden_retreiver_puppy_head_and_fromt_paws_laying_on_brown_marble_1996
   1.131 +king_charles_spaniel_named_sophie_on_beige_marble_2002
   1.132 +rufus_hummingbird_sipping_nectar_from_red_flowers_on__brown_and_white_marble_1999
   1.133 +ruby_throated_sipping_from_cluster_of_pink_flowers_on_flesh_tone_marble_1999
   1.134 +bluebird_perched_on_white_and_grey_rectangular_marble_1999_
   1.135 +mockingbird_perched_on_a_branch_on_dark_and_light_green_marble_1999
   1.136 +siberian_tiger_head_and_chest_on_multicolored_ochre_granite_1999
   1.137 +german_shepard_named_Geta_head_and_chest_on_white_granite_2002
   1.138 +friendly_grizzly_bear_head_and_chest_on_black_and_gold_granite_1999
   1.139 +monster_whitetail_buck_and_doe_standing_in_water_on_azul_do_mar_1999
   1.140 +yellow_lab_sitting_in_reeds_with_mallard_on_brown_and_white_marble_1999
   1.141 +german_shorthair_full_profile_with_quail_on_brown_and_white_marble_1999
   1.142 +English_Setter_on_granite_1999
   1.143 +grizly_bear_head_snaging_salmon_out_of_water_on_green_marble_1999
   1.144 +pintail_pair--drake_and_hen_flying_on_pink-grey_paisley_1999
   1.145 +mourning_dove_dodging_bullet_on_grey_and_rust_marble_1999
   1.146 +horn_toad_lizard_on_light_brown_and_white_marble_1999
   1.147 +whitetail_deer_upper_body_on_beige_marble_1998
   1.148 +black_poodle_naned_chanel_with_stuffed_animal_on_light_brown_marble_1999
   1.149 +wild_turkey_three-quarter_pose_gobbing_on_ochre_and_dark_brown_granite_1998
   1.150 +red_head_pair_drake_and_hen_flying_on_beige_and_grey_travertine_1999
   1.151 +wood_duck_drake_head_and_chest_on_water_on_greenish_grey_marble_1999
   1.152 +yello_lab_with_canvasback_in_mouth_on_beige_marble_1999
   1.153 +poodle_named_Scarlett_on_black_granite_2002
   1.154 +coyote_standing_in_snow_on_white_and_beige_marble_1999
   1.155 +canadian_goose_flying_over_water_on_downstroke_on_wavelike_green_and_grey_granite_1999
   1.156 +mourning_dove_sitting_on_branch_on_purple_marble_1999
   1.157 +killer_whale_head_emerging_from_ocean_on_greenish_grey_granite_1999
   1.158 +majestic_caribou_head_and_chest_on_ochre_marble_1999
   1.159 +orca_whale_preforming_bellyflop_on_green_marble_1999
   1.160 +yellow_lab_head_with_bobwhite_quail_on_black_granite_1999
   1.161 +redbird_on_branch_on_green_and_white_marble_1999
   1.162 +yellow_lab_resting_on_grass_on_black_granite_with_copper_sparkles_1999
   1.163 +tom_turkey_head_profile_on_green_marble_1998
   1.164 +whitetail_buck_head_and_chest_on_ochre_1998
   1.165 +bugling_elk_fromt_pose_on_black_granite_1998
   1.166 +bull_elk_laying_in_the_snow_on_white_and_grey_marble_1999
   1.167 +mountain_goat_head_profile_on_white_marble_1999
   1.168 +wood_duck_full_standing_on_white_circular_marble_1999
   1.169 +dog_named_Ulysse_on_beige_travertine_2000
   1.170 +set_of_three_owls_1995
   1.171 +female_cardinal_in_snow_on_black_grey_and_white_marble_1999
   1.172 +bugling_elk_full_profile_on_white_and_grey_marble_1999
   1.173 +black_lab_flushing_single_quail_on_light_brown_marble_1999
   1.174 +bugling_elk_head_only_on_forest_green_marble_1999
   1.175 +mountain_lion_sitting_on_black_and_white_marble_1999
   1.176 +dolphin_peeking_out_of_ocean_on_green_marble_1999
   1.177 +full_standing_pheasant_profile_on_ochre_marble_1998
   1.178 +full_standing_pheasant_profile_on_grey_and_white_marble_1998
   1.179 +flying_pheasant_with_cattails_on_beige_marble_1998
   1.180 +yellow_lab_retrieving_mallard_on_greenish_grey_marble_1999
   1.181 +black_lab_retrieving_pheasant_on_light_brown_marble_1999
   1.182 +unfriendly_grizzly_bear_head_and_chest_on_beige_marble_1998
   1.183 +black_bear_three_quarter_view_on_beige_and_ochre_marble_1999
   1.184 +mallard_coming_in_to_land_on_pink_and_grey_marble_1999
   1.185 +loon_on_water_on_green_marble_1999
   1.186 +britney_spaniel_with_grouse_on_beige_and_ochre_marble_1998
   1.187 +yellow_lab_head_on_grey_and_pink_marble_1999
   1.188 +black_lab_three_quarter_profile_on_beige_marble_1998
   1.189 +chocolate_lab_three_quarter_profile_on_beige_marble_1998
   1.190 +whitetail_deer_standing_in_water_on_green_marble_1998
   1.191 +big_mouth_bass_hooked_on_black_lure_on_green-grey_granite_1999
   1.192 +18_dogs_on_a_30_inch_by_40_inch_canvas_1998);
   1.193 +
   1.194 +
   1.195 +
   1.196 +
   1.197 +foreach(0..$#namess){
   1.198 +	$nnnum = $_;
   1.199 +	$finla = $namess[$nnnum];
   1.200 +	$prevla = $namess[$nnnum-1].".html";
   1.201 +	$nextla = $namess[$nnnum+1].".html";
   1.202 +	$galnum = int($nnnum/9 + 1);
   1.203 +	$galname = "page $galnum";
   1.204 +	$galla = "../gallery$galnum.html";
   1.205 +	
   1.206 +	print "../artwork_descriptions/$finla.html\n"	;
   1.207 +	open FILE, ">../artwork_descriptions/$finla.html";
   1.208 +	
   1.209 +	
   1.210 +	
   1.211 +	select FILE;
   1.212 +	
   1.213 +	print <<HERE;
   1.214 +<html>
   1.215 +<title> Gallery of Original Artwork by Judy Yates</title>
   1.216 +<head>
   1.217 +<link rel="stylesheet" type="text/css"
   1.218 +href="../firetest.css" />
   1.219 +</head>
   1.220 +<body>
   1.221 +<span>
   1.222 +<img src = "../album_pics/3_logo.jpg"></img> 
   1.223 +</span>
   1.224 +HERE
   1.225 +
   1.226 +open MENU, "<../menu2.html";
   1.227 +while (<MENU>){print;}
   1.228 +close MENU;
   1.229 +print <<HERE;
   1.230 +<table>
   1.231 +<tr><td>
   1.232 +<div class = "nav">
   1.233 +<ul class = "nav">
   1.234 +HERE
   1.235 +
   1.236 +$k = $galnum;
   1.237 +for($m=1;$m<=21;$m++) {
   1.238 +	print '<li class = "nav"><a ';
   1.239 +	if($m==$k){print 'id="cur" '}
   1.240 +	print 'href = "../gallery'.$m.'.html"  class = "nav"> Page '.$m.'   </a></li>'."\n";
   1.241 +}
   1.242 +
   1.243 +
   1.244 +print <<HERE;
   1.245 +</ul>
   1.246 +</div>
   1.247 +</td>
   1.248 +
   1.249 +
   1.250 +<td>
   1.251 +
   1.252 +<table cellpadding="0" cellspacing="0" width="640">
   1.253 +<tr><td>
   1.254 +
   1.255 +HERE
   1.256 +
   1.257 +if($nnnum == 0){
   1.258 +print "<tr><td><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td>";
   1.259 +}
   1.260 +
   1.261 +elsif ($nnnum == $#namess){
   1.262 +
   1.263 +print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a></td></tr><tr><td>";
   1.264 +}
   1.265 +
   1.266 +else {
   1.267 +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>";
   1.268 +}
   1.269 +
   1.270 +
   1.271 +
   1.272 +print "<$nnnum><img src = \"../images/$finla.jpg\"></img>\n";
   1.273 +
   1.274 +print <<HERE;
   1.275 +
   1.276 +</td> </tr>
   1.277 +</table>
   1.278 +
   1.279 +</td></tr>
   1.280 +</table>
   1.281 +
   1.282 +
   1.283 +HERE
   1.284 +
   1.285 +
   1.286 +
   1.287 +
   1.288 +if (open TXT,  "<../texts/$finla.txt"){
   1.289 +	while (<TXT>){print;}
   1.290 +close TXT;
   1.291 +}
   1.292 +
   1.293 +
   1.294 +
   1.295 +open MENU, "<../menu2.html";
   1.296 +while (<MENU>){print;}
   1.297 +close MENU;
   1.298 +
   1.299 +print <<HERE;
   1.300 +</body>
   1.301 +</html>
   1.302 +HERE
   1.303 +
   1.304 +close FILE;
   1.305 +select STDOUT; }
   1.306 \ No newline at end of file