#!/usr/bin/perl -w

use strict;
use warnings;
use utf8;
use File::Basename;
use Getopt::Long;
use Carp;
use IO::Prompt;
use Net::MovableType;
use DBI;

my ($__exe_name__) = (basename($0));
my ($__revision__) = ('$Rev: 80 $' =~ m/(\d+)/o);
my ($__rev_date__) = ('$Date: 2008-03-03 22:45:12 +0800 (一, 03  3 2008) $' =~ m/(\d{4}-\d{2}-\d{2})/o);

binmode(STDIN,  ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)'); 

sub usage
{
	print STDERR <<"EOF";
Usage: $__exe_name__ [ <option> ... ] <db-uri> <mark-type> <xmlrpc-uri>

Post marks by <type> to XMLRPC interface <xmlrpc-uri> provided by blog site.

Possible <mark-type> could be:

  today - marks added today

Options:

  -h,--help         Show this help message.
  -u,--user <user>  Use <user> to log into blog system.
  -v,--verbose      Show verbose progress messages.

Revision: r$__revision__ ($__rev_date__)
EOF
	exit(0);
}

sub msg_exit
{
	my $ex = ((scalar(@_) > 0) ? shift @_ : 0);
	foreach my $m (@_) {
		print STDERR "ERROR: $m\n";
	}
	print STDERR <<"EOF";
Usage: $__exe_name__ [ <option> ... ] <db-uri> <mark-type> <xmlrpc-uri>
Type '$__exe_name__ --help' for usage.
EOF
	exit($ex);
}

my $opt_verbose = 0;
my $opt_user = undef;
my $opt_pass = undef;
if (!GetOptions('h|help'    => sub { usage; },
                'u|user=s'  => \$opt_user,
                'v|verbose' => \$opt_verbose)) {
	msg_exit(0);
}
(my $arg_db_uri     = shift @ARGV) or msg_exit(1, 'Missing <db-uri>');
(my $arg_mark_type  = shift @ARGV) or msg_exit(1, 'Missing <mark-type>');
(my $arg_xmlrpc_uri = shift @ARGV) or msg_exit(1, 'Missing <xmlrpc-uri>');

if (!defined($opt_user)) {
	while (prompt('Username: ')) {
		$opt_user = $_;
		last; # while
	}
}
if (!defined($opt_pass)) {
	while (prompt('Password: ', - echo => '')) {
		$opt_pass = $_;
		last; # while
	}
}

my $mt = new MovableType($arg_xmlrpc_uri);
$mt->username($opt_user);
$mt->password($opt_pass);
$mt->blogId(1);

my $entries = $mt->getRecentPosts(5);
while (my $e = shift @$entries) {
	printf("[%04d] %s\n       %s\n",
	       $e->{'postid'}, $e->{'title'}, $e->{'link'});
}

my $entry_id = $mt->newPost({
	'title' => '測試發表文章 (via xmlrpc)',
	'description' => 'asdfadsfas',
});
print "entry id: $entry_id\n";