Free script software for linux

Arena Scripting Language is a light-weight scripting language. The language uses a syntax and library similar to that of ANSI C, but adds automatic memory management and runtime polymorphism on top of that.
Main features:
- syntax similar to ANSI C
- standard library similar to ANSI C
- automatic memory management
- runtime polymorphism
- support for exceptions
- support for anonymous functions
Enhancements:
- This release changes the system() library function to return the raw exit status as given by the operating system.

Arnos IPTABLES firewall script was initially written because I needed to protect my single-homed Linux machine at work. I wrote it at the time I couldnt find any script that really satisfied my needs except for one that was written by a guy called Seven.
I helped him for several months with the work on his script by suppling patches, reporting bugs etc. In this period I was fortunately also able to master scripting for iptables myself because soon Seven discontinued his work, I never got to even talk to the guy ever again. At that point I decided to continue his work, or actually I started my own branch based on his script.
In the summer of 2002 I finally got an ADSL connection at home. Initially I used the iptables firewall that came with the great ADSL4LINUX-package (http://www.adsl4linux.nl). But it didnt take me long to come to the conclusion that their iptables firewall lacked important features like port-forwarding and flexbility with "trusted hosts" etc.
I also didnt like the fact that I had to use a different firewall for my home machine and the machine at work. This made me decide to use some of the ADSL4LINUX knowledge to implement ADSL support.
By now (about 1 year later as of writing) there are only few remnants left of Sevens original script and many, many, many improvements were applied. One major improvement is the ADSL and NAT support (Check the features page with the specifiations of my firewall). For version 2 (alpha) I plan to completely rewrite to script to make it more flexible and to increase the usability for others.
Main features:
- Very secure stateful filtering firewall
- Both kernel 2.4 & 2.6 support
- It can be used for both single- and multi(eg. dual)-homed boxes
- Masquerading (NAT) and SNAT support
- Multiple external (internet) interfaces
- Support multiroute NAT & SNAT (load balancing over multiple (internet) interfaces)
- Port forwarding (NAT)
- Support MAC address filtering
- Support for DSL/ADSL modems
- Support for PPPoE, PPPoA and bridging modem setups
- Support for static and ISP assigned (DHCP) IPs
- Support for (transparent) proxies
- Full support for DMZs and DMZ-2-LAN forwarding. You can also use it to isolate your eg. wireless LAN.
- (Nmap)(stealth) portscan detection
- Protection against SYN-flooding (DoS attacks)
- Protection against ICMP-flooding (DoS attacks)
- Extensive user-definable logging with rate limiting to prevent log flooding
- Includes options to optimize your throughput
- User definable open ports, closed ports, trusted hosts, blocked hosts etc.
- Log & protection options are both highly customizable
- Support for custom iptables rules in a seperate file
- It can be used with chkconfig runlevel system (eg. RedHat/Fedora)
- Main focus on TCP/UDP/ICMP but additional support for *ALL* IP protocols
- It works with Freeswan IPSEC (VPN) & SSH Sentinel (http://www.freeswan.org) (+virtual IPs)
- It works with PoPTop PPTP (http://www.poptop.org)
- It works with UPnP
- DRDOS protection/detection (experimental)
- Its easy to configure
- And much more.
Enhancements:
- This release fixes a nasty bug in the NAT forwarding rules that caused using subnet-source-restrictions not to work.
- It adds an extra rule to the DHCP server section to allow packets from DHCP servers in the same segment.
- There are several plugin updates.
- A Racoon IPSEC VPN plugin and a transparent DNAT plugin have been added.

Jamendo Lyrics is a lyrics script for Amarok audio player accessing the lyrics database for Jamendo.com music.

Advanced Guestbook Script provides a PHP-based guestbook script.

Advanced Guestbook is a PHP-based guestbook script. It includes many useful features such as preview, templates, e-mail notification, page spanning , picture upload, templates, html tags handling, smilies, advanced guestbook codes and language support. The admin script lets you modify, view, and delete messages.

Advanced Poll Script provides a polling system with powerful administration tool.

Advanced Poll is a polling system with powerful administration tool. It features: multiple polls, unlimited options, templates, language support, IP-Logging, IP-Locking, cookie support, comment feature, vote expire feature, random poll support and more. Supports both text file and mySQL database.

Applygain is an Amarok script stolen from amarok_replaygain script.

I only need script to apply replaygain adjustment (using -a or -r) so I can apply replaygain to files in iPod without changing my files in harddisk

Script::Toolbox is a Perl framework for the daily business scripts.

SYNOPSIS

use Script::Toolbox qw(:all);
or
use Script::Toolbox qw(Open Log Exit Table Usage Dir File System)

$e = Script::Toolbox->new();
#
# logging
#
Log( "log message" ); # log to STDERR
Log( "log message", STDERR ); # log to STDERR
Log( "log message", STDOUT ); # log to STDOUT
Log( "log message", /tmp/x ); # log to /tmp/x
Log( "log message", new IO::File "/tmp/XXX" ); # log to /tmp/XXX

Script::Toolbox->new({logdir=>{mod=>=s,desc=>Log directory,
mand=>1,default=>/var/log}});
Log( "log message" ); # log to /var/log/ .log

Log( "log message",syslog,severity,tag ); # log via syslogd

#
# print formatted tables like:
# print join "n", @{$t};

$t = $e->Table( [ "1;2;3","44;55;66","7.77;8.88;9.99" ] );
$t = $e->Table( [ "1|2|3","44|55|66","7.77|8.88|9.99" ], |);
$t = $e->Table( [ This is the title,
[ --H1--, --H2--,--H3--],
[ 11:11:11, 33.456, cc ],
[ 12:23:00, 2222222, 3 ],
[ 11:11, 222, 3333333333333333 ]);
$t = $e->Table({ title => Hash example,
head => [Col1, Col2, Col3],
data => [[ 11:11:11, 33.456, cc ],
[ 12:23:00, 2222222, 3 ],
[ 11:11, 222, 3333333333333333 ]]});
$t = $e->Table({ title => Hash with automatic column heads (F1,F2,F3),
data =>[{F1=>aaaa,F2=>bbb,F3=>c},
{F1=>dd ,F2=>ee ,F3=>f}]});

#
# command line options
#
$tb=Script::Toolbox->new({file=>{mod=>=s,desc=>Description,
mand=>1,default=>/bin/cat}});

$file = tb->GetOpt(file); # depricated, use the following
$file = tb->{file};

$old = tb->SetOpt(newFile);

Usage(); # print a usage message for all options
# if available print also the POD

Usage(This is additional text for the usage);

#
# Directory handling
#
$arrRef = Dir(/tmp ); # all except . and ..
$arrRef = Dir(/tmp, .*patt ); # all matching patt
$arrRef = Dir(/tmp, !.*patt ); # all not matching patt

#
# File handling
#
$arrRef = File(path/to/file); # read file into array
$arrRef = File("/bin/ps |"); # read comand STDOUT into array

File( "> path/to/file", override the old content );
File( "path/to/file", append this to the file );
File( "path/to/file", $arrRef ); # append array elements
File( "path/to/file", $arrRef, $recSep ); # append array elements
File( "path/to/file", $hashRef, $recSep, $fieldSep); # append as key value lines
File( "| /bin/cat", "Hello world.n" );

$fileHandle = TmpFile(); # open new temporary file
$arrRef = TmpFile($fileHandle) # read temp whole file

#
# Miscelleanous
#
Exit( 1, "Exit message" ); # exit with returncode 1,
# write exit message via Log()

$fh = Open( "> /tmp/xx" ); # return an IO::File object with
# /tmp/xx opened for write
# die with logfile entry if failed
$fh = Open( "/bin/ps |" ); # return an IO::File object
# die with logfile entry if failed
$rc = System("/bin/ls") # execute a system command and
# report its output into the
# logfile.
$now = Now();
printf "Day:%d Mon:%d Year:%d Wday:%d Yday:%d IsDST:%d Sec:%d Min:%d Hour:%d",
$now->{mday},
$now->{mon},
$now->{year},
$now->{wday},
$now->{yday},
$now->{isdst},
$now->{sec},
$now->{min},
$now->{hour};
$now = Now("%A, %B %d, %Y"); # Monday, October 10, 2005
=head1 ABSTRACT

This module should be a "swiss army knife" for the daily tasks. The main goals are command line processing, automatic usage messages, signal catching (with logging), simple logging, simple data formatting, simple directory and file processing.