Mercurial > judyates
view perl/menu.pl @ 6:300619cf1669 judyates
[svn r7] addws left and right arrows; struggling with inmotion to get the fucker to work on their site
author | rlm |
---|---|
date | Mon, 22 Feb 2010 10:25:51 -0500 |
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 HERE23 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