#!/usr/bin/perl

use strict;
use warnings;

use Encode;

use FindBin;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/exlib";
use Getopt::Std;
use File::Basename;
use LWP::UserAgent;
use BlogCMS::Config;


sub usage {
    my ($msg) = @_;

    my $cmd = basename($0);

    print STDERR "$msg\n\n" if defined $msg;
    print STDERR <<END_OF_TEXT;
Usage:
$cmd [options]

options:
None
END_OF_TEXT
    exit 1;
}

my $url = $BlogCMS::Config::APIPortURL."/postarticle.php";

my $ua = LWP::UserAgent->new;

my $response = $ua->get($url);
if ($response->is_success) {
    print $response->content;
} else {
    die $response->status_line;
}

0;