Mercurial > judyates

diff perl/meet_the_artist_descriptions.pl @ 0:60668cf4f443 judyates
[svn r1] initial import
author: rlm
date: Sun, 03 Jan 2010 04:38:50 -0500
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl/meet_the_artist_descriptions.pl	Sun Jan 03 04:38:50 2010 -0500
     1.3 @@ -0,0 +1,120 @@
     1.4 +@namess = qw(
     1.5 +hunting_1
     1.6 +hunting_2
     1.7 +hunting_3
     1.8 +hunting_4
     1.9 +hunting_5
    1.10 +hunting_6
    1.11 +hunting_7
    1.12 +hunting_8
    1.13 +hunting_9
    1.14 +hunting_10
    1.15 +hunting_11
    1.16 +hunting_12
    1.17 +stamp001
    1.18 +stamp003 
    1.19 +stamp005
    1.20 +stamp007
    1.21 +stamp009
    1.22 +stamp011
    1.23 +);
    1.24 +
    1.25 +
    1.26 +foreach(0..$#namess){
    1.27 +	$nnnum = $_;
    1.28 +	$finla = $namess[$nnnum];
    1.29 +	$prevla = $namess[$nnnum-1].".html";
    1.30 +	$nextla = $namess[$nnnum+1].".html";
    1.31 +	$galnum = int($nnnum/9 + 1);
    1.32 +	
    1.33 +	if ($namess[$_]=~/^s/){
    1.34 +	print "stamp";			
    1.35 +	$galname = "Duck Stamps";
    1.36 +	$galla = "../Meet the Artist2.html";}
    1.37 +	
    1.38 +	if ($namess[$_]=~/^h/){
    1.39 +    print "hunt";				
    1.40 +	$galname = "Hunting Pics";
    1.41 +	$galla = "../Meet the Artist1.html";}
    1.42 +	
    1.43 +	
    1.44 +	
    1.45 +	
    1.46 +	print "../artwork_descriptions/$finla.html\n"	;
    1.47 +	open FILE, ">../artwork_descriptions/$finla.html";
    1.48 +	
    1.49 +	
    1.50 +	
    1.51 +	select FILE;
    1.52 +	
    1.53 +	print <<HERE;
    1.54 +<html>
    1.55 +<title> Gallery of Original Artwork by Judy Yates</title>
    1.56 +<head>
    1.57 +<link rel="stylesheet" type="text/css"
    1.58 +href="../firetest.css" />
    1.59 +</head>
    1.60 +<body>
    1.61 +<span>
    1.62 +<img src = "../album_pics/3_logo.jpg"></img> 
    1.63 +</span>
    1.64 +HERE
    1.65 +
    1.66 +open MENU, "<../menu2.html";
    1.67 +while (<MENU>){print;}
    1.68 +close MENU;
    1.69 +
    1.70 +print <<HERE;
    1.71 +<table cellpadding="0" cellspacing="0" width="740">
    1.72 +
    1.73 +
    1.74 +HERE
    1.75 +
    1.76 +if($nnnum == 0){
    1.77 +print "<tr><td><a class = \"menu\" href = \"$galla\">$galname</a><a class = \"menu\" href = \"$nextla\">Next</a></td></tr><tr><td align = \"center\">";
    1.78 +}
    1.79 +
    1.80 +elsif ($nnnum == $#namess){
    1.81 +
    1.82 +print "<tr><td><a class = \"menu\" href = \"$prevla\">Previous</a><a class = \"menu\" href = \"$galla\">$galname</a></td></tr><tr><td align = \"center\">";
    1.83 +}
    1.84 +
    1.85 +else {
    1.86 +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 align=\"center\">";
    1.87 +}
    1.88 +
    1.89 +
    1.90 +
    1.91 +print "<img src = \"../images/$finla.jpg\"></img>\n";
    1.92 +
    1.93 +print <<HERE;
    1.94 +
    1.95 +</td> </tr>
    1.96 +</table>
    1.97 +
    1.98 +
    1.99 +
   1.100 +
   1.101 +HERE
   1.102 +
   1.103 +
   1.104 +
   1.105 +
   1.106 +if (open TXT,  "<../texts/$finla.txt"){
   1.107 +	while (<TXT>){print;}
   1.108 +close TXT;
   1.109 +}
   1.110 +
   1.111 +
   1.112 +
   1.113 +open MENU, "<../menu2.html";
   1.114 +while (<MENU>){print;}
   1.115 +close MENU;
   1.116 +
   1.117 +print <<HERE;
   1.118 +</body>
   1.119 +</html>
   1.120 +HERE
   1.121 +
   1.122 +close FILE;
   1.123 +select STDOUT; }
   1.124 \ No newline at end of file