annotate perl/Contact.pl @ 10:ed52b2b7cbc1
judyates
[svn r11] created thumbs for the photo gallery.
author |
rlm |
date |
Mon, 12 Apr 2010 01:57:22 -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
|