Current File : //scripts/delfromrsd

#!/usr/bin/perl

use URI;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$password = "iag9kaiK3aih4aishej8qu";

$domain = shift;

if ($domain eq "") {
        $erro ="Usage: /scripts/delfromrsd domain.dom";
        print $erro."\n";
        die "\n";
}

my $url      = 'http://rsd.cleanmx.pt/del.php';

my $ua = LWP::UserAgent->new;
my $result = $ua->request(POST $url, [
  password => $password,
  domain => $domain,
]);

#print $result->as_string;