<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 $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;}
if ($val{lbut} eq $umf-&gt;trans("BU11") || $val{but} eq $umf-&gt;trans("BU11")) {$umf-&gt;redirect;}
if ($baseq::VARS{lbut} eq $umf-&gt;trans("BU12")) {
	$baseq::VARS{pin}=$baseq::VARS{apin};
	$baseq::VARS{pass}=$baseq::VARS{apass};
}
my $RET = $umf-&gt;checkpass($baseq::VARS{pin}, crypt($baseq::VARS{pass},"xy"));
if ($RET==3 || $umf-&gt;{showstat}) { $umf-&gt;statistik;}
    else { $umf-&gt;login("Bitte Melden Sie sich an");}


$umf-&gt;exit;


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