Free qw software for linux

BSD::Ipfwgen is a Perl module to aid in the creation of ipfw-based firewalls.

SYNOPSIS

use BSD::Ipfwgen;

outside qw(**interface list**);
leaf qw(**interface list**);

consolidate qw(**network list**);
us qw(**network list**);
not_us qw(**network list**);
to_us qw(**network list**);
from_us qw(**network list**);
symmetric qw(**network list**);

count_by_interface();
count_by_address qw(**network list**);
count_by_udp qw(**port list**);
count_by_tcp qw(**port list**);

no_looping()
no_spoofing_us()
no_spoofing_by_us()
no_leaf_spoofing()

tcp_from_rules($port, $rules);
tcp_to_rules($port, $rules);
udp_from_rules($port, $rules);
udp_to_rules($port, $rules);

from_net_rules($network, $rules);
to_net_rules($network, $rules);

to_me_rules($rules)
not_to_me_rules($rules)
from_me_rules($rules)
not_from_me_rules($rules)

in_interface_rules($interface, $rules);
out_interface_rules($interface, $rules);

drop_unwanted qw(**network list**);

generate qw(**options**)

**port list** is a list of integers. 80, 23, etc.
**network list** is a list of network address. 207.33.90.32/27 etc.
**interface list** is a list of interface names. de0, fxp1 etc
**options** is a list of the valid options: DEFAULT-ACCEPT, INSECURE
$rules is a newline separated set of L< ipfw > rules.

Ipfwgen is designed to make writing complex firewalls easier and safer. It handles generating some of the harder rulesets: anti-spoofing, anti-looping, and anti land-attack.

Ipfwgen does not try to reduce the complexity of firewall building. What it does do is allow you to write a perl program which generates a firewal. Its expected that the firewalls generated by Ipfwgen will be examined by a human and installed manually.

Ipfwgen commands must be given in a particular sequence. First are the declaritive commands: outside, leaf, consolidate, us, not_us, and symmetric.

Then the rule-specification commands: almost everything else. Ipfwgen keeps an internal database of the rules that are in progress. After all the rule-specification commands are done, then the firewall gets compiled.

The generate command compiles the specifications into actuall ipfw commands and dumps them on STDOUT.

Alien::wxWidgets is a Perl module for building, finding and using wxWidgets binaries.

SYNOPSIS

use Alien::wxWidgets < options >;

my $version = Alien::wxWidgets->version;
my $config = Alien::wxWidgets->config;
my $compiler = Alien::wxWidgets->compiler;
my $linker = Alien::wxWidgets->linker;
my $include_path = Alien::wxWidgets->include_path;
my $defines = Alien::wxWidgets->defines;
my $cflags = Alien::wxWidgets->c_flags;
my $linkflags = Alien::wxWidgets->link_flags;
my $libraries = Alien::wxWidgets->libraries( qw(gl adv core base) );
my @libraries = Alien::wxWidgets->link_libraries( qw(gl adv core base) );
my @implib = Alien::wxWidgets->import_libraries( qw(gl adv core base) );
my @shrlib = Alien::wxWidgets->shared_libraries( qw(gl adv core base) );
my @keys = Alien::wxWidgets->library_keys; # gl, adv, ...
my $library_path = Alien::wxWidgets->shared_library_path;
my $key = Alien::wxWidgets->key;
my $prefix = Alien::wxWidgets->prefix;

Please see Alien for the manifesto of the Alien namespace.

In short Alien::wxWidgets can be used to detect and get configuration settings from an installed wxWidgets.

XML::ValidWriter is DOCTYPE driven valid XML output.

SYNOPSIS

## As a normal perl object:
$writer = XML::ValidWriter->new(
DOCTYPE => $xml_doc_type,
OUTPUT => *FH
) ;
$writer->startTag( b1 ) ;
$writer->startTag( c2 ) ;
$writer->end ;

## Writing to a scalar:
$writer = XML::ValidWriter->new(
DOCTYPE => $xml_doc_type,
OUTPUT => $buf
) ;

## Or, in scripting mode:
use XML::Doctype NAME => a, SYSTEM_ID => a.dtd ;
use XML::ValidWriter qw( :all :dtd_tags ) ;
b1 ; # Emits < a >< b1 >
c2( attr=>"val" ) ; # Emits < /b1 >< b2 >< c2 attr="val" >
endAllTags ; # Emits < /c2 >< /b2 >< /a >

## If youve got an XML::Doctype object handy:
use XML::ValidWriter qw( :dtd_tags ), DOCTYPE => $doctype ;

## If youve saved a preparsed DTD as a perl module
use FooML::Doctype::v1_0001 ;
use XML::ValidWriter qw( :dtd_tags ) ;

#
# This all assumes that the DTD contains:
#
# < !ELEMENT a ( b1, b2?, b3* ) >
#
# < !ELEMENT b1 ( c1 ) >
# < !ELEMENT b2 ( c2 ) >
#

STATUS

Alpha. Use and patch, dont depend on things not changing drastically.
Many methods supplied by XML::Writer are not yet supplied here.

Wiki::Toolkit::Formatter::Mediawiki is a Mediawiki-style formatter for Wiki::Toolkit.

SYNOPSIS

This package implements a formatter for the Wiki::Toolkit module which attempts to duplicate the behavior of the Mediawiki application (a set of PHP scripts used by Wikipedia and friends).

use Wiki::Toolkit
use Wiki::Toolkit::Store::Mediawiki;
use Wiki::Toolkit::Formatter::Mediawiki;

my $store = Wiki::Toolkit::Store::Mediawiki->new ( ... );
# See below for parameter details.
my $formatter = Wiki::Toolkit::Formatter::Mediawiki->new (%config,
store => $store);
my $wiki = Wiki::Toolkit->new (store => $store,
formatter => $formatter);

METHODS

new
my $store = Wiki::Toolkit::Store::Mediawiki->new ( ... );
my $formatter = Wiki::Toolkit::Formatter::Mediawiki->new
(allowed_tags => [# HTML
qw(b big blockquote br caption center cite code dd
div dl dt em font h1 h2 h3 h4 h5 h6 hr i li ol p
pre rb rp rt ruby s small strike strong sub sup
table td th tr tt u ul var),
# MediaWiki Specific
qw(nowiki),],
allowed_attrs => [qw(title align lang dir width height bgcolor),
qw(clear), # BR
qw(noshade), # HR
qw(cite), # BLOCKQUOTE, Q
qw(size face color), # FONT
# For various lists, mostly deprecated but
# safe
qw(type start value compact),
# Tables
qw(summary width border frame rules
cellspacing cellpadding valign char
charoff colgroup col span abbr axis
headers scope rowspan colspan),
qw(id class name style), # For CSS
],
node_prefix => ,
store => $store);

Parameters will default to the values above, with the exception of store, which is a required argument without a default. store does not have to be of type Wiki::Toolkit::Store::Mediawiki.
format

my $html = $formatter->format ($content);

Escapes any tags which werent specified as allowed on creation, then interpolates any macros, then calls Text::WikiFormat::format (with the specialized Mediawiki config) to translate the raw Wiki language supplied into HTML.

find_internal_links

my @links_to = $formatter->find_internal_links ($content);

Returns a list of all nodes that the supplied content links to.

Etk::Constants is a Perl module with costants to use with Etk.

SYNOPSIS

use Etk::Constants qw/ButtonsOk ButtonsClose/;
#
use Etk::Constants qw/:messagedialog/;
#
use Etk::Constants qw/:all/;

This module contains constants to use while building Etk apps. The constants have numerical values which can be used instead.

[COPYRIGHT]

SYNOPSIS

use XML::DOM::Lite qw(Parser XSLT);
$parser = Parser->new( whitespace => strip );
$xsldoc = $parser->parse($xsl);
$xmldoc = $parser->parse($xml);
$output = XSLT->process($xmldoc, $xsldoc);

FindBin::libs is a Perl module used to locate and use lib directories along the path of $FindBin::Bin to automate locating modules. Uses File::Spec and Cwds abs_path to accomodate multiple O/S and redundant symlinks.

SYNOPSIS

# search up $FindBin::Bin looking for ./lib directories
# and "use lib" them.

use FindBin::libs;

# same as above with explicit defaults.

use FindBin::libs qw( base=lib use noexport noprint );

# print the lib dirs before using them.

use FindBin::libs qw( print );

# find and use lib "altlib" dirs

use FindBin::libs qw( base=altlib );

# move starting point from $FindBin::Bin to /tmp

use FindBin::libs qw( Bin=/tmp base=altlib );

# skip "use lib", export "@altlib" instead.

use FindBin::libs qw( base=altlib export );

# find altlib directories, use lib them and export @mylibs

use FindBin::libs qw( base=altlib export=mylibs use );

# "export" defaults to "nouse", these two are identical:

use FindBin::libs qw( export nouse );
use FindBin::libs qw( export );

# use and export are not exclusive:

use FindBin::libs qw( use export ); # do both
use FindBin::libs qw( nouse noexport print ); # print only
use FindBin::libs qw( nouse noexport ); # do nothting at all

# print a few interesting messages about the
# items found.

use FindBinlibs qw( verbose );

# turn on a breakpoint after the args are prcoessed, before
# any search/export/use lib is handled.

use FindBin::libs qw( debug );

# prefix PERL5LIB with the libs found.

use FindBin::libs qw( perl5lib );

# find a subdir of the libs looked for.
# the first example will use both ../lib and
# ../lib/perl5; the second ../lib/perl5/frobnicate
# (if they exist). it can also be used with export
# and base to locate special configuration dirs.
#
# subonly with a base is useful for locating config
# files. this finds any "./config/mypackage" dirs
# without including any ./config dirs. the result
# ends up in @config (see also "export=", above).

use FindBin::libs qw( subdir=perl5 );

use FindBin::libs qw( subdir=perl5/frobnicate );

use FindBin::libs qw( base=config subdir=mypackage subonly export );

General Use

This module will locate directories along the path to $FindBin::Bin and "use lib" or export an array of the directories found. The default is to locate "lib" directories and "use lib" them without printing the list.

Options controll whether the libs found are exported into the callers space, exported to PERL5LIB, or printed. Exporting or setting perl5lib will turn off the default of "use lib" so that:

use FindBin::libs qw( export );
use FindBin::libs qw( p5lib );

are equivalent to

use FindBin::libs qw( export nouse );
use FindBin::libs qw( p5lib nouse );

Combining export with use or p5lib may be useful, p5lib and use are probably not all that useful together.

File::Remove is a Perl module to remove files and directories.

SYNOPSIS

use File::Remove qw(remove);

# removes (without recursion) several files
remove qw( *.c *.pl );

# removes (with recursion) several directories
remove 1, qw( directory1 directory2 );

# removes (with recursion) several files and directories
remove 1, qw( file1 file2 directory1 *~ );

# trashes (with support for undeleting later) several files
trash qw( *~ );

File::Remove::remove removes files and directories. It acts like /bin/rm, for the most part. Although unlink can be given a list of files, it will not remove directories; this module remedies that. It also accepts wildcards, * and ?, as arguments for filenames.

File::Remove::trash accepts the same arguments as remove, with the addition of an optional, infrequently used "other platforms" hashref.