home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 15 / QRZ_Ham_Radio_Callsign_Database_Volume_15_Walnut_Creek_Summer_2000.iso / modfiles / table.pl < prev    next >
Perl Script  |  2000-05-02  |  1KB  |  46 lines
  1. #!/bin/perl
  2.  
  3. print "<HTML>
  4. <HEAD><TITLE>Radio Modification files at QRZ.COM</TITLE></HEAD>
  5. <BODY bgcolor=\"white\">
  6. <a name=\"1\">
  7. <map name=\"main.map\">
  8.     <area shape=\"rect\" coords=\"1, 1,   108,  72\" href=\"/index.html\">
  9.     <area shape=\"rect\" coords=\"160, 1,  256,  72\" href=\"/webcall.cgi?\">
  10.     <area shape=\"rect\" coords=\"275, 1,  344,  72\" href=\"/findham.html?\">
  11.     <area shape=\"rect\" coords=\"360, 1,  416,  72\" href=\"/new_hams.html?\">
  12.     <area shape=\"rect\" coords=\"429, 1,  500,  72\" href=\"/clubs.html?\">
  13. </map>
  14. <img src=\"http:/gifs/qrzmain.jpg\" height=\"72\" width=\"500\" border=0 usemap=\"#main.map\" ISMAP></a>
  15.  
  16. <p>
  17. <font size=+2 color=\"#008F00\">Radio modification files at QRZ.COM</font>
  18. <p>
  19.  
  20. <font size=+2><b><a href=\"/mods/mod_info.html\">What if your make/model
  21. isn't listed here...</a></font>
  22. <H2>Radio Mods Index</H2>
  23. <TABLE BORDER=0 width=800>
  24. ";
  25.  
  26. $line=0;
  27. while (<>)
  28. {
  29.     chomp;
  30.  
  31.     /(.*?)\s+(.*?)\s+(.*?)\s+(.*)/;
  32.  
  33.     print "<tr><td><a href=\"./$1\">$1</a></td><td>$2</td>";
  34.     print "<td><a href=\"./$1\">$4</a></td></tr>\n";
  35.     $line++;
  36.     if ($line == 64) {
  37.         print "</table>\n<table border=0 width=800>\n";
  38.         $line = 0;
  39.         }
  40.  
  41. }
  42.  
  43. print "</table>\n";
  44. print "<p><a href=\"#1\">Back to Top of Page</a><hr>\n";
  45. print "</BODY></HTML>\n";
  46.