/ 
WWW-FleXtel-0.03
River stage zero No dependents
/ WWW::FleXtel

NAME

WWW::FleXtel - Manipulate FleXtel phone number redirection

SYNOPSIS

use strict;
use WWW::FleXtel qw();
use Data::Dumper qw(Dumper);

my $flextel = WWW::FleXtel->new(
        number   => "0701776655",
        pin      => "1234",
        account  => "A99999", # not required
        password => "password", # not required
    );

printf("Diverted to %s\n", $flextel->get_destination);
printf("Diverted to %s\n", $flextel->set_destination(
        destination => "01923001122"
    );

print Dumper($flextel->get_phonebook);

DESCRIPTION

This module provides a very basic OO interface to FleXtel telephone number redirection webpage.

METHODS

new

my $flextel = WWW::FleXtel->new(
        number   => "0701776655",
        pin      => "1234",
        account  => "A99999", # not required
        password => "password", # not required
    );

Create a new WWW::FleXtel object. Currently the account and password parameters are unsed and therefor do not need to be passed to this constructor method.

This method does have any mandatory parameters. However values passed this constructor method will be used as default fallback values if they are not passed to the subsequent accessor methods detailed below.

number

Specifies the default FleXtel number to use for all subsequent queries.

pin

Specifies the default PIN to use for all subsqeuent queries.

account

Specifies the default FleXtel account number to use for all subsequent queries. This parameter is not currently used, but may be used in future releases.

password

Specifies the default account password to use for all subsequent queries. This parameter is not currently use, but may be used in future releases.

timeout

Specifies (in seconds) the timeout for all HTTP connections. By default this is set to 15 seconds.

cache_ttl

Specifies (in seconds) the TTL for values to be cached internally within the WWW::FleXtel object. By default this is set to 5 seconds.

get_destination

my $destination = $flextel->get_destination;
print "Diverted to $destination\n";

Retrieves the destination telephone number that your FleXtel number is currently diverted to.

set_destination

my $destination = $flextel->set_destination(destination => "01923001122");
print "Diverted to $destination\n";

Sets the destination telephone number that your FleXtel number is diverted to.

get_phonebook

my $phonebook = $flextel->get_phonebook;
use Data::Dumper qw(Dumper);
print Dumper($phonebook);

my $destination = $flextel->get_destination;
my ($person) = grep(/\S/, map {
        $_->{title} if defined $_ && $_->{number} eq $destination
    } @{$phonebook}); $person ||= "*not recorded*";
print "$destination is $person in your phonebook\n";

This method extracts the indexes, names and numbers from your FleXtel number's phonebook.

get_icd

my $icd = $flextel->get_icd;

get_email

my $notification_address = $flextel->get_email;

TODO

Add support for retrieving a list of all FleXtel phone numbers attached to an account number.

SEE ALSO

http://www.flextel.ltd.uk

VERSION

$Id: FleXtel.pm 942 2007-02-06 18:51:21Z nicolaw $

AUTHOR

Nicola Worthington <nicolaw@cpan.org>

http://perlgirl.org.uk

If you like this software, why not show your appreciation by sending the author something nice from her Amazon wishlist? ( http://www.amazon.co.uk/gp/registry/1VZXC59ESWYK0?sort=priority )

ACKNOWLEDGEMENTS

Special thanks to Kevin Archer at FleXtel and the FleXtel support and development team for implementing the simple CVS access methods to their website.

See CREDITS in the distribution tarball.

COPYRIGHT

Copyright 2007 Nicola Worthington.

This software is licensed under The Apache Software License, Version 2.0.

http://www.apache.org/licenses/LICENSE-2.0