#!/usr/bin/env perl -U -I .

use Getopt::Long;
use POSIX qw(strftime ceil);
use Net::Trackback::Client;
use Net::Trackback::Ping;
use Net::Trackback::Message;

Getopt::Long::Configure('bundling');
my ($ping_url, $title, $url, $excerpt, $blog_name);
my $gor = GetOptions('p|ping-url=s'   => \$ping_url,
		     't|title=s' => \$title,
		     'u|url=s' => \$url,
		     'e|excerpt=s' => \$excerpt,
		     'n|blog_name=s' => \$blog_name);

if ($ping_url eq "" or $url eq "") {
    print << "USAGE";
usage: 
  tb-command -p <ping-url> -t <title> -u <url> -e <excerpt> -n <blog_name>
  tb-command --ping-url=<ping-url> \
             --title=<title> \
             --url=<url> \
             --excerpt=<excerpt> \
             --blog_name=<blog_name>
USAGE
    ;
    exit;
}

my $ping = Net::Trackback::Ping->new();

$ping->ping_url($ping_url);
$ping->title($title);
$ping->url($url);
$ping->excerpt($excerpt);
$ping->blog_name($blog_name);

my $client = Net::Trackback::Client->new();
my $return = $client->send_ping($ping);

my $msg = new Net::Trackback::Message;
$msg->message( $return );
print $msg->to_xml;