home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 15 / QRZ_Ham_Radio_Callsign_Database_Volume_15_Walnut_Creek_Summer_2000.iso / modfiles / mod.cgi < prev    next >
Text File  |  2000-05-02  |  627b  |  32 lines
  1. #!/bin/perl
  2.  
  3. print qq(Content-type: text/html
  4.  
  5. <HTML><HEAD><TITLE>QRZ Radio Modification Files: $ARGV[0]</TITLE></HEAD>
  6. <BODY bgcolor="#FFFFFF">
  7. );
  8.  
  9. if (open (INS, "/c/apache/perl/insert |")) {
  10.     while (<INS>) {
  11.     print;
  12.     }
  13. }
  14.  
  15. print qq(<hr><font face="Courier,fixed"><PRE>\n);
  16.  
  17. if ($ARGV[0] && open (MOD, "/c/ftp/files/modfiles/$ARGV[0]")) {
  18.  
  19.     while (<MOD>) {
  20.     print;
  21.     }
  22. }
  23.  
  24. print qq(\n</pre></font><hr>
  25.  
  26. <a href="http://www.qrz.com/home.html"><img src="/gifs/qrzcom124b.gif"
  27. border=0 height="38" width="124" hspace=20></a>
  28. <a href="index.html"><font size="+1"><b>Mods Index</b></font></a>
  29. </BODY></HTML>\n);
  30.  
  31. exit 0;
  32.