Free defined software for linux

Chemistry::Mol is a molecule object toolkit.

SYNOPSIS

use Chemistry::Mol;

$mol = Chemistry::Mol->new(id => "mol_id", name => "my molecule");
$c = $mol->new_atom(symbol => "C", coords => [0,0,0]);
$o = $mol->new_atom(symbol => "O", coords => [0,0,1.23]);
$mol->new_bond(atoms => [$c, $o], order => 3);

print $mol->print;

This package, along with Chemistry::Atom and Chemistry::Bond, includes basic objects and methods to describe molecules.
The core methods try not to enforce a particular convention. This means that only a minimal set of attributes is provided by default, and some attributes have very loosely defined meaning.

This is because each program and file type has different idea of what each concept (such as bond and atom type) means. Bonds are defined as a list of atoms (typically two) with an arbitrary type. Atoms are defined by a symbol and a Z, and may have 3D and internal coordinates (2D coming soon).

Dzen is a general purpose messaging and notification program for X11. The project was desigend to be fully scriptable and integrate well with window managers like dwm and wmii.
Main features:
- Fully scriptable
- Language agnostic
- Supports user defined events and actions
- Hideable, Title area
- Autohiding multiline window (can be set sticky)
- tail -f functionality, updates the contents in real time
- Scrollable windows

List::MoreUtils is a Perl module that can provide the stuff missing in List::Util.

SYNOPSIS

use List::MoreUtils qw(any all none notall true false firstidx first_index
lastidx last_index insert_after insert_after_string
apply after after_incl before before_incl indexes
firstval first_value lastval last_value each_array
each_arrayref pairwise natatime mesh zip uniq minmax);

List::MoreUtils provides some trivial but commonly needed functionality on lists which is not going to go into List::Util.

All of the below functions are implementable in only a couple of lines of Perl code. Using the functions from this module however should give slightly better performance as everything is implemented in C. The pure-Perl implementation of these functions only serves as a fallback in case the C portions of this module couldnt be compiled on this machine.

any BLOCK LIST

Returns a true value if any item in LIST meets the criterion given through BLOCK. Sets $_ for each item in LIST in turn:

print "At least one value undefined"
if any { !defined($_) } @list;

Returns false otherwise, or undef if LIST is empty.

all BLOCK LIST

Returns a true value if all items in LIST meet the criterion given through BLOCK. Sets $_ for each item in LIST in turn:

print "All items defined"
if all { defined($_) } @list;

Returns false otherwise, or undef if LIST is empty.

none BLOCK LIST

Logically the negation of any. Returns a true value if no item in LIST meets the criterion given through BLOCK. Sets $_ for each item in LIST in turn:

print "No value defined"
if none { defined($_) } @list;

Returns false otherwise, or undef if LIST is empty.

notall BLOCK LIST

Logically the negation of all. Returns a true value if not all items in LIST meet the criterion given through BLOCK. Sets $_ for each item in LIST in turn:

print "Not all values defined"
if notall { defined($_) } @list;

Returns false otherwise, or undef if LIST is empty.

true BLOCK LIST

Counts the number of elements in LIST for which the criterion in BLOCK is true. Sets $_ for each item in LIST in turn:

printf "%i item(s) are defined", true { defined($_) } @list;

false BLOCK LIST

Counts the number of elements in LIST for which the criterion in BLOCK is false. Sets $_ for each item in LIST in turn:

printf "%i item(s) are not defined", false { defined($_) } @list;

firstidx BLOCK LIST

first_index BLOCK LIST

Returns the index of the first element in LIST for which the criterion in BLOCK is true. Sets $_ for each item in LIST in turn:

my @list = (1, 4, 3, 2, 4, 6);
printf "item with index %i in list is 4", firstidx { $_ == 4 } @list;
__END__
item with index 1 in list is 4

Returns -1 if no such item could be found.

first_index is an alias for firstidx.

Cancerbero (the watchdog of the ports) is a portscan engine based in nmap. It will scan the hosts of a defined net once in every configured interval and it will store the results in a mysql database. It comes with a Web interface to access the scan info.
Main features:
- Graphical configuration.
- Multiple sensors scanning can be deployed.
- There is no limit in the number of ranges to scan.
- Discover the alive (not firewalled) hosts.
- Scans 1-65535 TCP ports of each host.
- Attempts to discover the REAL application and version behind each port.
- Attempts to discover the OS of each host.
- Store all the information in a MySQL database.
- Rescan each host at a defined interval.
- White-Lists with hosts or ranges that you dont like to scan can be defined.
- The information can be access through a graphical interface? (web based)
- You decide how many scans should be archived.
- Stats of all the data are provided.
Install instructions can be found in: http://cancerbero.sourceforge.net/wikka.php?wakka=Install

Streamnik Server project is an IPTV server based on the open codecs Ogg/Vorbis and Ogg/Theora. It can stream a number of different channels and is optimized to run on leased (virtual) servers. The program schedule is defined by an SQL database table and can be changed at runtime.

ZebraTuner is a guitar tuner and generic instrument tuner. The project compares frequencies detected in the signal coming from the microphone to standard or user-defined notes, displaying the results in both graphical and textual form.

The number of notes tested and their frequency is configurable, so it can be used for other instruments and other tunings besides those based on equal temperament (e.g. just intonation-based tunings).

Hash::NoVivify is a Perl extension for non-vivifying exists and defined functions.

SYNOPSIS

use Hash::NoVivify qw(Defined Exists);

...

if (Exists(%hash, qw(key1 key2 ... keyn ))) {
...
}

if (Defined(%hash, qw(key1 key2 ... keyn))) {
...
}

When used on a hash, the exists() and defined() functions will create entries in a hash in order to evaluate the function.

For instance, the code:

%a = (a => 1, b=> 2);
print "Doesnt existn" unless exists($a{c});
print "Also Doesnt existn" unless exists($a{c}->{d});
print "Oh, my, not goodn" if exists($a{c});

will print out:

Doesnt exist
Also Doesnt exist
Oh, my, not good

The Hash::NoVivify module provides two functions, Defined() and Exists(), which avoid this, at the cost of a slightly convoluted syntax. Both functions take a reference to a hash, followed by a list of descending keys defining the hash entry to be investigated.