17 lines
373 B
Perl
17 lines
373 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Static HTML -> TML converter
|
||
|
|
#
|
||
|
|
# cd to the tools directory to run it
|
||
|
|
|
||
|
|
BEGIN { do '../bin/setlib.cfg'; }
|
||
|
|
|
||
|
|
use TWiki::Plugins::WysiwygPlugin::HTML2TML;
|
||
|
|
|
||
|
|
use TWiki::Plugins::WysiwygPlugin::TML2HTML;
|
||
|
|
my $html2tml = new TWiki::Plugins::WysiwygPlugin::HTML2TML();
|
||
|
|
undef $/;
|
||
|
|
my $html = <>;
|
||
|
|
my $tml = $html2tml->convert( $html, { very_clean=>1 } );
|
||
|
|
print $tml;
|