projects
/
Net-Vitelity.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
55ec848
)
Net::Vitelity improvements, RT4868
author
levinse
<levinse>
Sat, 6 Nov 2010 00:13:15 +0000
(
00:13
+0000)
committer
levinse
<levinse>
Sat, 6 Nov 2010 00:13:15 +0000
(
00:13
+0000)
Changes
patch
|
blob
|
history
lib/Net/Vitelity.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
2fe70d8
..
d48bef4
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,10
@@
Revision history for Net-Vitelity
Revision history for Net-Vitelity
+0.02 Fri Nov 5 17:01:08 PDT 2010
+ -changes by Erik Levinson
+ -fix URL, fix missing use LWP::UserAgent, fix regexp match of response
+ -implement "new"
+
0.01 unreleased
First version, released on an unsuspecting world.
0.01 unreleased
First version, released on an unsuspecting world.
diff --git
a/lib/Net/Vitelity.pm
b/lib/Net/Vitelity.pm
index
b43818b
..
1259820
100644
(file)
--- a/
lib/Net/Vitelity.pm
+++ b/
lib/Net/Vitelity.pm
@@
-2,6
+2,7
@@
package Net::Vitelity;
use warnings;
use strict;
use warnings;
use strict;
+use LWP::UserAgent;
=head1 NAME
=head1 NAME
@@
-9,13
+10,13
@@
Net::Vitelity - Interface to Vitelity API
=head1 VERSION
=head1 VERSION
-Version 0.0
1
+Version 0.0
2
=cut
=cut
-our $VERSION = '0.0
1
';
+our $VERSION = '0.0
2
';
-our $URL = 'http://
70.84.157.157
/api.php';
+our $URL = 'http://
64.74.178.105
/api.php';
our $AUTOLOAD;
our $AUTOLOAD;
@@
-33,7
+34,11
@@
our $AUTOLOAD;
=cut
sub new {
=cut
sub new {
- #XXX need a generic new
+ my ($class,%data) = @_;
+ die "missing user and/or password" unless defined $data{'login'} && defined $data{'pass'};
+ my $self = { 'login' => $data{'login'}, 'pass' => $data{'pass'} };
+ bless $self, $class;
+ return $self;
}
sub AUTOLOAD {
}
sub AUTOLOAD {
@@
-57,14
+62,10
@@
sub AUTOLOAD {
die $response->status_line unless $response->is_success;
die $response->status_line unless $response->is_success;
- #hmm
- #my $content = $response->content;
my $content = $response->decoded_content;
my $content = $response->decoded_content;
- #dear vitelity api: why does this make it easier to parse?
- $content =~ s/^x\[\[//;
- #$content =~ s/\[\[x$//;
- $content =~ s/\]\]x$//;
+ $content =~ /x\[\[(.*)\[\[x/s;
+ $content = $1;
wantarray ? split("\n", $content) : $content;
wantarray ? split("\n", $content) : $content;