#!/usr/bin/env perl

###  usage:  markdown2mediawiki.pl *.markup > wiki-dump.xml

# You may need to post-process to convert raw ampersands to &, 
# raw > and < to &gt; and &lt;, etc.

use strict;
use warnings;

use DateTime;

my $username = 'Kevinr';

my $comment = 'Import from Stikipad dump taken 2007-12-08 21:57 EST';

my $dt = DateTime->now();
$dt->set_time_zone( 'UTC' );
my $timestamp = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $dt->year, $dt->mon, $dt->day, $dt->hour, $dt->min, $dt->sec );

print "<mediawiki xml:lang=\"en\">\n";

foreach my $i (@ARGV) {
    $i =~ /(.*?)\.\w+$/;
    my $title = $1;
    my $filename = $i;
#    $filename =~ s/\'/\\'/g;

    print "  <page>\n";
    print "    <title>$title</title>\n";
    print "    <revision>\n";
    print "      <timestamp>$timestamp</timestamp>\n";
    print "      <contributor><username>$username</username></contributor>\n";
    print "      <comment>$comment</comment>\n";
    print "      <text>\n";
    print `cat "$filename"`;
    print "      </text>\n";
    print "    </revision>\n";
    print "  </page>\n";
}

print "</mediawiki>\n";