Michael Robinton > LaBrea-Tarpit > LaBrea::Tarpit::Codes

Download:
LaBrea-Tarpit-1.36.tar.gz

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Source  

NAME ^

  LaBrea::Tarpit::Codes

SYNOPSIS ^

  use LaBrea::Tarpit::Codes qw (
        protocol
        icmp
        numeric
  );

  $text   = protocol(number);
  $number = protocol(text);
  $text   = icmp(number);
  $number = icmp(text);
  $rv     = numeric(scalar);

DESCRIPTION ^

This module is built by Makefile.PL from the text files in the IANA subdirectory (copied from the IANA web site).

Do not edit the Codes.pm file, changes will be lost.

$rv = protocol($x);
  Returns the upper case text name of a protocol
  number or the protocol number of a text name.

  i.e.  'TCP' = protocol(6);
          6   = protocol('Tcp');
          (not case sensitive)

  return -1 or 'unknown' if lookup value 
  is not present in table
$rv = icmp($x);
  Returns the upper case text name of an icmp
  number or the icmp number of the text name.

  i.e.  'ECHO' = icmp(8);
           8   = icmp('EcHo');
           (not case sensitive)

  return -1 or 'unknown' if lookup value 
  is not present in table
$rv = numeric(scalar);
  Return true if the scalar is a number 
  0,-n,+n
    else
  returns false

EXPORT ^

  None by default.

COPYRIGHT ^

Copyright 2002, Michael Robinton & BizSystems 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 ^

perl(1), LaBrea::Tarpit(3), LaBrea::Tarpit::Get(3), LaBrea::Tarpit::Report(3), LaBrea::Tarpit::Util(3), LaBrea::Tarpit::DShield(3)

EOF

close C;

syntax highlighting: