<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;

baseq::Vars;

my $umf=umfrage-&gt;init($self,$baseq::VARS{umfid});
if (! defined $umf-&gt;load) {print "Content-type: text/html\n\nFehler: Umfrage $baseq::VARS{umfid}";$umf-&gt;exit;}
$umf-&gt;enterant;       #Antworten einlesen und neue frage ausgeben
$umf-&gt;exit;

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