home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / wvhtm064.zip / gateway / wvHtmlBug.cgi < prev   
Text File  |  2001-02-04  |  3KB  |  161 lines
  1. #!/usr/bin/perl
  2.  
  3. print "Content-type:text/html\n\n";
  4.  
  5. require ("cgi-lib.pl");
  6. &ReadParse;
  7.  
  8. if ($in{'name'})
  9. {
  10.   &print_web_page;
  11.   &print_file;
  12. }
  13. else
  14. {
  15.   &print_error_page;
  16. }
  17.  
  18. exit;
  19.  
  20. sub print_error_page
  21. {
  22.   print "<html>\n";
  23.   print "<body>\n";
  24.   print "There was an error in submitting this bug report\n, sorry\n";
  25.   print "</body>\n";
  26.   print "</html>\n"; 
  27. }
  28.  
  29. sub print_web_page
  30. {  
  31. print <<__END_OF_HTML_CODE1__;
  32.  
  33. <html>
  34. <head><title>wvBugReport, Your Bug Report</title></head>
  35. <body link="#CC0000" alink="#FF3300" vlink="#330099" text="#000000" bgcolor="#336666">
  36. <table CELLPADDING=0 CELLSPACING=2 border="0">  <!-- begin table-->
  37. <tr>
  38. <td>
  39. <br>
  40. </td>
  41. </tr>
  42.  
  43. <tr>
  44.  
  45. <td rowspan="2" valign="top" width="110">
  46.  
  47. <table CELLPADDING=2 CELLSPACING=0 width="100%" bgcolor="#000000" border="0">
  48. <tr>
  49. <td>
  50. <table CELLPADDING=3 CELLSPACING=0 width="100%" bgcolor="#ffffff" border="0">
  51. <tr>
  52. <td>
  53. <div align="center">
  54. <font color="#336666">
  55. <b>Navigation</b>
  56. </font>
  57. </div>
  58. <hr width="25%">
  59. <a href="../wvHome.html">wvHome</a><br>
  60.    <a href="../wvWare.html">wvWare</a><br>
  61.    <a href="../wvOnlineDemo.html">wvOnlineDemo</a><br>
  62.       wvBugReport<br>
  63. </td>
  64. </tr>
  65. </table>
  66. </td>
  67. </tr>
  68. </table>
  69.  
  70. </td>
  71.  
  72. <td>
  73.  
  74. <table CELLPADDING=2 CELLSPACING=0 width="100%" border="0" bgcolor="#000000">
  75. <tr>
  76. <td>
  77. <table CELLPADDING=3 CELLSPACING=0 width="100%" border="0" bgcolor="#ffffff">
  78. <tr>
  79. <td>
  80.  
  81. <table CELLPADDING=0 CELLSPACING=0 width="100%" border="0">
  82. <tr>
  83. <td>
  84.  
  85. <font color="#336666">
  86. <h1>wvBugReport</h1>
  87. <h2>Your Bug Report for wvHtml</h2>
  88. </font>
  89. </td>
  90. <td>
  91. <div align=right>
  92. <img src="../pics/wvMedium.jpg" alt = "A Word 8 converter for Unix">
  93. </div>
  94. </td>
  95. </tr>
  96. </table>
  97. </td>
  98. </tr>
  99. </table>
  100. </td>
  101. </tr>
  102. </table>
  103.  
  104. </td>
  105. <td valign="top" width="10">
  106. </td>
  107.  
  108. </tr>
  109.  
  110. <tr>
  111. <td>
  112. <table CELLPADDING=2 CELLSPACING=0 width="100%" bgcolor="#000000" border="0">
  113. <tr>
  114. <td>
  115. <table CELLPADDING=3 CELLSPACING=0 width="100%" bgcolor="#ffffff" background="../pics/weave.jpg" border="0">
  116. <tr>
  117. <td>
  118. <h1>wvHtml Online Demonstration</h1>
  119. __END_OF_HTML_CODE1__
  120.  
  121. print "<table border=1><tr><td>Filename</td><td>Comment</td><td>Status</td></tr><tr>\n";
  122. print "<td valign=\"top\">$in{'name'}</td>\n";
  123. print "<td valign=\"top\">$in{'comments'} </td>\n";
  124. print "<td valign=\"top\">Pending</td>\n";
  125. print "</tr></table>\n";
  126. print "<a href=\"../wvBugListing.html\">Full Bug Listing</a>\n";
  127.  
  128. print <<__END_OF_HTML_CODE2__;
  129.  
  130. </td>
  131. </tr>
  132. </table>
  133. </td>
  134. </tr>
  135. </table>
  136.  
  137. </TD>
  138. <td valign="top" width="10">
  139. </td>
  140. </TR>
  141. </TABLE>
  142.  
  143. </BODY>
  144. </HTML>
  145.  
  146. __END_OF_HTML_CODE2__
  147. }
  148.  
  149. sub print_file
  150. {
  151.   open(DATAFILE,">>wvBugList.shtml") || die print "Failed to open links.htm";
  152.         print DATAFILE "<tr>\n";
  153.         print DATAFILE "<td valign=\"top\">$in{'name'}</td>\n";
  154.         print DATAFILE "<td valign=\"top\">$in{'comments'}</td>\n";
  155.         print DATAFILE "<td valign=\"top\">Pending</td>\n";
  156.         print DATAFILE "<td valign=\"top\"> </td>\n";
  157.         print DATAFILE "</tr>\n";
  158.         close DATAFILE;
  159. }
  160.  
  161.