<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w
#
#
#use strict;
use CGI::Carp qw(fatalsToBrowser); 

use umfrage;

baseq::Vars;

my $statistik=0;
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;}
foreach (keys %baseq::VARS) {
	$statistik=1 if /^stbut/ ;
}

if  ($umf-&gt;{showstat} &amp;&amp; $statistik) {
	$umf-&gt;statistik;
}
else {
	$umf-&gt;enterant;       #Antworten einlesen und neue frage ausgeben
}	
$umf-&gt;exit;

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