#!/usr/bin/perl # # Purpose: Slow down the spammers by delaying the smtp transaction when # a recognized problem IP connects.
use strict; use Net::PcapUtils; use NetPacket::Ethernet qw(:strip); use NetPacket::IP; use IPTables::IPv4::IPQueue; use Net::EasyTCP; Can someone explain why I need Net::PcapUtils, NetPacket::Ethernet, and NetPacket::IP? I assume that I need IPTables::IPv4::IPQueue to work with userspace queueing of packets. I'm queueing all packets coming to port 25 from the Internet, or I will be when I get this script written ;-) Do I need any other use statements? _______________________________________________ PLUG mailing list PLUG@lists.pdxlinux.org http://lists.pdxlinux.org/mailman/listinfo/plug