Mercurial > judyates
view perl/menu.pl @ 17:46fdf059b154 judyates
preparing to add google analytics
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 11 Jul 2011 02:43:59 -0400 |
parents | b6ba604307fc |
children |
line wrap: on
line source
1 open FILE, ">../menu.html";2 select FILE;3 print <<HERE;5 <div class = "menu">6 <ul class = "menu">8 <li class = "menu"><a class = "menu" href = "index.html">( Home</a></li>9 <li class = "menu"><a class = "menu" href = "Meet the Artist2.html">Judy Yates</a></li>10 <li class = "menu"><a class = "menu" href = "Contact.html">Contact )</a></li>11 <li class = "menu"> <a class = "menu" href = "hto.html">( Custom Art</a></li>12 <li class = "menu"><a class = "menu" href = "recent_sales.html">Prints</a></li>13 <li class = "menu"><a class = "menu" href = "photos.html">Photos )</a></li>14 <li class = "menu"><a class = "menu" href = "gallery1.html">( Gallery</a></li>15 <li class = "menu"><a class = "menu" href = "pets1.html">Pets )</a></li>16 </ul>17 </div>19 HERE22 open FILE, ">../menu2.html";23 select FILE;24 print <<HERE;26 <div class = "menu">27 <ul class = "menu">29 <li class = "menu"><a class = "menu" href = "../index.html">( Home</a></li>30 <li class = "menu"><a class = "menu" href = "../Meet the Artist2.html">Judy Yates</a></li>31 <li class = "menu"><a class = "menu" href = "../Contact.html">Contact )</a></li>32 <li class = "menu"> <a class = "menu" href = "../hto.html">( Custom Art</a></li>33 <li class = "menu"><a class = "menu" href = "../recent_sales.html">Prints</a></li>34 <li class = "menu"><a class = "menu" href = "../photos.html">Photos )</a></li>35 <li class = "menu"><a class = "menu" href = "../gallery1.html">( Gallery</a></li>36 <li class = "menu"><a class = "menu" href = "../pets1.html">Pets )</a></li>37 </ul>38 </div>40 HERE