Mercurial > judyates

     1 

     2 @hunt = qw(

     3 (small)hunting_1.jpg 

     4 (small)hunting_2.jpg 

     5 (small)hunting_3.jpg 

     6 (small)hunting_4.jpg 

     7 (small)hunting_5.jpg 

     8 (small)hunting_6.jpg 

     9 (small)hunting_7.jpg 

    10 (small)hunting_8.jpg 

    11 (small)hunting_9.jpg 

    12 (small)hunting_10.jpg

    13 (small)hunting_11.jpg

    14 (small)hunting_12.jpg

    15           );

    16 

    17 @hunt1 = qw(

    18 hunting_1

    19 hunting_2

    20 hunting_3

    21 hunting_4

    22 hunting_5

    23 hunting_6

    24 hunting_7

    25 hunting_8

    26 hunting_9

    27 hunting_10

    28 hunting_11

    29 hunting_12

    30 );

    31 

    32 @duck1 = qw(

    33 

    34 stamp001

    35 stamp003 

    36 stamp005

    37 stamp007

    38 stamp009

    39 stamp011

    40 

    41 );

    42 

    43 

    44 

    45 @duck = qw(

    46 stamp001(small).jpg

    47 stamp003(small).jpg

    48 stamp005(small).jpg

    49 stamp007(small).jpg

    50 stamp009(small).jpg

    51 stamp011(small).jpg

    52 );

    53 

    54 &make_page(1,"hunt");

    55 &make_page(2,"duck");

    56 

    57 

    58 

    59 sub make_page{

    60 	

    61 	

    62 	$page = $_[0];

    63 	$arr = $_[1];

    64 

    65 	@names = @{$arr};

    66 	

    67 	@namess = @{$arr."1"};

    68 	

    69 	

    70 	

    71 	

    72 open FILE, ">../Meet the Artist$page.html";

    73 select FILE;

    74 

    75 print <<HERE;

    76 <html>

    77 <title> Biography of Judy Yates</title>

    78 <head>

    79 <link rel="stylesheet" type="text/css"

    80 href="firetest.css"> </link>

    81 </head>

    82 <body>

    83 <span>

    84 <img src = "./album_pics/3_logo.jpg"></img> <span class = "vcenter"></span>

    85 </span>

    86 HERE

    87 open MENU, "<../menu.html";

    88 while (<MENU>){print;}

    89 close MENU;

    90 

    91 print <<HERE;

    92 <table>

    93 

    94 

    95 

    96 

    97 <table cellpadding="0" cellspacing="0" width="640">

    98 

    99 HERE

   100 

   101 $menux = '<div class = "menu"><ul class = "menu"><li class = "menu"><a class = "menu" href = "./Meet the Artist1.html">Hunting Pics</a></li><li class = "menu"><a class = "menu" href = "./Meet the Artist2.html">Federal Duck Stamp Entries</a></li></ul></div>';

   102 print "<tr><td>$menux</td></tr></table>";

   103 

   104 

   105 $start = 0;

   106 $end = $#namess;

   107 print '<table cellpadding="0" cellspacing="20px" width="640">';

   108 

   109 foreach($start..$end){

   110 	#print "\n\n****".($_%3)."****\n\n";

   111 	if (($_%3 )== 0){print '<tr>';	}

   112 	print '<td>';

   113 	$name = $names[$_];

   114 	$namess = $namess[$_];

   115 	print '<a href ="artwork_descriptions/'.$namess.'.html" class = "gallery"> <img class = "gallery" src = "album_pics/'.$name.'" width = "200"></img></a>'."\n";

   116 	print '</td>';

   117 	if (($_%3) == 2){print '</tr>';	}

   118 	

   119 	}

   120 

   121 

   122 print <<THERE;

   123 

   124 

   125 

   126 

   127 </table>

   128 

   129 

   130 </table>

   131 THERE

   132 

   133 if (open TXT,  "<../texts/Meet the Artist$page.txt"){

   134 	while (<TXT>){print;}

   135 close TXT;

   136 }

   137 

   138 

   139 

   140 open MENU, "<../menu.html";

   141 while (<MENU>){print;}

   142 close MENU;

   143  

   144 print <<THERE;

   145 </body>

   146 </html>

   147 

   148 

   149 

   150 THERE

   151 

   152 

   153 }
author	rlm
date	Fri, 19 Feb 2010 11:14:52 -0500
parents	60668cf4f443
children	3f6b44aa6b35