annotate perl/Contact.pl @ 12:2f433df9b961
judyates
[svn r13] Modified esgallery source to enable multiple paypal buttons; got the photo gallery operational and tested.
| author |
rlm |
| date |
Mon, 12 Apr 2010 03:24:08 -0400 |
| parents |
60668cf4f443 |
| children |
903b91a97990 |
| rev |
line source |
|
rlm@0
|
1 open FILE, ">../Contact.html";
|
|
rlm@0
|
2 select FILE;
|
|
rlm@0
|
3 print <<HERE;
|
|
rlm@0
|
4
|
|
rlm@0
|
5
|
|
rlm@0
|
6 <html>
|
|
rlm@0
|
7 <title>Contact Information for Judy Yates</title>
|
|
rlm@0
|
8 <head>
|
|
rlm@0
|
9 <link rel="stylesheet" type="text/css"
|
|
rlm@0
|
10 href="firetest.css"> </link>
|
|
rlm@0
|
11 </head>
|
|
rlm@0
|
12 <body>
|
|
rlm@0
|
13 <span>
|
|
rlm@0
|
14 <img src = "./album_pics/3_logo.jpg"></img>
|
|
rlm@0
|
15
|
|
rlm@0
|
16 </span>
|
|
rlm@0
|
17
|
|
rlm@0
|
18 HERE
|
|
rlm@0
|
19 open MENU, "<../menu.html";
|
|
rlm@0
|
20 while (<MENU>){print;}
|
|
rlm@0
|
21 close MENU;
|
|
rlm@0
|
22 print <<HERE;
|
|
rlm@0
|
23
|
|
rlm@0
|
24 <div class = "orangebox">
|
|
rlm@0
|
25 <p class = "orangebox">
|
|
rlm@0
|
26 <Span class = "paragraph">Judy Yates</span> is happy to discuss orders, gift ideas, and other related inquiries via e-mail. Her address is <a href="mailto:jnyates@judyates.com"><span class = "email">jnyates@judyates.com</span></a>. She can also be reached by cell phone at (214)-418-4706. All e-mails will be answered within 24 hours.
|
|
rlm@0
|
27 </P>
|
|
rlm@0
|
28 </div>
|
|
rlm@0
|
29
|
|
rlm@0
|
30 HERE
|
|
rlm@0
|
31 open MENU, "<../menu.html";
|
|
rlm@0
|
32 while (<MENU>){print;}
|
|
rlm@0
|
33 close MENU;
|
|
rlm@0
|
34 print <<HERE;
|
|
rlm@0
|
35
|
|
rlm@0
|
36 </body>
|
|
rlm@0
|
37 </html>
|
|
rlm@0
|
38
|
|
rlm@0
|
39 HERE
|
|
rlm@0
|
40
|
|
rlm@0
|
41
|
