Free webservice isbndb software for linux

WebService::ISBNDB Perl module provides an object-oriented interface to the data API at http://isbndb.com. Books, authors, publishers, categories, and subjects are all represented in separate classes. The module uses the REST interface to communicate with isbndb.com.

WebService::MusicBrainz is a Perl module that will act as a factory using static methods to return specific web service objects.

SYNOPSIS

use WebService::MusicBrainz;

my $artist_ws = WebService::MusicBrainz->new_artist();
my $track_ws = WebService::MusicBrainz->new_track();
my $release_ws = WebService::MusicBrainz->new_release();

METHODS

artist_new()

Return new instance of WebService::MusicBrainz::Artist object.

new_track

Return new instance of WebService::MusicBrainz::Track object.

new_release

Return new instance of WebService::MusicBrainz::Release object.

WebService::Mappoint is a client SOAP implementation for Mappoint, Microsofts geographic maps web service, based on SOAP::Lite.

SYNOPSIS

Map fetch example for use with Mappoint 3.0 service.

use WebService::Mappoint;
use MIME::Base64;

my $render = new WebService::Mappoint::Render();
my $map;

$map = $render->GetMap(
specification => [
DataSourceName => MapPoint.EU,
Options => [
Format => [
Height => 320,
Width => 320
],
],
Views => [
MapView:ViewByScale =>
[
CenterPoint =>
[ Latitude => 37.7632,
Longitude => -122.439702 ],
MapScale => 100000000
],
],
Pushpins => [
Pushpin =>
[
IconName => 176,
IconDataSource => MapPoint.Icons,
PinID => san_francisco,
Label => San Francisco,
ReturnsHotArea => false,
LatLong => [ Latitude => 37.7632,
Longitude => -122.439702 ],
]
]
] );

my $image = decode_base64($map->result->{MapImage}{MimeData}{Bits});
open( GIF, ">san_francisco.gif" );
print( GIF $image );

WebService::YouTube is a Perl interfece to YouTube.

SYNOPSIS

use WebService::YouTube;

my $youtube = WebService::YouTube->new( { dev_id => YOUR_DEV_ID } );

# Get videos via REST API
my @videos = $youtube->videos->list_featured;

# Get videos via RSS Feed
my @videos = $youtube->feeds->recently_added;

WebService::Basecamp is a Perl interface to the Basecamp API webservice.

SYNOPSIS

use WebService::Basecamp;

my $bc = WebService::Basecamp->new( url => http://mysite.clientsection.com,
user => username,
pass => password );

my $test = $bc->ping || die $bc->error();

my $projects = $bc->projects; # a list of all projects

Basecamp is a web based project collaboration tool that makes it simple to communicate and collaborate on projects. Basecamp is built on the Ruby on Rails platform but provides a webservice API to many of the application functions. WebService::Basecamp is a Perl interface to the Basecamp web service API.

For more information on Basecamp, visit the Basecamp website. http://www.basecamphq.com.

This module does much of the heavy lifting for you when accessing the Basecamp API. Once initialising a WebService::Basecamp object you can access the API function via method calls. The module takes care of the creation and parsing of the XML (using XML::Simple) that relays the data across the web service, however there is an option to access the XML directly (see new()).

The documentation for this module is based on the Basecamp API docs available at http://www.basecamphq.com/api. It is recommended you read the official docs to become familiar with the data reference.

WebService::GoogleHack is a Perl package that ties together all GoogleHack modules (Webservice::GoogleHack::Search, Webservice::GoogleHack::Spelling, Webservice::GoogleHack::Rate, and Webservice::GoogleHack::Text) to implement Natural Language Processing techniques that use the World Wide Web as a source of information. Use this package to access all the functionality of GoogleHack.
SYNOPSIS
use WebService::GoogleHack;
my $google = new WebService::GoogleHack;
#Initializing the object to the contents of the configuration file
# API Key, GoogleSearch.wsdl file location.
$google->initConfig("initconfig.txt");
#Printing the contents of the configuration file
$google->printConfig();
#Measure the semantic relatedness between the words "white house" and
#"president".
$measure=$google->measureSemanticRelatedness1("white house","president");
print "nRelatedness measure between white house and president is: ";
print $measure."n";
#Going to search for words that are related to "toyota" and "ford"
my @terms=();
push(@terms,"toyota");
push(@terms,"ford");
#The parameters are the search terms, number of web page results to look
#at, the number of iterations,output file and the "true" indicates that the
#diagnostic data should be stored in the file "results.txt"
$results=$google->Algorithm1(@terms,10,25,1,"results.txt","true");
print $results;
WebService::GoogleHack is a PERL package that interacts with the Google API, and implements basic functions that allow the user to interact with Google and retrieve results in an easy to use format. GoogleHack also implements and extends a number of Natural Language Processing by using the World Wide Web as a source of information.
Main features:
- Issue queries to Google (WebService::GoogleHack, WebService::GoogleHack::Search)
- Retrieve Spelling suggestions from Google (WebService::GoogleHack, WebService::GoogleHack::Spelling)
- Find the Pointwise Mututal Information (PMI) measure between two words (WebService::GoogleHack,WebService::GoogleHack::Rate)
- Given a paragraph find if the paragraph has a positive or negative semantic orientation.(WebService::GoogleHack,WebService::GoogleHack::Rate)
- Given a set of words along with a positively oriented word such as "excellent" and a negatively oriented word such as "poor", find if the word has a positive or negative semantic orientation.(WebService::GoogleHack,WebService::GoogleHack::Rate)
- Given a set of phrases along with a positively oriented word such as "excellent" and a negatively oriented word such as "poor", predict if the given phrases are positive or negative in sentiment.(WebService::GoogleHack,WebService::GoogleHack::Rate)
- Given two or more words finds a set of related words. (WebService::GoogleHack)

WebService::TicketAuth is a ticket-based authentication module for SOAP services.

SYNOPSIS

@WebService::MyService::ISA = qw(WebService::TicketAuth);

WebService::TicketAuth is an authentication system for SOAP-based web services, that provides a signature token (like a cookie) to the client that it can use for further interactions with the server. This means that the user can login and establish their credentials for their session, then use various tools without having to provide a password for each operation. Sessions can be timed out, to mitigate against a ticket being used inappropriately.

This is similar in philosophy to authenticated web sessions where the user logs in and gains a cookie that it can use for further interactions. For example, see Apache::AuthTicket. However, such systems require a web server such as Apache to handle the authentication. This module provides a mechanism that can be used outside of a web server. In particular, it is designed for use with a SOAP daemon architecture.

This module was originally developed by Paul Kulchenko in 2001. See guide.soaplite.com for more info.

FUNCTIONS

new()

Creates a new instance of TicketAuth. Establishes several private member functions for authentication, to calculate, make, and check the authInfo.

get_error()

Returns the most recent error message. If any of this modules routines return undef, this routine can be called to retrieve a message about what happened. If several errors have occurred, this will only return the most recently encountered one.

ticket_duration($username)

This routine defines how long a ticket should last. Override it to customize the ticket lengths. The username is provided when requesting this information, to permit applications to vary ticket length based on the users access level, if desired. If $username is undef, then a generic duration should be returned.

By default, the ticket duration is defined to be 20 minutes (or 20*60 seconds).

get_username($header)

Retrieves the username from the auth section of the SOAP header
is_valid($username, $password)

Routine to determine if the given user credentials are valid. Returns 1 to indicate if the credentials are accepted, or undef if not. Error messages can be retrieved from the get_error() routine.

Override this member function to implement your own authentication system. This base class function always returns false.

login()

This routine is called by users to establish their credentials. It returns an AuthInfo ticket on success, or undef if the login failed for any reason. The error message can be retrieved from get_error().

It checks credentials by calling the is_valid() routine, which should be overridden to hook in your own authentication system.

WebService::FC2::SpamAPI is a FC2 blog spam API client.

SYNOPSIS

use WebService::FC2::SpamAPI;

my $api = WebService::FC2::SpamAPI->new();

$res = $api->check_url(http://spam.example.com);
if ( $res->is_spam ) { ....

@res = $api->get_url_list();

@res = $api->get_domain_list({ dm => foo.example.com });

FUNCTIONS

new

Constructor.

my $api = WebService::FC2::SpamAPI->new();

# use Cache ( see URI::Fetch )
my $api = WebService::FC2::SpamAPI->new({ cache => $cache_object });

check_url

Check URL for FC2 spam list. Returns WebService::FC2::SpamAPI::Response object.

# simple check
$res = $api->check_url(http://xxx.example.com);
if ( $res->is_spam ) { ....

# returns detailed data
# see also http://seo.fc2.com/spam/spamapi.php?m=h
$res = $api->check_url({ url => http://xxx.exampl.com,
usid => 0000,
data => 1, });
$res->is_spam;
$res->usid; # fc2 userid
$res->name; # site name
$res->comment; # comment
# see WebService::FC2::SpamAPI::Response

get_url_list

Get registered spam URL list. Returns WebService::FC2::SpamAPI::Response list.

@res = $api->get_url_list();

@res = $api->get_url_list({ usid => 0000 }); # grep by userid

get_domain_list

Get registered spam URL list in domain. Returns WebService::FC2::SpamAPI::Response list.

@res = $api->get_domain_list({ dm => example.com }); # dm is required.

@res = $api->get_domain_list({
dm => example.com,
usid => 0000, # grep by userid
});