#!/usr/bin/perl
use locale;
require 'common.pl';
use CGI qw/:standard/;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
my $debug_out="debug/debug_outside.txt";
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$in{$name} = $value;
}
my @cookieArray=split ("; ",$ENV{'HTTP_COOKIE'});
my $cookieName;my $cookieValue;
foreach (@cookieArray){
($cookieName,$cookieValue)=split("=",$_);
$cookieHash{$cookieName}=$cookieValue;
}
if ($ENV{'QUERY_STRING'} ne '') {
@qstr = split (/=/,$ENV{'QUERY_STRING'});
$command = $qstr[0];
$value = $qstr[1];
$value =~ s/[\x00-\x20<>\|;\(\)\$^\+!\^\[\]\?\"\'\`]//g;
if ($command eq "error"){$error=1;&displayDefault;}
else {&displayDefault;}
}
else{&displayDefault;}
sub displayDefault(){
print "Content-type: text/html\n\n";
print <<"EOF";
\n
\nЗа окном\n
EOF
if ($cookieHash{'light'}){print '';}
else {print '';}
print <<"EOF";
Вы ставите синюю конечность на стену.Она прирастает к камню,и вы легко встаёте на неё.Зацепившись за край стены,вы забираетесь наверх.
На этом месте я вынужден приостановить мой рассказ.В будущем он продолжится.
С уважением,Oreolek
EOF
if ($error){print "