Free googlemaps 0.07 software for linux

SVGGraph is a Perl extension for creating SVG Graphs / Diagrams / Charts / Plots.

SYNOPSIS

use SVGGraph;

my @a = (1, 2, 3, 4);
my @b = (3, 4, 3.5, 6.33);

print "Content-type: image/svg-xmlnn";
my $SVGGraph = new SVGGraph;
print SVGGraph->CreateGraph(
{title => Financial Results Q1 2002},
[@a, @b, Staplers, red]
);

This module converts sets of arrays with coordinates into graphs, much like GNUplot would. It creates the graphs in the SVG (Scalable Vector Graphics) format. It has two styles, verticalbars and spline. It is designed to be light-weight.

If your internet browser cannot display SVG, try downloading a plugin at adobe.com.

EXAMPLES

For examples see: http://pearlshed.nl/svggraph/1.png and http://pearlshed.nl/svggraph/2.png

Long code example:

#!/usr/bin/perl -w -I.

use strict;
use SVGGraph;

### Array with x-values
my @a = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20);
### Arrays with y-values
my @b = (-5, 2, 1, 5, 8, 8, 9, 5, 4, 10, 2, 1, 5, 8, 8, 9, 5, 4, 10, 5);
my @c = (6, -4, 2, 1, 5, 8, 8, 9, 5, 4, 10, 2, 1, 5, 8, 8, 9, 5, 4, 10);
my @d = (1, 2, 3, 4, 9, 8, 7, 6, 5, 12, 30, 23, 12, 17, 13, 23, 12, 10, 20, 11);
my @e = (3, 1, 2, -3, -4, -9, -8, -7, 6, 5, 12, 30, 23, 12, 17, 13, 23, 12, 10, 20);

### Initialise
my $SVGGraph = new SVGGraph;
### Print the elusive content-type so the browser knows what mime type to expect
print "Content-type: image/svg-xmlnn";
### Print the graph
print $SVGGraph->CreateGraph( {
graphtype => verticalbars, ### verticalbars or spline
imageheight => 300, ### The total height of the whole svg image
barwidth => 8, ### Width of the bar or dot in pixels
horiunitdistance => 20, ### This is the distance in pixels between 1 x-unit
title => Financial Results Q1 2002,
titlestyle => font-size:24;fill:#FF0000;,
xlabel => Week,
xlabelstyle => font-size:16;fill:darkblue,
ylabel => Revenue (x1000 USD),
ylabelstyle => font-size:16;fill:brown,
legendoffset => 10, 10 ### In pixels from top left corner
},
[@a, @b, Bananas, #FF0000],
[@a, @c, Apples, #006699],
[@a, @d, Strawberries, #FF9933],
[@a, @e, Melons, green]
);

KAOMP can be used to download songs from AllOfMp3. The songinformation can be retrieved from the MusicBrainz database to complete the song tags.

It is written in Python and requires pyCurl, pyQT and pyKDE, MusicBrainz, TunePimp and taglibs.

ReleaseAction - call actions upon release.

SYNOPSIS

use ReleaseAction on_release;
{
# OO style
my $handle = ReleaseAction->new(
sub {print "Exiting scopen"}
);
print "In scopen";
}
{
# Functional style
my $handle = on_release {print "Exiting scopen"};
print "In scopen";
}
{
my $rollback = on_release {rollback_trans()};
if (do_stuff()) {
$rollback->cancel();
}
}

This provides an easy way to create opaque handles which will do something when they are destroyed. There are two ways of creating a new handle. Both take one or more arguments, with the first being the action to take when the handle is released and the (optional) rest being the arguments that the handle will get.

new is the method oriented constructor.
my $handle = ReleaseAction->new(
sub {print shift}, "Goodbye cruel worldn"
);

And an optional function on_release that you can import. For those who like that sort of thing, I have provided the prototype &@ for syntactic sugar.

my $handle = on_release {print "Goodbye cruel worldn"};

And should you decide that you dont want to do the action on release after all, you can call the cancel() method. As suggested in the SYNOPSIS, this is useful if you wish to set up transactional mechanics. Make the release action do your cleanup. And then when you commit your changes, cancel the cleanup.

EXAMPLE

use ReleaseAction on_release;

# This does the same thing as the module SelectSaver.
sub tmp_select {
on_release {select shift} select shift;
}

print "This print goes to STDOUTn";
{
my $hold_select = tmp_select(*STDERR);
print "This print goes to STDERRn";
}
print "Printing to STDOUT againn";

A LONGER EXAMPLE

use Carp;
use Cwd;
use ReleaseAction;

sub cd_to {
chdir($_[0]) or confess("Cannot chdir to $_[0]: $!");
}

sub tmp_cd {
my $cwd = cwd();
cd_to(shift);
ReleaseAction->new(&cd_to, $cwd);
}

sub something_interesting {
my $in_dir = tmp_cd("some_dir");
# Do something interesting in the new dir

# I will automagically return to the old dir
# when I exit the subroutine and $in_dir goes
# out of scope.
}

Getopt::OO is an object oriented command line parser. It handles short, long and multi (--x ... -) value options. Getopt::OO module also incorporates help for options to simplify generation of usage statements.

SYNOPSIS

use Getopt::OO qw(Debug Verbose);

my ($handle) = Getopt::OO->new(@ARGV,
-d => {
help => turn on debug output,
callback => sub {Debug(1); 0},
},
-o => {
help => another option.,
},
-f => {
help => option that expects one more value.,
n_values => 1,
},
--long {
help => long option
},
--multiple_ => {
help => [
"Everything between --multiple_values and - is",
"an value for this options",
],
multi_value => 1,
multiple= => 1, # Can happen more than once on command line.
},
other_values => {
help => file_1 ... file_n,
multi_value => 1,
},
);
if ($handle->Values()) {
Debug("You will get output if -d was on command line");
if (my $f = handle->Values(-f)) {
print "Got $f with the -f value.n";
}
}
else {
print "No options found on command line.n";
}

Getopt::OO is an object oriented tool for parsing command line arguments. It expects a reference to the input arguments and uses a perl hash to describe how the command line arguments should be parsed. Note that by parsed, we mean what options expect values, etc. We check to make sure values exist on the command line as necessary -- nothing else. The caller is responsible for making sure that a value that he knows should be a file exists, is writable, or whatever.

Command line arguments can be broken into two distinct types: options and values that are associated with these options. In windows, options often start with a / but sometimes with a -, but in unix they almost universally start with a -. For this module options start with a -. We support two types of options: the short single dashed options and the long double dashed options.

The difference between these two is that with this module the short options can be combined into a single option, but the long options can not. For example, most of us will be familiar with the tar -xvf file command which can also be expressed as -x -v -f file. Long options can not be combined this way, so --help for example must always stand by itself.

The input template expects the option names as its keys. For instance if you were expecting -xv --hello as possible command line options, the keys for your template hash would be -x, -v, and --hello.

Pod::S5 is a perl program which parses a POD input file and generates a ready to use HTML slideshow. The slideshow generated uses S5 by Eric Meyer as presentation engine. This project is a fabulous system using XHTML, CSS and Javascript.

Please note, Pod::S5 supports syntax highlighting of various languages using the perl Module Syntax::Highlight::Engine::Kate if its installed.

Ryan King came up with a new site devoted to development of S5 s5project, which aims to continue development of S5. The latest version of this site will be part of the next Pod::S5 version.

POD is an easy to learn structured markup language aimed to write documentation for Perl modules. Internal Link PodWiki uses this language as its markup and therefore I wanted to use it for HTML slideshows as well.

Bundle::OpenSRF Perl module can install all OpenSRF prereq modules available on CPAN.

SYNOPSIS

perl -MCPAN -e install Bundle::OpenSRF

or ...

cpan Bundle::OpenSRF

CONTENTS

Cache::FileCache Cache::Memcached DBI DBD::SQLite Digest::MD5 Error Fcntl Net::Server::PreFork Time::HiRes Unix::Syslog XML::LibXML Exception::Class (soon depreciated) Log-Log4perl

This bundle includes all CPAN-available prereq perl modules for the OpenSRF component of the Open-ILS (http://open-ils.org) Integrated Library System (library as in librarian).

Note that you MUST still follow the instructions on the wiki, preferably derived from the Debian, Ubuntu or Gentoo docs, for installing Perl dependencies, especially for the MARC::* related modules and Javascript::Spidermonkey. These bundles do not include the MARC::* modules, as their maintainers have not released updated versions, and it can not automate the installation of JS::SM without a good bit of work, because E4X support is required in Evergreen.

Note that you must install the Bundle::OpenILS separately.
Bundles have special meaning for the CPAN module. When you install the bundle module all modules mentioned in CONTENTS will be installed instead.

Convert::PEM is Perl module that read/write encrypted ASN.1 PEM files.

SYNOPSIS

use Convert::PEM;
my $pem = Convert::PEM->new(
Name => "DSA PRIVATE KEY",
ASN => qq(
DSAPrivateKey SEQUENCE {
version INTEGER,
p INTEGER,
q INTEGER,
g INTEGER,
pub_key INTEGER,
priv_key INTEGER
}
));

my $pkey = $pem->read(
Filename => $keyfile,
Password => $pwd
);

$pem->write(
Content => $pkey,
Password => $pwd,
Filename => $keyfile
);

Convert::PEM reads and writes PEM files containing ASN.1-encoded objects. The files can optionally be encrypted using a symmetric cipher algorithm, such as 3DES. An unencrypted PEM file might look something like this:

-----BEGIN DH PARAMETERS-----
MB4CGQDUoLoCULb9LsYm5+/WN992xxbiLQlEuIsCAQM=
-----END DH PARAMETERS-----

The string beginning MB4C... is the Base64-encoded, ASN.1-encoded "object."
An encrypted file would have headers describing the type of encryption used, and the initialization vector:

-----BEGIN DH PARAMETERS-----
Proc-Type: 4,ENCRYPTED
DEK-Info: DES-EDE3-CBC,C814158661DC1449

AFAZFbnQNrGjZJ/ZemdVSoZa3HWujxZuvBHzHNoesxeyqqidFvnydA==
-----END DH PARAMETERS-----

The two headers (Proc-Type and DEK-Info) indicate information about the type of encryption used, and the string starting with AFAZ... is the Base64-encoded, encrypted, ASN.1-encoded contents of this "object."

The initialization vector (C814158661DC1449) is chosen randomly.