Free self contained software for linux

Class::Accessor::Fast::Contained is a Perl module for fast accessors with data containment.

SYNOPSIS

package Foo;
use base qw(Class::Accessor::Fast::Contained);

# The rest is the same as Class::Accessor::Fast

This module does two things differently to the venerable Class::Accessor::Fast :

Fields are stored at arms-length within a single hash value of $self, rather than directly in the $self blessed referent.
new() allows mixin into an existing object, rather than creating and returning a new blessed hashref. To do this, just call something like:

my $self = Some::Other::Class->new;
$self = $self->Class::Accessor::Fast::Contained::new;

Note that the mixin code only supports objects which use a blessed hash reference or a blessed typeglob reference.
An alias setup() is available which does the same as new() but might make more sense if being used in this way.

GFA Fractal Imager project is a imager which uses a simple visual construction mechanism.
Generalized Finite Automata (GFA) Imager is a simple Java Applet which creates fractal images using an intuitive visual representation of finite automata
Try clicking in the applet area to the right :
You may create links between quadrants and "states" by click-dragging from a quadrant to the state
Self-links between a quadrant and the state it belongs to is allowed (try self-linking all 4 quadrants of a state)
Enhancements:
- This contains the HTML and the applet class files to run stand alone.

makeself.sh is a small shell script that generates a self-extractable tar.gz archive from a directory. The resulting file appears as a shell script (many of those have a .run suffix), and can be launched as is.
The archive will then uncompress itself to a temporary directory and an optional arbitrary command will be executed (for example an installation script). This is pretty similar to archives generated with WinZip Self-Extractor in the Windows world. Makeself archives also include checksums for integrity self-validation (CRC and/or MD5 checksums).
The makeself.sh script itself is used only to create the archives from a directory of files. The resultant archive is actually a compressed (using gzip, bzip2, or compress) TAR archive, with a small shell script stub at the beginning.
This small stub performs all the steps of extracting the files, running the embedded command, and removing the temporary files when its all over. All what the user has to do to install the software contained in such an archive is to "run" the archive, i.e sh nice-software.run.
I recommend using the "run" (which was introduced by some Makeself archives released by Loki Software) or "sh" suffix for such archives not to confuse the users, since they know its actually shell scripts (with quite a lot of binary data attached to it though!).
Usage
The syntax of makeself is the following:
makeself.sh [args] archive_dir file_name label startup_script [script_args]
args are optional options for Makeself. The available ones are :
--version : Prints the version number on stdout, then exits immediately
--gzip : Use gzip for compression (is the default on platforms on which gzip is commonly available, like Linux)
--bzip2 : Use bzip2 instead of gzip for better compression. The bzip2 command must be available in the command path. I recommend that you set the prefix to something like .bz2.run for the archive, so that potential users know that theyll need bzip2 to extract it.
--compress : Use the UNIX "compress" command to compress the data. This should be the default on all platforms that dont have gzip available.
--nocomp : Do not use any compression for the archive, which will then be an uncompressed TAR.
--notemp : The generated archive will not extract the files to a temporary directory, but in a new directory created in the current directory. This is better to distribute software packages that may extract and compile by themselves (i.e. launch the compilation through the embedded script).
--current : Files will be extracted to the current directory, instead of in a subdirectory. This option implies --notemp above.
--follow : Follow the symbolic links inside of the archive directory, i.e. store the files that are being pointed to instead of the links themselves.
--append (new in 2.1.x): Append data to an existing archive, instead of creating a new one. In this mode, the settings from the original archive are reused (compression type, label, embedded script), and thus dont need to be specified again on the command line.
--header : Makeself 2.0 uses a separate file to store the header stub, called "makeself-header.sh". By default, it is assumed that it is stored in the same location as makeself.sh. This option can be used to specify its actual location if it is stored someplace else.
--copy : Upon extraction, the archive will first extract itself to a temporary directory. The main application of this is to allow self-contained installers stored in a Makeself archive on a CD, when the installer program will later need to unmount the CD and allow a new one to be inserted. This prevents "Filesystem busy" errors for installers that span multiple CDs.
--nox11 : Disable the automatic spawning of a new terminal in X11.
--nowait : When executed from a new X11 terminal, disable the user prompt at the end of the script execution.
--nomd5 and --nocrc : Disable the creation of a MD5 / CRC checksum for the archive. This speeds up the extraction process if integrity checking is not necessary.
--lsm file : Provide and LSM file to makeself, that will be embedded in the generated archive. LSM files are describing a software package in a way that is easily parseable. The LSM entry can then be later retrieved using the -lsm argument to the archive. An exemple of a LSM file is provided with Makeself.
archive_dir is the name of the directory that contains the files to be archived
file_name is the name of the archive to be created
label is an arbitrary text string describing the package. It will be displayed while extracting the files.
startup_script is the command to be executed from within the directory of extracted files. Thus, if you wish to execute a program contain in this directory, you must prefix your command with "./". For example, ./program will be fine. The script_args are additionnal arguments for this command.
Enhancements:
- Fixed --info output.
- Generate random directory name when extracting files to . to avoid problems.
- Better handling of errors with wrong permissions for the directory containing the files.
- Avoid some race conditions, Unset the $CDPATH variable to avoid problems if it is set. Better handling of dot files in the archive directory.

Asterisk::FastAGI is a Perl module for FastAGI handling.

SYNOPSIS

use base Asterisk::FastAGI;

sub fastagi_handler {
my $self = shift;

my $param = $self->param(foo);
my $callerid = $self->input(calleridname);

$self->agi->say_number(1000);
}

Asterisk::FastAGI provides a preforking daemon for handling FastAGI requests from Asterisk.

Read the Net::Server for more information about the logging facilities, configuration, etc.

USAGE EXAMPLE

First you need a module containing all of your AGI handlers.

package MyAGI;

use base Asterisk::FastAGI;

sub agi_handler {
my $self = shift;
$self->agi->say_number(8675309);
}

Then you simply need to have a script that runs the daemon.

#!/usr/bin/perl
use MyAGI;

MyAGI->run();

When it is run it creates a preforking daemon on port 4573. That is the default port for FastAGI. Read the Net::Server documentation on how to change this and many other options.

Log::Delimited is a simple module to help log results.

SYNOPSIS

#!/usr/bin/perl -w

use strict; use Log::Delimited;

my $log = Log::Delimited->new({ log_cols => [url, step, elapsed], log_info => [http://slap.com/cgi-bin/slow_script, step 1, 99993.0923], })->log;

$log->{log_info} = [http://slap.com/cgi-bin/slow_script, step 2, 8.3240]; $log->log;

Log is sort of a dumb program that leads to sort of smart stuff.

It takes some columns (this, that, else), some data (rulz, rocks!, do something) and a delimiter (|), and makes a file that looks like this

this|that|else

my_hostname|12342|1000204952|rulz|rocksrocks%21|do+something

the first row is a join($delimiter, @column_names), the second (in a little pseudo code) forms

@data = ($hostname, $pid, time, $array_ref_of_your_passed_data)

then forms the row with join($delimiter, URLEncode(@data)). By the way, you can turn off the hostname, pid and time inclusion, but in most applications, they have come in handy. To turn them off just set which applies from below

$self->{no_hostname} = 1;
$self->{no_pid} = 1;
$self->{no_time} = 1;

To turn off Url encoding, just set

$self->{no_URLEncode} = 1;

In this document, $self is a Log::Delimited object.

The log directory is

$self->{base_dir} = "/tmp/logs"; $self->{log_dir} ||= "$self->{base_dir}/$self->{log_node}";

Log uses the last part of your script name ($0) for the log_node if you dont pass one.

The log file is

$self->{log_filename} ||= "$self->{log_dir}/$self->{log_name}";

Log uses the last part of your script name ($0) for the log_name if you dont pass one.

Since logs can get to be quite large, you can easily zip, by doing

$self->zip;

If you have a large log, where size is a bigger issue than speed you can do

$self->log_zipped;

which will result in just a zipped log file.

Catalyst::Controller::Constraints contains Constraint Signatures for Controller Actions.

SYNOPSIS

package MyApp::Controller::Foo;
...
use base qw(Catalyst::Controller::Constraints);

__PACKAGE__->config(
constraints => {

# allow only digits for type Integer
Integer => qr/^d+$/,

# allow only word chars for type Word
Word => sub { /^w+$/ },

# validate user id and inflate to object
User => {

# check the user id
check => sub {
my ( $self, $c, $id ) = @_;
return $c->is_valid_user_id( $id );
},

# forward to this action if the validation failed
on_fail => invalid_user,

# if value is valid, run it through this filter
# afterwards
post_filter => sub {
my ( $self, $c, $id ) = @_;
$c->fetch_user_by_id( $id );
},
}

# inheritance
HighInteger => {
inherit_from => Integer,
check => sub { $_ > 22 },
},

# collapse multiple arguments
MyDate => {

# take three integers and return one value
takes => 3,
gives => 1,

# inflate to a datetime object
post_filter => sub {
my ( $self, $c, $y, $m, $d ) = @_;
DateTime->new(
year => $y, month => $m, day => $d );
}
}
}
);

# add two integers, just throws exception on constraint failure
sub add : Local Args(2) Constraints(Integer a, Integer b) {
my ( $self, $c ) = @_;
$c->res->body( $_{a} + $_{b} );
}

# puts the word into the stash, under the key foo
sub stashword : Local Args(1) Constraints( Word foo* ) { }

# user_obj ends as a user object in the stash
sub view_user : Local Args(1) Constraints( User user_obj* ) { }
sub invalid_user : Private {
# handle invalid userid
}

1;

Wiki on a Stick is a personal wiki that lives in a single self-modifying HTML file that contains the software, interface, and database.

Its useful for taking notes, for use as a calendar, and for documenting software, etc. Wiki on a Stick currently only works in Firefox