#!/usr/bin/perl
use Mail::POP3Client;
use HTTP::Request::Common;
use LWP::UserAgent;

### VARIABLES
$host="mail.domain.com";
$pass="pass";
$usr="ticket";
$uri="http://www.domain.com/Ticket/api/pipe.php";
$key="key mail pipe";
###


print "Conneting server... $host\n";

$pop = new Mail::POP3Client( USER     => $usr,
                               PASSWORD => $pass,
                               HOST     => $host );

print "Retreiving messages... total: ". $pop->Count() ."\n\n";


for( $i = 1; $i <= $pop->Count(); $i++ ) {
	### GET HEADER/BODY EMAILS
	$header=$pop->Head( $i );
	$content=$pop->Body( $i );  

	### CREATE CONTENT
	$mess=$header;
	$mess.=$content;

	### PUT
	$ua = new LWP::UserAgent;
	$ua->agent($key);
	$ua->timeout(30);	
	$req=new HTTP::Request(PUT => $uri, $hdr, $mess);
	$response = $ua->request($req);


	if ($response->is_success) {
		print "Mess [$i] retreived...\n";
		$pop->Delete( $i );
	}
	else {
	        print $response->message;
		print "\n";
	}
}


print "\nDisconnecting...\n";

$pop->Close();


exit;