view perl/artwork_descriptions.pl @ 8:1b77e8657088 judyates

[svn r9] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:17:36 -0400
parents 60668cf4f443
children 903b91a97990
line wrap: on
line source
1 @namess = qw(
2 German_Shorthair_Hunting_Dog_on_light_brown_marble_2007
3 growling_grizzly_bear_on_black_and_white_marble_with_rust_inclusions_2007
4 wood_duck_standing_on_branch_in_water_on_green_and_white_marble_2007
5 brown_trout_swimming_on_ochre_granite_with_multicolored_specks_2007
6 big_mouth_bass_hooked_on_lure_on_green_pearlecent_granite_2007
7 pheasant_head_profile_on_black_granite_2007
8 non-typical_mule_deer_buck_walking_on_light_brown_marble_2007
9 white_tail_buck_with_head_turned_three_quarter_pose_on_light_brown_marble_2007
10 roan_texas_longhorn_steer_on_triangular_green_and_white_marble_with_silver_specks_2007
11 half_body_mule_deer_buck_on_light_brown_marble_1999
12 full_pose_pointer_on_ochre_marble_2_1998
13 eagle_hunting_for_prey_on_beige_white_marble_2000
14 pointer_head_with_quail_on_beige_travertine_marble_1998
15 full_pose_pointer_on_ochre_marble_1998
16 male_cardinal_perched_on_purple_and_green_marble_1999
17 african_lion_head_profile_on_multicolored_granite_1999
18 bluejay_perched_on_light_green_marble_1999
19 charging_african_elephant_on_beige_travertine_marble_1999
20 eagle_head_on_black_granite_1999
21 bugling_bull_moose_head_on_beige_marble_1999
22 bobwhite_chirping_on_brown_and_snow_marble_1999
23 texas_longhorn_steer_on_triangular_grey_marble_1998
24 full_body_buffalo_grey_marble_1999
25 swimming_bottlenose_dolphin_on_green_and_white_marble_1999
26 red_fox_on_travertine_marble_1999
27 bobwhite_quail_on_marble_with_rust_inclusions_1999
28 flying_wild_turkey_on_downstroke_on_ochre_marble_1999
29 flying_pheasant_on_travertine_1999
30 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_pink_marble_1999
31 white_ram_head_on_triangular_grey_marble_1999
32 pintail_duck_in_flight_on_azul_do_mar_granite_1999
33 full_mallard_swmming_straight_at_you_on_grey_granite_1999
34 black_lab_sitting_with_canvasback_duck_in_mouth_on_grey_marble_with_rust_inclusions_2000
35 red_texas_longhorn_head_on_triangular_speckled_green_and_beige_granite_undated
36 trophy_bull_elk_rear_view_on_white_and_grey_marble_1999
37 grey_timberwolf_head_study_on_black_granite_with_gold_specks_1998
38 grizzly_bear_baring_teeth_on_yellow_ochre_1999
39 prong-horn_male_antelope_head_study_on_pink_granite_1999
40 golden_retriever_head_on_light_brown_travertine_1999
41 strutting_wild_turkey_on_brown_and_white_marble_1999
42 timberwolf_standing_on_ledge_on_purple_green_black_and_white_marble_(very_large)_1997
43 full_flying_pheasant_on_ochre_and_black_granite_2002
44 big_mouth_bass_struggling_with_hook_in_mouth_on_green_marble_1999
45 beautiful_black_lab_head_with_pheasant_in_mouth_on_pure_white_marble_1999
46 black_lab_head_study_with_grouse_in_mouth_on_white_marble_1999
47 wood_duck_sitting_on_water_with_reflection_on_green_and_yellow_marble_1999
48 hooked_big_mouth_bass_on_green_and_yellow_marble_1999
49 full_body_white_tailed_deer_walking_through_water_on_green_marble_1999
50 bugling_bull_elk_head_and_chest_on_white_marble_1999
51 upper_body_of_moose_with_foliage_on_azul_do_mar_1999
52 howling_timberwolf_on_grey_marble_1999
53 jumping_big_mouth_bass_with_yellow_lure_on_green_marble_1999
54 golden_retriever_puppy_head_and_chest_on_grey_granite_1999
55 orca_whale_jumping_out_of_water_on_blue_granite_1999
56 black_lab_walking_through_water_with_duck_in_mouth_on_grey_granite_1999
57 black_lab_sitting_with_pheasant_in_mouth_on_beige_and_ochre_byzantine_1999
58 sitting_black_lab_drake_mallard_in_mouth_with_reeds_on_white_marble_1999
59 golden_eagle_head_with_beak_open_blue_granite_1999
60 red_fox_walking_straight_at_you_on_snow_white_marble_1999
61 mallard_male_and_female_pair_swimming_on_blue_granite_1999
62 pair_of_flying_mallards_on_green_and_white_marble_1999
63 soaring_bald_marble_on_beige_marble_1999
64 yellow_lab_head_and_chest_on_brown_pentagonal_marble_1999
65 happy_golden_retriever_head_study_on_black_granite_1999
66 timberwolf_straight-on_head_on_triangular_grey_and_pink_marble_1999
67 white_tail_trophy_deer_head_and_chest_on_beige_and_ochre_travertine_1999
68 white_tail_deer_upper_body_on_light_brown_marble_1999
69 gobbling_wild_turkey_on_rust_colored_marble_1999
70 mallard_landing_on_water_on_bluish-grey_granite_1999
71 pintail_sitting_on_water_with_cat-tail_reeds_on_bluish-grey_granite_1999
72 flying_mallard_on_blue_white_and_black_granite_1999
73 soaring_bald_eagle_on_flesh_colored_marble_1999
74 redhead_drake_duck_head_study_on_greenish_grey_granite_1999
75 three_strolling_african_elephants_on_beige_and_copper_marble_1999
76 golden_retriever_head_and_chest_with_mallard_in_mouth_on_paisley_granite_1998
77 peregrine_falcon_head_and_chest_on_triangular_white_marble_1999
78 horned_owl_head_and_chest_on_beige_and_ochre_travertine_1999
79 pink_rose_and_rosebud_on_black_granite_with_gold_specks_1999
80 big_buck_on_speckled_beige_granite_1999
81 white_tail_buck_head_and_chest_on_yellow_travertine_1999
82 full_body_buffalo_profile_on_white_black_and_pink_granite_1999
83 bald_eagle_head_on_labrador_blue_pearl_granite_1999
84 black_lab_profile_carrying_mallard_through_water_on_green-grey_granite_1999
85 pheasant_flying_on_light_multicolored_marble_2003
86 golden_retriever_head_with_pintail_on_triangular_speckled_granite_1999
87 roadrunner_on_ochre_1999
88 bald_eagle_head_with_open_beak_on_triangular_purple_marble_1999
89 hummingbird_sipping_from_yellow_columbine_on_beige_marble_1999
90 african_lion_head_on_speckled_granite_1999
91 wood_duck_standing_in_snow_on_light_brown_marble_1999
92 canadian_goose_preparing_to_land_on_grey_granite_1999
93 red_texas_longhorn_on_white_triangular_marble_1999
94 flying_wood_duck_on_purple_marble_1999
95 flying_pheasant_on_downstroke_on_yellow_ochre_1999
96 blue_jay_on_twig_on_grey_white_and_ochre_marble_1999
97 chocolate_lab_head_and_chest_on_pink_granite_1999
98 mountain_goat_full_body_on_white_marble_1999
99 flying_mallard_on_highly_crystalized_black_and_grey_stone_1999_
100 non-typical_trophy_whitetail_buck_on_light_brown_marble_1999
101 golden_retriever_resting_on_beige_byzantine_1999
102 irish_setter_laying_on_grass_on_brown_and_white_marble_1999
103 yellow_lab_with_quail_on_brown_marble_with_golden_lighting_1999
104 black_lab_retrieving_mallard_on_greenish_grey_granite_1999
105 bobwhite_quail_covey_flying_on_ochre_and_beige_travertine_date_unavailable
106 whitetail_buck_head_and_chest_on_brown_and_rust_marble_1999_
107 bald_eagle_head_profile_on_black_grante_with_small_gold_specks_1998
108 pheasant_head_profile_on_ochre_marble_1999
109 black_lab_head_with_pintail_on_white_marble_1998
110 black_lab_head_profile_with_pheasant_on_white_marble_1998
111 young_chocolate_lab_head_with_mallard_on_flesh_colored_marble_1998
112 shitzu_head_study_named_Abbe_on_black_granite_2002_
113 britney_spaniel_head_study_with_tongue_on_purple_and_green_marble_1999
114 timberwolf_full_profile_on_green_and_purple_marble_with_high_crystalization_1999
115 gallery_display--custom_order_for_one_person
116 gallery_display_2--custom_order_for_one_person
117 gallery_display_3--custom_order_for_one_person
118 gallery_display_4--custom_order_for_one_person
119 brown_trout_with_fly_on_green_granite_1999
120 smiling_bald_eagle_head_on_black_granite_1999_
121 maltese_named_happy_3_ages_on_black_granite_unsigned_undated
122 strutting_wild_turkey_profile_on_brown_and_white_marble_1998
123 black_lab_with_mallard_in_mouth_sitting_in_reeds_on_ochre_marble_1999
124 black_lab_with_head_cocked_and_flying_mallards_in_background_on_grey_byzantine_1999
125 cardinal_perched_on_branch_on_black_marble_with_white_veins_1999
126 red_fox_standing_in_snow_on_right_triangular_white_marble_with_grey_vein_1997
127 golden_retreiver_puppy_head_and_fromt_paws_laying_on_brown_marble_1996
128 king_charles_spaniel_named_sophie_on_beige_marble_2002
129 rufus_hummingbird_sipping_nectar_from_red_flowers_on__brown_and_white_marble_1999
130 ruby_throated_sipping_from_cluster_of_pink_flowers_on_flesh_tone_marble_1999
131 bluebird_perched_on_white_and_grey_rectangular_marble_1999_
132 mockingbird_perched_on_a_branch_on_dark_and_light_green_marble_1999
133 siberian_tiger_head_and_chest_on_multicolored_ochre_granite_1999
134 german_shepard_named_Geta_head_and_chest_on_white_granite_2002
135 friendly_grizzly_bear_head_and_chest_on_black_and_gold_granite_1999
136 monster_whitetail_buck_and_doe_standing_in_water_on_azul_do_mar_1999
137 yellow_lab_sitting_in_reeds_with_mallard_on_brown_and_white_marble_1999
138 german_shorthair_full_profile_with_quail_on_brown_and_white_marble_1999
139 English_Setter_on_granite_1999
140 grizly_bear_head_snaging_salmon_out_of_water_on_green_marble_1999
141 pintail_pair--drake_and_hen_flying_on_pink-grey_paisley_1999
142 mourning_dove_dodging_bullet_on_grey_and_rust_marble_1999
143 horn_toad_lizard_on_light_brown_and_white_marble_1999
144 whitetail_deer_upper_body_on_beige_marble_1998
145 black_poodle_naned_chanel_with_stuffed_animal_on_light_brown_marble_1999
146 wild_turkey_three-quarter_pose_gobbing_on_ochre_and_dark_brown_granite_1998
147 red_head_pair_drake_and_hen_flying_on_beige_and_grey_travertine_1999
148 wood_duck_drake_head_and_chest_on_water_on_greenish_grey_marble_1999
149 yello_lab_with_canvasback_in_mouth_on_beige_marble_1999
150 poodle_named_Scarlett_on_black_granite_2002
151 coyote_standing_in_snow_on_white_and_beige_marble_1999
152 canadian_goose_flying_over_water_on_downstroke_on_wavelike_green_and_grey_granite_1999
153 mourning_dove_sitting_on_branch_on_purple_marble_1999
154 killer_whale_head_emerging_from_ocean_on_greenish_grey_granite_1999
155 majestic_caribou_head_and_chest_on_ochre_marble_1999
156 orca_whale_preforming_bellyflop_on_green_marble_1999
157 yellow_lab_head_with_bobwhite_quail_on_black_granite_1999
158 redbird_on_branch_on_green_and_white_marble_1999
159 yellow_lab_resting_on_grass_on_black_granite_with_copper_sparkles_1999
160 tom_turkey_head_profile_on_green_marble_1998
161 whitetail_buck_head_and_chest_on_ochre_1998
162 bugling_elk_fromt_pose_on_black_granite_1998
163 bull_elk_laying_in_the_snow_on_white_and_grey_marble_1999
164 mountain_goat_head_profile_on_white_marble_1999
165 wood_duck_full_standing_on_white_circular_marble_1999
166 dog_named_Ulysse_on_beige_travertine_2000
167 set_of_three_owls_1995
168 female_cardinal_in_snow_on_black_grey_and_white_marble_1999
169 bugling_elk_full_profile_on_white_and_grey_marble_1999
170 black_lab_flushing_single_quail_on_light_brown_marble_1999
171 bugling_elk_head_only_on_forest_green_marble_1999
172 mountain_lion_sitting_on_black_and_white_marble_1999
173 dolphin_peeking_out_of_ocean_on_green_marble_1999
174 full_standing_pheasant_profile_on_ochre_marble_1998
175 full_standing_pheasant_profile_on_grey_and_white_marble_1998
176 flying_pheasant_with_cattails_on_beige_marble_1998
177 yellow_lab_retrieving_mallard_on_greenish_grey_marble_1999
178 black_lab_retrieving_pheasant_on_light_brown_marble_1999
179 unfriendly_grizzly_bear_head_and_chest_on_beige_marble_1998
180 black_bear_three_quarter_view_on_beige_and_ochre_marble_1999
181 mallard_coming_in_to_land_on_pink_and_grey_marble_1999
182 loon_on_water_on_green_marble_1999
183 britney_spaniel_with_grouse_on_beige_and_ochre_marble_1998
184 yellow_lab_head_on_grey_and_pink_marble_1999
185 black_lab_three_quarter_profile_on_beige_marble_1998
186 chocolate_lab_three_quarter_profile_on_beige_marble_1998
187 whitetail_deer_standing_in_water_on_green_marble_1998
188 big_mouth_bass_hooked_on_black_lure_on_green-grey_granite_1999
189 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 HERE
223 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 HERE
233 $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 HERE
254 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 HERE
285 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 HERE
301 close FILE;
302 select STDOUT; }