#!/usr/bin/perl -w

my $ROOT      = "/www/apache/mason";
my $COMP_PATH = "$ROOT/comp";
my $DOC_PATH  = "$ROOT/data";

use CGI qw(:all);
use HTML::Mason;

print header();
my $outbuf;
my $parser = HTML::Mason::Parser->new();
my $interp = HTML::Mason::Interp->new( 
                 parser     => $parser,
                 comp_root  => $COMP_PATH,
                 data_dir   => $DOC_PATH,
                 out_method => \$outbuf );

%params = CGI::Vars();

# Multi-Werte in Arrays transformieren
foreach $param (keys %params) {
    my @values = split /\0/, $params{$param};
    if(@values > 1) {
        $params{$param} = \@values;
    }
}

my $retval = $interp->exec("/pingpong.html", %params);

print $outbuf;