Free simple software for linux

Simple Blue is a modified Sunergos Blue theme with user list.

Lightweight (SVG), elegant, works with all languages and widescreen.

Sunergos Simple is a minimal Gnome Login Manager.

An experiment in minimalism.

There are no options, no buttons, just a hello and how are you and why dont you just log in already?

So, this theme may not be suited for all users.

However, it is _extremely_ easy to understand and quite useful if you are interested in creating your own theme.

XML::Simple is a easy API to maintain XML (esp config files).

SYNOPSIS

use XML::Simple;

my $ref = XMLin([< xml file or string >] [, < options >]);

my $xml = XMLout($hashref [, < options >]);

Or the object oriented way:

require XML::Simple;

my $xs = new XML::Simple(options);

my $ref = $xs->XMLin([< xml file or string >] [, < options >]);

my $xml = $xs->XMLout($hashref [, < options >]);

(or see "SAX SUPPORT" for the SAX way).

To catch common errors:

use XML::Simple qw(:strict);

PGPLOT::Simple is a simple Perl Interface to PGPLOT.

SYNOPSIS

use strict;
use PGPLOT::Simple qw(:essential);

die "Must provide a filename.n" unless @ARGV;

my $filename = shift;
chomp $filename;

unless ( $filename =~ /.ps$/ ) {
$filename .= ".ps";
}

set_begin({
file => "$filename/CPS",
});

set_environment({
x_min => 0,
x_max => 50,
y_min => 0,
y_max => 10,
});

write_label({
title => A Simple Graph Using PGPLOT::Simple,
color => Blue,
font => Italic,
});

draw_points({
x => [1, 3, 12, 32, 40],
y => [1, 5, 5, 3, 9],
color => Blue,
width => 20,
});

draw_error_bars({
x => [20],
y1 => [4],
y2 => [6],
terminal => 10,
width => 10,
color => Orange,
});

set_end;

PGPLOT::Simple is a simple interface to the PGPLOT library ala Perl, making simple things easy and difficult things possible.

Why simple? Because it has a simple and intiutive interface to the most common things you will need from PGPLOT, but also allowing you low-level access to the PGPLOT library.

Getopt::Simple is a Perl module that provides a simple wrapper around Getopt::Long.

SYNOPSIS

use Getopt::Simple;

# Or ...
# use Getopt::Simple qw($switch);

my($options) =
{
help =>
{
type => ,
env => -,
default => ,
# verbose => , # Not needed on every key.
order => 1,
},
username =>
{
type => =s, # As per Getopt::Long.
env => $USER, # Help text.
default => $ENV{USER} || RonSavage, # In case $USER is undef.
verbose => Specify the username on the remote machine,
order => 3, # Help text sort order.
},
password =>
{
type => =s,
env => -,
default => password,
verbose => Specify the password on the remote machine,
order => 4,
},
};

my($option) = Getopt::Simple -> new();

if (! $option -> getOptions($options, "Usage: testSimple.pl [options]") )
{
exit(-1); # Failure.
}

print "username: $$option{switch}{username}. n";
print "password: $$option{switch}{password}. n";

# Or, after use Getopt::Simple qw($switch); ...
# print "username: $$switch{username}. n";
# print "password: $$switch{password}. n";

Getopt::Simple is a pure Perl module.

The Getopt::Simple module provides a simple way of specifying:

Command line switches

Type information for switch values

Default values for the switches

Help text per switch

LJ::Simple is a Perl module to provide a simple OOP-based API for accessing the LiveJournal system.
Main features:
- Log into LiveJournal
- Post a journal entry
- Edit a journal entry
- Delete a journal entry
Example
The following example posts a simple message into the test LiveJournal using the LJ::Simple::QuickPost method.
use LJ::Simple;
LJ::Simple::QuickPost(
user => "test",
pass => "test",
entry => "Just a simple entry",
) || die "$0: Failed to post entry: $LJ::Simple::errorn";
The next example shows how to post an entry into the test LiveJournal using the complete, object-based, interface:
use LJ::Simple;
my $lj = new LJ::Simple ({
user => "test",
pass => "test",
});
(defined $lj)
|| die "$0: Failed to log into LiveJournal: $LJ::Simple::errorn";
my %Event=();
$lj->NewEntry(%Event) ||
die "$0: Failed to create new entry: $LJ::Simple::errorn";
my $entry=SetMood(%Event,"happy")
|| die "$0: Failed to set mood: $LJ::Simple::errorn";
$lj->Setprop_nocomments(%Event,1);
my ($item_id,$anum,$html_id)=$lj->PostEntry(%Event);
(defined $item_id)
|| die "$0: Failed to post journal entry: $LJ::Simple::errorn";

Simple Aggregator is a Web-based news aggregator. It retrieves feeds using Mark Pilgrims Ultra Liberal feed Parser, making full use of its advanced features. It stores the feeds in a MySQL database, and displays news via a PHP frontend.
Enhancements:
- the backend is now ready for categories (planned for the next release)
- the feedsloader script now uses threads for much better performance
- the feedsloader script now periodically cleans up read entries
- the feedsloader script now traps feed encoding errors
- added OPML import and export for feeds
- moved CSS style sheets to a common external file
- small fixes mainly to the user menu links

ICS::Simple is a simple interface to CyberSource ICS2.

SYNOPSIS

Here is some basic code. Hopefully Ill come back through soon to document it properly.

use ICS::Simple;

my $ics = ICS::Simple->new(
ICSPath => /opt/ics,
MerchantId => v0123456789, # CyberSource supplies this number to you
Mode => test,
Currency => USD,
Grammar => UpperCamel, # defaults to raw ICS responses, so you might want to set this
#ErrorsTo => all-errors@some.fun.place.com,
CriticalErrorsTo => only-critical-errors@some.fun.place.com,
);

my $request = {
OrderId => order19857219,
FirstName => Fred,
LastName => Smith,
Email => fred.smith@buyer-of-stuff.com,
CardNumber => 4111111111111111,
CardCVV => 123,
CardExpYear => 2008,
CardExpMonth => 12,
BillingAddress => 123 Main St,
BillingCity => Olympia,
BillingRegion => WA,
BillingPostalCode => 98501,
BillingCountryCode => US,
ShippingAddress1 => 6789 Industrial Pl,
ShippingAddress2 => Floor 83, Room 11415,
ShippingCity => Olympia,
ShippingRegion => WA,
ShippingPostalCode => 98506,
ShippingCountryCode => US,
ShippingFee => 25.05,
HandlingFee => 5.00,
Items => [
{ Description => Mega Lizard Monster RC,
Price => 25.00,
SKU => prod15185 },
{ Description => Super Racer Parts Kit,
Price => 15.30,
SKU => prod23523 },
{ Description => Uber Space Jacket,
Price => 72.24,
SKU => prod18718 },
],
};

my $response = $ics->requestBill($request);

if ($response->{success}) {
print "Woo! Success!n";
$response = $response->{response};
print "Thanks for your payment of $$response->{BillAmount}.n";
}
else {
print "Boo! Failure!n";
print "Error: $response->{error}->{description}n";
}