#! /usr/bin/perl
use warnings;
use strict;
use FindBin ();
use CGI ();

my $bin = 'd:\Programme\gnu\src-highlight\bin\source-highlight.exe';

my $cgi = CGI::->new();
my $code = $cgi->param('code') || '';
my $infile = "$FindBin::Bin/../codes/$code";

print "Content-type: text/html\n\n";

-f $infile or print("Error: $infile not existing\n"), exit;

#my $command = "$bin -i $infile -f xhtml -s perl -n";
my $command = "$bin -i $infile -f xhtml -s perl -n --css xhtml.css --no-doc";
unless (open (CMD, "$command 2>&1 |")) {
    print "Error: $!\n";
} # unless
else {
    print "<i>Code: $code</i><br>\n";
    print qq~<div class="codeTable">\n~;
    print while <CMD>;
    close (CMD);
    print "</div>";
} # else