examples/debian/misc/bugspam.cgi

   1 #!/usr/bin/perl -wT
   2
   3 use strict;
   4 use CGI qw(param remote_host);
   5
   6 sub quitcgi($;$) {
   7     my ($msg, $status) = @_;
   8     $status //= '500 Internal Server Error';
   9     print "Status: $status\n";
  10     print "Content-Type: text/html\n\n";
  11     print "<HTML><HEAD><TITLE>Error</TITLE></HEAD><BODY>\n";
  12     print "An error occurred. Dammit.\n";
  13     print "Error was: $msg.\n";
  14     print "</BODY></HTML>\n";
  15     exit 0;
  16 }
  17
  18 my $bug = param('bug') or quitcgi('No bug specfied', '400 Bad Request');
  19 quitcgi('No valid bug number', '400 Bad Request') unless $bug =~ /^\d{3,6}$/;
  20 my $remote_host = remote_host or quitcgi("No remote host");
  21 my $ok = param('ok');
  22 if (not defined $ok) {
  23    print "Content-Type: text/html\n\n";
  24    print "<HTML><HEAD><TITLE>Verify submission</TITLE></HEAD><BODY>\n";
  25    print "<H2>Verify report for bug $bug</H2>\n";
  26    print qq(<A HREF="bugspam.cgi?bug=$bug;ok=ok">Yes, report that bug $bug has spam</A>\n);
  27    print "</BODY></HTML>\n";
  28    exit 0;
  29 }
  30 my $time = time();
  31
  32 if ($remote_host =~ /^(?:222\.145\.167\.130|222\.148\.27\.140|61\.192\.213\.69|59\.124\.205\.94|221\.191\.105\.116|87\.69\.80\.58|201\.215\.217\.26|201\.215\.217\.32|66\.63\.250\.28|124\.29\.15\.132|61\.192\.200\.111|58\.81\.190\.204|220\.150\.239\.110|59\.106\.128\.138|216\.170\.223\.41|87\.165\.200\.176|62\.4\.19\.137|122\.16\.111\.96|121\.94\.6\.159|190\.42\.8\.125|61\.192\.200\.130|82\.135\.92\.154|221\.115\.95\.197|222\.239\.79\.10(?:7|8)|210\.91\.8\.51|61\.192\.206\.109|61\.192\.203\.55|140\.123\.100\.(?:15|13)|193\.203\.240\.134)$/) {
  33     print "Content-Type: text/html\n\n";
  34     print "<HTML><HEAD><TITLE>Go Away</TITLE></HEAD><BODY>\n";
  35     print "<h2>Report rejeted</h2>\n";
  36     print "You have been abusing the BTS.  Please go away.  Contact owner\@bugs.debian.org if you can explain why you should be allowed to use the BTS.\n";
  37     print "</BODY></HTML>\n";
  38     exit 0;
  39 }
  40
  41 open SPAMEDBUGS, '>>', '/org/bugs.debian.org/spammed/spammedbugs'
  42     or quitcgi("opening spammedbugs: $!");
  43 print SPAMEDBUGS "$bug\t$remote_host\t$time\n"
  44     or quitcgi("writing spammedbugs: $!");
  45 close SPAMEDBUGS;
  46
  47 print "Content-Type: text/html\n\n";
  48 print "<HTML><HEAD><TITLE>Thanks</TITLE></HEAD><BODY>\n";
  49 print "<h2>Report accepted</h2>\n";
  50 print "Thank you for reporting that this bug log contains spam.  These reports\n";
  51 print "are reviewed regularly and used to clean the bug logs and train the spam filters.\n";
  52 print "</BODY></HTML>\n";
  53 exit 0;