#!/usr/local/bin/perl

use LWP::UserAgent;
use MIME::Base64;

$url="http://codereview.xyz.com/api/review-requests/";
$newurl="http://codereview.xyz.com/r/new/";
$user="admin";
$pwd="admin";

$text="$user:$pwd";
$text = encode_base64($text);
#print "Encoded text: $text\n";
%param =(
        "repository_id" =>"cvsrepo",
        "repository_path" =>":pserver:user:pwd\@svn:/opt/cvsroot",
        "username" => "admin",
        "password" => "admin",
        "submit-as" => "username",
        );
   my $ua = LWP::UserAgent->new;
    $ua->timeout(TIMEOUT);
    $ua->protocols_allowed(['http', 'https']);
    $ua->default_header('Basic' => $text);
    $ua->credentials($newurl,$user,$pwd);

        $resp = $ua->get($url);
        print($resp->status_line(), "\n");

print("Add handler:\n");
        $ua->add_handler( response_header => sub { print "HANDLER\n"; }, %param);
        print $ua->handlers('response_header', $resp)."\n";
push @{ $ua->requests_redirectable }, 'POST';
print $ua->show_progress."\n";
my $response = $ua->post($newurl,%param);

 if ($response->is_success) {
     print $response->decoded_content;
 }
 else {
     die $response->status_line;
 }