#!/usr/bin/perl

use warnings;
use strict;

use lib 'C:\Users\hirom\Documents\Dev\sfwiki';

use utf8;
use open IO => ':utf8';
use open ':std';

use SourceForgeJP::Wiki::Html2Wiki;

my $image_basedir = shift @ARGV;

my $html = do {local $/; <> };

my $converter = WWW::SourceForgeJP::Wiki::Html2Wiki->new($image_basedir);
my $wiki = $converter->convert($html);

print $wiki;
