Michael Robinton > Mail-SpamCannibal > Mail::SpamCannibal::ScriptSupport

Download:
Mail-SpamCannibal-1.07.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.59   Source  

NAME ^

Mail::SpamCannibal::ScriptSupport - A collection of script helpers

SYNOPSIS ^

  use Mail::SpamCannibal::ScriptSupport qw(
        DO
        doINCLUDE
        SerialEntry
        TarpitEntry
        DNSBL_Entry
        id
        question
        revIP
        query
        dns_udpsend
        dns_udpresp
        dns_ans
        dns_ns
        dns_ptr
        rlook_send
        rlook_rcv
        zone_def
        valid127
        validIP
        zap_one
        zap_pair
        job_died
        dbjob_chk
        dbjob_kill
        dbjob_recover
        unpack_contrib
        lookupIP
        list2NetAddr
        matchNetAddr
        BLcheck
        checkclct
        dumpIPs
        BLpreen
        mailcheck
        abuse_host
        is_GENERIC
        block4zonedump
  );

FUNCTIONS ^

  $rv = DO($file,$nowarnings);
  $rv = doINCLUDE($file,$nowarnings);
  $packedIPaddr = SerialEntry()
  $packedIPaddr = TarpitEntry();
  $packedIPaddr = DNSBL_Entry();
  $unique = id($seed);
  $querybuf = question($name,$type);
  $rev = revIP($ip);
  $response = query(\$buffer,$timeout);
  $socket = dns_udpsend(\$buffer,$timeout);
  $response = dns_udpresp($socket,$timeout);
  ($aptr,$tptr,$auth_zone) = dns_ans(\$buffer);
  $nsptr = dns_ns(\$buffer);
  $hostname = dns_ptr(\$buffer);
  @hosts = dns_ptr(\$buffer);
  $socket = rlook_send($IP,$timeout);
  $hostname = rlook_rcv($socket,$timeout);
  ($expire,$error,$dnresp,$timeout)=zone_def($zone,\%dnsbl);
  $dotquad = valid127($dotquad);
  $dotquad = validIP($dotquad);
  $rv = job_died(\%jobstatus,$directory);
  $rv = dbjob_chk(\%default_config);
  dbjob_kill(\%default_config,$graceperiod);
  dbjob_recover(\%default_config);
  ($respip,$err,$blrsp,$exp,$zon)=unpack_contrib($record);
  ($which,$text)=lookupIP(\%config,$dotquadIP,$sockpath,$is_network);
  $rv=list2NetAddr(\@inlist,\@NAobject);
  $rv = matchNetAddr($ip,\@NAobject);
  $rv = BLcheck(\%DNSBL,\%default);
  $hashref = checkclct($DNSBL);
  $rv = dumpIPs($DNSBL, $allipsHASHptr);
  $rv = BLpreen(\%DNSBL,\%default);
  @err=mailcheck($fh,\%MAILFILTER,\%DNSBL,\%default,\@NAignor,\$spamsource)
  $rv=zap_one($tool,$netaddr,$db,$verbose,$comment);
  zap_pair($tool,$netaddr,$pri,$sec,$debug,$verbose,$comment);
  $rv = is_GENERIC($conf->{GENERIC},@hostnames);
  block4zonedump($environment);

METHODS ^

  $object = new Mail::Spamcannibal::ScriptSupport;
  $rv = $object->dns2rblz($line);
  $firstline = $object->rbldns_combined($type);
  $textline = $object->rbldns_compress($textline);
  $lastline = $object->rbldnst_done();
  $lastline = $object->rbldns_done();
  $last_combined = rbldns_address();

DESCRIPTION ^

Mail::SpamCannibal::ScriptSupport provides a collection of support utilities for sc_BLcheck, sc_BLpreen, sc_mailfilter, sc_admin, sc_session, and cannibal.cgi.

DEPENDENCIES ^

        NetAddr::IP::Lite
        Net::DNS::Codes
        Net::DNS::ToolKit
        Net::DNS::ToolKit::RR
        Mail::SpamCannibal::GoodPrivacy
        Mail::SpamCannibal::BDBclient

EXPORT ^

        none by default

EXPORT_OK ^

        DO
        doINCLUDE
        SerialEntry
        TarpitEntry
        DNSBL_Entry
        id
        question
        revIP   
        query   
        dns_ans 
        zone_def
        valid127
        validIP
        zap_one
        zap_pair
        job_died
        dbjob_chk
        dbjob_kill
        dbjob_recover
        unpack_contrib
        lookupIP
        list2NetAddr
        matchNetAddr
        BLcheck
        checkclct
        dumpIPs
        BLpreen
        mailcheck
        abuse_host
        is_GENERIC
        block4zonedump

COPYRIGHT ^

Copyright 2003 - 2010, Michael Robinton <michael@bizsystems.com>

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

AUTHOR ^

Michael Robinton <michael@bizsystems.com>

SEE ALSO ^

IPTables::IPv4::DBTarpit, Net::DNS::Codes, Net::DNS::ToolKit, Net::DNS::ToolKit::RR, Mail::SpamCannibal::DNSBLserver, Mail::SpamCannibal::BDBaccess

syntax highlighting: