view perl/menu.pl @ 8:1b77e8657088 judyates

[svn r9] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:17:36 -0400
parents 3f6b44aa6b35
children b6ba604307fc
line wrap: on
line source
1 open FILE, ">../menu.html";
2 select FILE;
3 print <<HERE;
5 <div class = "menu">
6 <ul class = "menu">
7 <li class = "menu"><a class = "menu" href = "index.html">Home</a></li>
8 <li class = "menu"><a class = "menu" href = "gallery1.html">Gallery</a></li>
9 <li class = "menu"><a class = "menu" href = "recent_sales.html">Prints</a></li>
10 <li class = "menu"><a class = "menu" href = "feedback.html">Feedback</a></li>
11 <li class = "menu"><a class = "menu" href = "hto.html">Orders</a></li>
12 <li class = "menu"><a class = "menu" href = "pricing.html">Pricing</a></li>
13 <li class = "menu"><a class = "menu" href = "Meet the Artist2.html"> Meet the Artist</a></li>
14 <li class = "menu"><a class = "menu" href = "Contact.html"> Contact</a></li>
15 <li class = "menu"><a class = "menu" href = "pets1.html">Pets</a></li>
17 </ul>
18 </div>
20 HERE
23 open FILE, ">../menu2.html";
24 select FILE;
25 print <<HERE;
27 <div class = "menu">
28 <ul class = "menu">
29 <li class = "menu"><a class = "menu" href = "../index.html">Home</a></li>
30 <li class = "menu"><a class = "menu" href = "../gallery1.html">Gallery</a></li>
31 <li class = "menu"><a class = "menu" href = "../recent_sales.html">Prints</a></li>
32 <li class = "menu"><a class = "menu" href = "../feedback.html">Feedback</a></li>
33 <li class = "menu"><a class = "menu" href = "../hto.html">Orders</a></li>
34 <li class = "menu"><a class = "menu" href = "../pricing.html">Pricing</a></li>
35 <li class = "menu"><a class = "menu" href = "../Meet the Artist2.html"> Meet the Artist</a></li>
36 <li class = "menu"><a class = "menu" href = "../Contact.html"> Contact</a></li>
37 <li class = "menu"><a class = "menu" href = "../pets1.html">Pets</a></li>
39 </ul>
40 </div>
42 HERE