#!/usr/local/bin/perl
use strict;
use CGI;

# 正解を準備する
my @seikai = ('no','yes','no');

# CGIモジュールを誕生させる
my $query = new CGI;

# フォームからのデーターを取り出す
my $bangou = $query->param('bangou');
my $kotae = $query->param('kotae');

# 回答入力のチェック
unless ($kotae eq 'yes' or $kotae eq 'no') {　　#…(1)
    print "Location: error.html\n\n";
}

# 正解の場合、クッキーに保存してフォームページのURLを返す
if ($kotae eq $seikai[$bangou]) {
     seikai();
}
# 不正解の場合、残念ページのURLを返す
else {
     fuseikai();
}

#--------------------------------------------------
# 正解の処理
#--------------------------------------------------
sub seikai {　　#…(2)
    my $cookie = $query->cookie(
      -name => 'panda_quiz',
      -value => 'seikai',
      -path => '/');　　
    print "Set-Cookie: $cookie\n";
    print "Location: seikai.html\n\n";
}

#--------------------------------------------------
# 不正解の処理
#--------------------------------------------------
sub fuseikai {
    print "Location: fuseikai.html\n\n";
}