#!/usr/bin/perl

use strict;
use CGI (':standard');
use CGI::Carp ('fatalsToBrowser');

my ($seite, $next, %data, $HIDDENDATA, @fragen);  

@fragen = qw/alter prog sprache verstehen cgi cool/;

print "Content-Type: text/html\n\n";
print "<h1>Umfrage</h1>\n";

$seite = param( "next" ) || 1;   # nächste Seite

foreach my $name ( param() ) {
    my $wert = param($name);
    next if $name eq "next"; 
    next if $wert eq "";
    #print "<br>übernehme feld $name\n";
    $HIDDENDATA .= hidden ( -name => $name, -value => $wert ) . "\n";
    $data{$name} = $wert;    
}

unless ( -w "daten.txt" ) {
    print <<"EOM";
    <p>Derzeit ausser Betrieb - das speichern
    der Daten ist derzeit nicht möglich.</p>
EOM
    exit;
}

if( $seite == 1 ) {
    print <<"EOM";
    <p>Danke, dass Sie an unsere Umfrage teilnehmen. 
    Es sind ca. 15 Fragen, auf 3 Seiten verteilt.
    Alle Antworten sind freiwillig, Sie können auch
    einzelne Fragen leer lassen.
    
    <h2>$seite) Persönliche Daten</h2>
    
    <form method="post">
    <input type="hidden" name="next" value="2">
    Alter: <input name="alter" size=4>
    <input type="submit" 
            value="weiter"> <br>
    </form>
EOM
} elsif ( $seite == 2 ) {

    print <<"EOM";
    <h2>$seite) Vorwissen</h2>
    
    <form method="post">
    <input type="hidden" name="next" value="3">
    $HIDDENDATA
    Konnten Sie schon programmieren?
    <input type="radio" name="prog" value="Ja">Ja
    <input type="radio" name="prog" value="Nein">Nein
    <br>Wenn ja: welche Sprache(n)? 
    <textarea name="sprache"></textarea>
    <input type="submit" 
            value="weiter"> <br>
    </form>
EOM

} elsif ( $seite == 3 ) {

    print <<"EOM";
    
    <h2>$seite) Meinung zu Perl</h2>
    
    <form method="post">
    <input type="hidden" name="next" value="4">
    $HIDDENDATA
    Was halten Sie von Perl?
    Beurteilen Sie jede Eigenschaft von
    1 (trifft zu) bis 5 (trifft nicht zu).
     
    <p>Leicht zu verstehen
    <input name="verstehen" size="5">  

    <br>Geeignet für CGI-Skripts
    <input name="cgi" size="5"> 
     
    <br>Cool
    <input name="cool" size="5"> 
     
    <input type="submit" 
            value="weiter"> <br>
    </form>
EOM

}  else {

    unless ( open (OUT, ">>daten.txt") ) {
        print <<"EOM";
        <p>Derzeit ausser Betrieb - das speichern
        der Daten ist nicht möglich.
        <!--   $! --- >
        </p>
EOM
        exit;
    }
    
    my (@werte,$zeile); 
    foreach my $name (@fragen) {
        my $wert;
    	$wert = $data{$name};
     	$wert =~ s/#/ /g;
     	$wert =~ s/\r//g;          
     	$wert =~ s/\n/ /sg;      
        push (@werte, $wert);
    }
    $zeile = join("#", @werte);
    print OUT $zeile, "\n";
    close OUT;
    
    print <<"EOM";
    
    <h2>$seite) Danke!</h2>
    
    <p>Wir haben jetzt alle Daten, 
    danke für Ihre Mitarbeit.
    
EOM


}