Overview
Download
Installation
Docs
Tutorial
Credits

Page Source

Hosted by:
Convolution
 Source of template.plp
Back
  1. <:

  3. sub code { :>
  4.     <table width="100%" cellspacing=0 cellpadding=15>
  5.     <tr><td bgcolor="#E0E0E0" style="background-color:#E0E0E0;">
  6.     <font folor=green face="fixedsys,courier new,courier,fixed" style="color:green;">
  7.     <:= shift :>
  8.     </font>
  9.     </td></tr></table>
  10. <: }

  12. sub title {
  13.     print "<h2>$_[0]</h2>";
  14. }

  16. sub item { :>
  17.     <div style="margin-top: 1em; color: black; font-size:larger; font-weight: bold;">
  18.     <:= shift :>
  19.     </div>
  20.     <br>
  21. <: }

  23. :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

  25. <html>
  26. <head><title>PLP - <:= $title :></title>
  27. <STYLE TYPE="text/css"><!--
  28.     body, td  {background-color: white; font-family: arial,helvetica,sans serif;
  29.                font-size: 10pt; color: gray;}
  30.     a         {color: black;}
  31.     a:visited {color: gray; }
  32.     a:Hover   {color: green;}

  34.     .navi     {color: silver; padding-left: 10px; padding-right: 25px;}
  35.     .navi a         {color: yellow; }
  36.     .navi a:visited {color: yellow; }
  37.     .navi a:hover   {color: #FFCC00;}
  38.     .main {color: gray; padding-left: 10px; padding-right: 5px;}
  39. --></STYLE>
  40. </head>

  42. <body leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>
  43. <table width=780 cellspacing=0 cellpadding=0 border=0>
  44. <tr>
  45.     <td width=128 valign=top nowrap><img src="/pix/logolinks.gif" width=128 height=149 alt="" border=0></td>
  46.     <td width=629 valign=top nowrap background="/pix/topstripe.gif"><img src="/pix/logorechts.gif" width=159 height=149 alt="" border=0></td>
  47.     <td width=23 valign=top nowrap><img src="/pix/topright.gif" width=23 height=149 alt="" border=0></td>
  48. </tr>
  49. <tr>
  50. <td background="/pix/navback.gif" align=left valign=top class=navi>
  51. <br>
  52. <:
  53.     @pages = (
  54.         [Overview    => '/index.plp'],
  55.         [Download    => '/files.plp'],
  56.         [Installation=> '/install.plp'],
  57.         [Docs        =>'/pod.plp'],
  58.         [Tutorial    => '/tutorial.plp'],
  59.         [Credits     =>'/credits.plp'],
  60. (defined $nosource ? () : (
  61.         ['<br>'],
  62.         ['Page Source'  => "/source$ENV{PLP_NAME}"],
  63. )),
  64.         ['<br>Hosted by:<br>'],
  65.         [Convolution => 'http://www.convolution.nl/'],
  66.     );

  68.     $i = 0;
  69.     for (@pages){
  70.         $i++;
  71.         if (!$_->[1]){
  72.             print $_->[0];
  73.         }elsif ($ENV{PLP_NAME} eq $_->[1]){
  74.             print qq{<strong>$_->[0]</strong><br>\n};
  75.         }else{
  76.             print qq{<a href="$_->[1]">$_->[0]</a><br>\n};
  77.         }
  78.     }
  79. :>
  80. </td>
  81. <td valign="top" align="left" class="main">

  83. <: PLP_END { :>
  84. </td><td background="/pix/mainstripe.gif"></td></tr>

  86. <tr><td><img src="/pix/1.jpg" width=128 height=50 alt=""><br></td>
  87. <td>&nbsp;</td><td><img src="/pix/2.gif" width=23 height=50 alt=""><br></td></tr>
  88. </table>
  89. </body>
  90. </html>
  91. <: } :>