#!/usr/bin/perl
#
# Static HTML -> TML converter
#
# cd to the tools directory to run it

use strict;

BEGIN { do '../bin/setlib.cfg'; }

use TWiki;
use TWiki::Plugins::WysiwygPlugin::HTML2TML;
use TWiki::Plugins::WysiwygPlugin::TML2HTML;

my $session  = new TWiki();
my $html2tml = new TWiki::Plugins::WysiwygPlugin::HTML2TML();
undef $/;
my $html = <>;
my $tml = $html2tml->convert( $html, { very_clean => 1 } );
print $tml;