Mercurial > judyates

comparison perl/Contact.pl @ 0:60668cf4f443 judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children 903b91a97990
comparison
equal deleted inserted replaced
-1:000000000000 0:60668cf4f443
1 open FILE, ">../Contact.html";
2 select FILE;
3 print <<HERE;
4
5
6 <html>
7 <title>Contact Information for Judy Yates</title>
8 <head>
9 <link rel="stylesheet" type="text/css"
10 href="firetest.css"> </link>
11 </head>
12 <body>
13 <span>
14 <img src = "./album_pics/3_logo.jpg"></img>
15
16 </span>
17
18 HERE
19 open MENU, "<../menu.html";
20 while (<MENU>){print;}
21 close MENU;
22 print <<HERE;
23
24 <div class = "orangebox">
25 <p class = "orangebox">
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="&#x6d;&#97;&#x69;&#x6c;&#116;&#111;&#58;&#106;&#x6e;&#x79;&#x61;&#x74;&#101;&#x73;&#x40;&#x6a;&#x75;&#x64;&#x79;&#97;&#116;&#101;&#x73;&#46;&#x63;&#x6f;&#109;"><span class = "email">&#106;&#x6e;&#x79;&#x61;&#116;&#101;&#x73;&#x40;&#x6a;&#x75;&#x64;&#x79;&#x61;&#x74;&#x65;&#115;&#x2e;&#99;&#x6f;&#109;</span></a>. She can also be reached by cell phone at &#x28;&#50;&#x31;&#52;&#41;&#45;&#52;&#x31;&#56;&#x2d;&#52;&#x37;&#48;&#x36;. All e-mails will be answered within 24 hours.
27 </P>
28 </div>
29
30 HERE
31 open MENU, "<../menu.html";
32 while (<MENU>){print;}
33 close MENU;
34 print <<HERE;
35
36 </body>
37 </html>
38
39 HERE
40
41