general/blacklist

   1 # Blosxom Plugin: blacklist
   2 # Author: Fletcher T. Penney (http://fletcher.freeshell.org)
   3 # Version: 0.1
   4
   5 package blacklist;
   6
   7
   8 # --- Configurable variables ---
   9
  10 # Where is the blacklist file?
  11 $blacklist_file = "$blosxom::plugin_state_dir/blacklist";
  12
  13 # Where is the whitelist file?
  14 $whitelist_file = "$blosxom::plugin_state_dir/whitelist";
  15
  16 # Both the black and white lists consist of one IP address per line
  17 # you may also use regexp's to match more than one address
  18 # Be careful that you don't accidentally block out the world!
  19 # Examples:
  20 # 192.168.1.102 - block this ip addy
  21 # 192.168.1.* - block the whole subnet
  22 # 192.* - blocks a whole bunch of addresses
  23 # .* - blocks the world
  24 # 192.168.1 - fails to match, as this is not a complete address
  25 #
  26
  27 # What should I display for a page that isn't found
  28 $message = "404 Not Found\n";
  29
  30 # ------------------------------
  31 my ( @blacklist, @whitelist) = ();
  32
  33 sub start {
  34
  35         if (open (BLACK, "< $blacklist_file")) {
  36                 @blacklist = <BLACK>;
  37                 close BLACK;
  38
  39                 if (open (WHITE, "< $whitelist_file")) {
  40                         @whitelist = <WHITE>;
  41                         close WHITE;
  42                 }
  43
  44
  45                 $remoteIP = $ENV{'REMOTE_ADDR'};
  46                 foreach (@whitelist) {
  47                         chomp $_;
  48                         if (($_ !~ /^\s*$/) && ($remoteIP =~ /^$_$/)) {
  49                                 return 0 ;
  50                                 warn "IP address $_ is whitelisted\n";
  51                         }
  52                 }
  53
  54                 foreach (@blacklist) {
  55                         chomp $_;
  56                         if (($_ !~ /^\s*$/) && ($remoteIP =~ /^$_$/)) {
  57                                 #$blosxom::output = "Status: 404", exit;
  58                                 warn "IP address $_ is blacklisted\n";
  59
  60                                 # You may want to disable certain plugins,
  61                                 # such as writebacks here, as blosxom is still
  62                                 # functioning - it just won't return any results
  63                                 #$blosxom::plugins{'writebacks'} = 0;
  64
  65                                 return 1;
  66                         }
  67                 }
  68                 return 0;  # We're finished
  69         }
  70 }
  71
  72
  73 sub last {
  74         # We only end up here if we are blacklisting someone
  75
  76         $blosxom::output = $message;
  77         print "Status: 404\n";
  78
  79         1;
  80 }
  81
  82 1;
  83
  84
  85 __END__
  86
  87 =head1 NAME
  88
  89 Blosxom Plug-in: blacklist
  90
  91 =head1 SYNOPSIS
  92
  93 Allows you to blacklist (or whitelist) certain IP addresses or IP ranges by using regexp's.  You create two files, consisting of one term per line.  The plugin compares the visitor's IP address to each term and quits when it finds a match.  Whitelists supercede blacklists.
  94
  95 This plugin does not prevent blosxom from performing all of its steps.  Instead, if a visitor is blacklisted, it erases all of the HTML just prior to sending it to the visitor's browser, and instead sends a 404 code, making it appear as if your web pages are no longer present.
  96
  97 =head1 VERSION
  98
  99 Version 0.1
 100
 101 =head2 VERSION HISTORY
 102
 103 0.1     - initial public release
 104
 105 =head1 BUGS
 106
 107 None known; please send bug reports and feedback to the Blosxom
 108 development mailing list <blosxom-devel@lists.sourceforge.net>.
 109
 110 =head1 AUTHOR
 111
 112 Fletcher T. Penney, http://fletcher.freeshell.org
 113
 114 This plugin is now maintained by the Blosxom Sourceforge Team,
 115 <blosxom-devel@lists.sourceforge.net>.
 116
 117 =head1 LICENSE
 118
 119 Blosxom Blacklist Plug-in
 120 Copyright 2003, by Fletcher T. Penney
 121
 122 Permission is hereby granted, free of charge, to any person obtaining a
 123 copy of this software and associated documentation files (the "Software"),
 124 to deal in the Software without restriction, including without limitation
 125 the rights to use, copy, modify, merge, publish, distribute, sublicense,
 126 and/or sell copies of the Software, and to permit persons to whom the
 127 Software is furnished to do so, subject to the following conditions:
 128
 129 The above copyright notice and this permission notice shall be included
 130 in all copies or substantial portions of the Software.
 131
 132 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 133 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 134 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 135 THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
 136 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
 137 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 138 OTHER DEALINGS IN THE SOFTWARE.