#!/usr/bin/perl
use CGI::Carp "fatalsToBrowser";
##############################################################################################################
# Nutzungsbedingungen (Umfragescript): Lizenz: Stand: 3.09.2001
#
# Durch Download der Software erklären Sie sich mit diesen Lizenzabkommen einverstanden.
# Der Umfragescript ist Freeware, jedoch nicht zum GPU/GPL - Abkommen zuzuordnen.
# Diese Lizenz erlaubt es Ihnen, Umfragescript zu benutzen.
# Als Nutzer des Umfragescript können Sie auf eigenes Risiko die Software verändern und/oder auf Ihre Bedürfnisse anpassen.
# Sie können auch Dritte mit der Anpassung/Veränderung beauftragen.
# Die Original-Software unverändert darf weitergegeben werden jedoch nicht verkauft oder wiederverkauft werden.
#
# Die angepasste/veränderte Software und Teile dieser dürfen nicht weitergegeben ,verkauft oder wiederverkauft werden.
#
# Alle Copyright- und Versions-Hinweise, die im Umfragescript oder deren HTML-Seiten verwendet, erstellt und/oder gezeigt
# werden, dürfen nicht entfernt werden. Die Copyright- und Versions-Hinweise müssen für Benutzer sichtbar und in
# ungeänderter Form dargestellt werden.
#
# Dieses Lizenzabkommen beruht sich auf der aktuellen internationalen Gesetzeslage.
#
# Bei einem Verstoß gegen diesen Lizenzvertrag durch die Firma Coder-World oder deren Beauftragten die erworbene Lizenz
# jederzeit zurückgezogen und für nichtig erklärt werden sowie die Benutzung untersagt werden.
# Umfragescript und die dazugehörenden Dateien werden ohne Funktionsgarantie für die im Umfeld verwendete Hardware
# oder Software verkauft.
#
# Coder-World oder deren Beauftragten sind in keiner Form für Inhalte oder Verfasser verantwortlich, die durch diese
# Software erstellt wurden.
#
# Das Risiko der Benutzung vom Umfragescript obliegt dem Lizenznehmer, jegliche Erstattungen im Rechtsfall sind ausgeschlossen.
# Eine Lizenz ist zeitlich unbegrenzt nutzbar, in der Lizenz ist grundsätzlich der Zugriff auf alle neuen Versionen für
# einen unbegrenzten Zeitraum enthalten.
#
# Hinweis: Es existieren keine Reseller-, Wiederverkaufs- oder Schüler-/Studenten - Versionen. Nach den Lizenzbedingungen muß der Website-Besitzer die Lizenz selbst erhalten.
#
# Verfasser: Stefan Gipper (Stefanos)
# E-Mail: support@coder-world.de
# Webseite: http://www.coder-world.de
#
# Bei Veröffentlichung dieses Dokuments ist es eine feine Geste, mir eine Nachricht zukommen zu lassen.
##############################################################################################################
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});@pairs = split(/&/, $input);foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);$name =~ tr/+/ /;$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$FORM{$name} = $value;}@vars = split(/&/, $ENV{QUERY_STRING});foreach $var (@vars) {($v,$i) = split(/=/, $var);$v =~ tr/+/ /;$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$i =~ tr/+/ /;$i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$i =~ s///g;$INFO{$v} = $i;}
if($INFO{'action'} ne ""){
$action = $INFO{'action'};
}else{
$action = $FORM{'action'};
}
if($action eq ""){
$pwd = $ENV{'SCRIPT_NAME'};
$pwd =~ s/\/install.cgi//g;
print "Content-type: text/html\n\n";
print<<"STG";
Installation für Umfragescript v1.04