Mercurial > judyates

diff 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
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl/Contact.pl	Sun Jan 03 04:38:50 2010 -0500
     1.3 @@ -0,0 +1,41 @@
     1.4 +open FILE, ">../Contact.html";
     1.5 +select FILE;
     1.6 +print <<HERE;
     1.7 +
     1.8 +
     1.9 +<html>
    1.10 +<title>Contact Information for Judy Yates</title>
    1.11 +<head>
    1.12 +<link rel="stylesheet" type="text/css"
    1.13 +href="firetest.css"> </link>
    1.14 +</head>
    1.15 +<body>
    1.16 +<span>
    1.17 +<img src = "./album_pics/3_logo.jpg"></img>
    1.18 +
    1.19 +</span>
    1.20 +
    1.21 +HERE
    1.22 +open MENU, "<../menu.html";
    1.23 +while (<MENU>){print;}
    1.24 +close MENU;
    1.25 +print <<HERE;
    1.26 +
    1.27 +<div class = "orangebox">
    1.28 +<p class = "orangebox">
    1.29 +<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.  
    1.30 +</P>
    1.31 +</div>
    1.32 +
    1.33 +HERE
    1.34 +open MENU, "<../menu.html";
    1.35 +while (<MENU>){print;}
    1.36 +close MENU;
    1.37 +print <<HERE;
    1.38 +
    1.39 +</body>
    1.40 +</html>
    1.41 +
    1.42 +HERE
    1.43 +
    1.44 +