view perl/menu.pl @ 0:60668cf4f443 judyates

[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children 3f6b44aa6b35
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 = "feedback.html">Feedback</a></li>
10 <li class = "menu"><a class = "menu" href = "hto.html">Orders</a></li>
11 <li class = "menu"><a class = "menu" href = "pricing.html">Pricing</a></li>
12 <li class = "menu"><a class = "menu" href = "Meet the Artist2.html"> Meet the Artist</a></li>
13 <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>
16 <li class = "menu"><a class = "menu" href = "recent_sales.html"> Recent Sales</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 = "../feedback.html">Feedback</a></li>
32 <li class = "menu"><a class = "menu" href = "../hto.html">Orders</a></li>
33 <li class = "menu"><a class = "menu" href = "../pricing.html">Pricing</a></li>
34 <li class = "menu"><a class = "menu" href = "../Meet the Artist2.html"> Meet the Artist</a></li>
35 <li class = "menu"><a class = "menu" href = "../Contact.html"> Contact</a></li>
36 <li class = "menu"><a class = "menu" href = "../pets1.html">Pets</a></li>
37 <li class = "menu"><a class = "menu" href = "../recent_sales.html"> Recent Sales</a></li>
38 </ul>
39 </div>
41 HERE