Acme-PIA-Export

 view release on metacpan or  search on metacpan

Acme-PIA-Export-0.019.html  view on Meta::CPAN

	<li><a href="#license">LICENSE</a></li>
	<li><a href="#bugs">BUGS</a></li>
</ul>
<!-- INDEX END -->

<hr />
<p>
</p>
<hr />
<h1><a name="name">NAME</a></h1>
<p>Acme::PIA::Export - Export contacts, calendars or todos from Arcor's PIA messaging</p>
<p>
</p>
<hr />
<h1><a name="description">DESCRIPTION</a></h1>
<p>This module is intended to help export data from the PIA messaging web application
that comes with the free Arcor mail account at www.arcor.de</p>
<p>It lets the user retrieve his data in CSV or XLS (not yet implemented) format or
as hashes.</p>
<p>If you don't know what PIA is, you will most probably not need this module.</p>
<p>

Acme-PIA-Export-0.019.html  view on Meta::CPAN

</dd>
<dd>
<p>Parameters are given as key =&gt; value pairs. The most commonly used are &quot;username&quot; and &quot;password&quot;.
If you expirience problems you can also give the parameter &quot;DEBUG&quot; =&gt; 1
to get verbose output from all functions.</p>
</dd>
</li>
<dt><strong><a name="item_export">export( SCOPE )</a></strong>

<dd>
<p>Export all objects for the given scope (contacts, calendar etc.) and stores them in the
Acme::PIA::Export object.</p>
</dd>
<dd>
<p>ATTENTION: Only &quot;contacts&quot; scope is implemented up to now! Look out for future releases.</p>
</dd>
</li>
<dt><strong><a name="item_entries"><code>entries()</code></a></strong>

<dd>
<p>Retrieve a list with all entries as hashes.</p>

Export.pm  view on Meta::CPAN

package Acme::PIA::Export;

our $VERSION = "0.019";

use IO::Socket;

=pod

=head1 NAME

Acme::PIA::Export - Export contacts, calendars or todos from Arcor's PIA messaging

=head1 DESCRIPTION

This module is intended to help export data from the PIA messaging web application
that comes with the free Arcor mail account at www.arcor.de

It lets the user retrieve his data in CSV or XLS (not yet implemented) format or
as hashes.

If you don't know what PIA is, you will most probably not need this module.

Export.pm  view on Meta::CPAN

=item new( [ key => value, ...] )

Creates and returns a new Acme::PIA::Export object.

Parameters are given as key => value pairs. The most commonly used are "username" and "password".
If you expirience problems you can also give the parameter "DEBUG" => 1
to get verbose output from all functions.

=item export( SCOPE )

Export all objects for the given scope (contacts, calendar etc.) and stores them in the
Acme::PIA::Export object.

ATTENTION: Only "contacts" scope is implemented up to now! Look out for future releases.

=item entries()

Retrieve a list with all entries as hashes.

=item entries_csv( [key => value, ...] ) [NOT YET IMPLEMENTED]

Export.pm  view on Meta::CPAN

	"FAX_PRVT" => 41,
	"MOBIL_PRVT" => 43,
	"MESSENGER" => 46,
	"MAIL_PRVT" => 51,
	"MAIL_BUSI" => 52,
	"HOMEPAGE_PRVT" => 54,
	"HOMEPAGE_BUSI" => 55,
	"NICKNAME_PRVT" => 62,
	"LAST_MODIFIED" => 71
	},
		"calendar" => {
	}
);


our %ordered_fields = (
	"contacts" => [
		"CLIENT" ,
		"ID" ,
		"CURRDATE" ,
		"VORNAME" ,

Export.pm  view on Meta::CPAN

		"FAX_PRVT" ,
		"MOBIL_PRVT" ,
		"MESSENGER" ,
		"MAIL_PRVT" ,
		"MAIL_BUSI" ,
		"HOMEPAGE_PRVT" ,
		"HOMEPAGE_BUSI" ,
		"NICKNAME_PRVT" ,
		"LAST_MODIFIED" 
	],
	"calendar" => [
	]
);


our %scopes = (
	"contacts"	=>	"contacts",
	"calendar"	=>	"calendar"
);

sub new {
	my $self = {};
	my $class = shift;
	bless $self, ref $class || $class;
	if( @_ ) {
		my %cfg = @_;
		foreach( keys %cfg ) {
			$self->{"cfg"}->{$_} = $cfg{$_};