<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
#
#

use umfrage;
use CGI;

$query = new CGI;
my %val = $query-&gt;Vars;
$self-&gt;{vars}=\%val;
$self-&gt;{query}=$query;
my $umf=umfrage-&gt;init($self, $val{umfid});
if ($val{umfid} == 0) {$umf-&gt;new;}
else { $umf=$umf-&gt;load;}

if (! defined $umf){print "Content-type: text/html\n\nFehler: Umfrage $val{umfid}";exit;}

$umf-&gt;getbearb;

$umf-&gt;exit;


</pre></body></html>