File Coverage

blib/lib/Net/UP/Notify.pm

Criterion	Covered	Total	%
statement	9	45	20.0
branch	0	10	0.0
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	12	70	17.1

package Net::UP::Notify;

use strict;
use vars qw($VERSION);
use LWP::UserAgent;


$VERSION = '1.01';

sub new {
  my $package = shift;
  return bless({}, $package);
  };

sub subscriberid {
	my $self = shift;
	if (@_) {
		$self->{'subscriberid'} = shift;
		($self->{'connecthost'}) = ( $self->{'subscriberid'} =~ /\_(.+)/ );
	};
	return $self->{'subscriberid'};
};

sub location {
	my $self = shift;
        if (@_) {
                $self->{'location'} = shift;
        };
	return $self->{'location'};
};

sub description {
        my $self = shift;
        if (@_) {
                $self->{'description'} = shift;
	};
return $self->{'description'};
};

sub urgency {
        my $self = shift;
        if (@_) {
                $self->{'urgency'} = shift;
	};
return $self->{'urgency'};
};



sub send {
  my $self = shift;
  if (! $self->{'urgency'}) { $self->{'urgency'} = "HIGH" };
  my $ua = LWP::UserAgent->new;
  $ua->agent("up-notify.pl/1.0");
  my $req = HTTP::Request->new(POST => 'http://'.$self->{'connecthost'}.':4445/ntfn/add');
  $req->header("x-up-upnotifyp-version" => "upnotifyp/3.0");
  $req->header("x-up-subno" => "$self->{'subscriberid'}");
  $req->header("x-up-ntfn-ttl" => "0");
  $req->header("x-up-ntfn-channel" => "push");
  $req->header("Content-Location" => "$self->{'location'}");
  my $xmldoc= " \n \n{'description'}\" \nCOUNT = \"1\" \nHREF = \"\" \nURGENCY = \"$self->{'urgency'}\" />\n";
  $req->content_type('application/vnd.uplanet.alert');
  $req->content($xmldoc);
   my $res = $ua->request($req);
   my $toreturn;
	return $res->content;
};

1;
__END__