#!/usr/bin/perl

#Modulos a usar
use LWP::Simple;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

# Obtenemos los parámetros 'u' y 'p'
$argumento = $ENV{"QUERY_STRING"};
foreach ( split( /&/, $argumento ) )
{
    	( $key, $val ) = split( /=/, $_, 2 );     

	$key=~s/\+/ /g;
    	$val=~s/\+/ /g;     
    	$key=~s/%([0-9a-f]{2})/pack("c",hex($1))/gie;
    	$val=~s/%([0-9a-f]{2})/pack("c",hex($1))/gie;

	if ($key eq 'u')
	{
		$usuario_de_gmail = $val;
	}
	if ($key eq 'p')
	{
		$clave_de_gmail = $val;
	}
}#foreach

#Accedemos al feed Atom 
$req = HTTP::Request->new(GET => 'https://gmail.google.com/gmail/feed/atom');
$req->header('Accept' => 'text/html');
$req->authorization_basic($usuario_de_gmail, $clave_de_gmail);
$res = $ua->request($req);

#Imprimimos el contenido
print "Content-type: application/xml\n\n";
print $res->content;