use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request;

my $lol = 0;
my $mtd = 0;
my $menu = 0;
my $url = "";
my $peti;
my $resp;

sub menu
{
    if($menu == 0)
    {
        print "Metodo de peticion disponibles: ";
        print "\n [1] GET";
        print "\n [2] POST";
        print "\n [3] PUT";
        print "\nElije [1-3]: ";
        $menu = 1;        
    }
    $mtd = <STDIN>;
    
    if(!($mtd =~ /[1-3]/))
    {
        print "[X] Error, debes elegir un numero de 1 a 3: ";
        &menu;
    }
}

sub url
{
    print "URL: ";
    $url = <STDIN>;
    if(!($url =~ /^http:\/\//))
    {
        $url = "http://".$url;
    }
}

sub type
{
    if($mtd == 1)
    {
        $peti = HTTP::Request->new(GET => $url);   
    }
    elsif($mtd == 2)
    {
        $peti = HTTP::Request->new(POST => $url); 
    }
    else
    {
        $peti = HTTP::Request->new(PUT => $url); 
    }
}

sub conexion
{
    print "\nEstableciendo conexion";
    my $nav = LWP::UserAgent->new();
    $nav->agent("Lolz 2.0.1 - Linux RedHat v1000");
    
    chomp $url;
    
    &type;
    
    $resp = $nav->request($peti);
    $resp = $resp->content();
    
    print "\nRespuesta desde servidor: [[$url]]";
    #print "\n\n".$resp;
    $lol = 1;
}

sub archivo
{
    if($lol == 1)
    {
    print "\n\nEscribiendo datos en archivo...";
    open(FILE, ">archivo");
    print FILE $resp;
    close FILE;
    print "\n-_Fin_-";
    }
}

&menu;
sleep(1);
&url;&conexion;&archivo;

print "\nBy kid_goth";
print "\n";
sleep(3);