File vdr-renderwikipage of Package vdr

#!/usr/bin/perl -w

use strict;
use Text::MediawikiFormat;

open (I, '<', 'README.SuSE-vdr.wiki') or die $!;
open (O, '>', 'README.SuSE-vdr.html') or die $!;

my $content = join('', <I>);
close I;

my $txt;

$txt = <<EOF;
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<link rel="stylesheet" href="./greenish.css" type="text/css" />
<title>VDR</title>
</head>
<body>
<h1>VDR - Video Disk Recorder</h1>
EOF

$txt .= Text::MediawikiFormat::format($content, undef, { prefix => 'http://en.opensuse.org/', implicit_links => 0 });

$txt .= '</html></body>';

print O $txt;
close O;

system("w3m -dump README.SuSE-vdr.html > README.SuSE-vdr.txt");