69 lines
3.0 KiB
Perl
69 lines
3.0 KiB
Perl
#!/usr/bin/perl
|
|
require 'common.pl';
|
|
use CGI qw/:standard/;
|
|
use locale;
|
|
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
|
|
@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/<!--(.|\n)*-->//g;
|
|
$in{$name} = $value;
|
|
}
|
|
@cookieArray=split ("; ",$ENV{'HTTP_COOKIE'});
|
|
my $cookieName;my $cookieValue;
|
|
%cookieHash;
|
|
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{
|
|
if ($in{'input'}) {&parsecommand;}
|
|
else {&displayDefault;}
|
|
}
|
|
sub displayDefault(){
|
|
print "Content-type: text/html\n\n";
|
|
print <<"EOF";
|
|
<html>\n
|
|
<head><script language="javascript">
|
|
window.onload=function() {document.getElementById("in").focus();};
|
|
</script>\n<title>Ãîñòèíàÿ Àëåêñàíäðà ßêîâëåâà</title>\n
|
|
EOF
|
|
if ($cookieHash{'light'}){print '<link type="text/css" rel="stylesheet" href="white.css">';}
|
|
else {print '<link type="text/css" rel="stylesheet" href="black.css">';}
|
|
print "</head><body>\nÂû íàõîäèòåñü â ãîñòèíîé.Çäåñü î÷åíü ";
|
|
if ($cookieHash{'light'}){print "ñâåòëî.";}
|
|
else {print "òåìíî.";}
|
|
print <<"EOF";
|
|
<p>Ñëåâà îò âàñ ñòîèò áîëüøîé êðàñíûé øêàô ñ êíèãàìè.<br>
|
|
Ñòåíà ïî ëåâóþ ñòîðîíó îò øêàôà óêðàøåíà ôîòîãðàôèÿìè àâòîðà ñòðàíèöû è åãî äðóçåé.<br>
|
|
Ïî ïðàâóþ ñòîðîíó îò øêàôà ñòîèò ïèñüìåííûé ñòîë,íà êîòîðîì ðàçáðîñàíû çàïèñêè.
|
|
Ðÿäîì ñî ñòîëîì ïðèáèòû äâå ïîëêè.Íà âåðõíåé ïîñòàâëåíî â ðÿä íåñêîëüêî äèñêåò.Íà ñòåíå âèäåí âûêëþ÷àòåëü.</p>
|
|
EOF
|
|
&lower_shelf();
|
|
if ($error){print "<p id=\"err\">Êîìàíäà íå ðàñïîçíàíà.</p>";$error=0;}
|
|
print "<FORM NAME='input' ACTION='parse.pl' METHOD='POST'>\n";
|
|
print "<input type='hidden' name='location' id='location' value='gostinaya'>\n";
|
|
print '> <input type=text id="in" name="input" size=64 maxlength=32>';
|
|
print "</body>\n</html>";
|
|
}
|
|
sub lower_shelf{#îïèñàíèå íèæíåé ïîëêè
|
|
if ($cookieHash{'leg'} && $cookieHash{'ball'} && $cookieHash{'match'}){print "Íà íèæíåé íè÷åãî íå ëåæèò.";}
|
|
elsif ($cookieHash{'leg'} && $cookieHash{'ball'}){print "Íà íèæíåé ëåæèò îäèíîêàÿ ñïè÷êà.";}
|
|
elsif ($cookieHash{'match'} && $cookieHash{'ball'}){print "Íà íèæíåé ëåæèò îäèíîêàÿ ÷üÿ-òî ñèíÿÿ êîíå÷íîñòü.";}
|
|
elsif ($cookieHash{'leg'} && $cookieHash{'match'}){print "Íà íèæíåé ëåæèò îäèíîêèé ÷¸ðíûé øàðèê.";}
|
|
elsif ($cookieHash{'leg'}){print "Íà íèæíåé ëåæàò ÷¸ðíûé áëåñòÿùèé øàðèê è ñïè÷êà.";}
|
|
elsif ($cookieHash{'ball'}){print "Íà íèæíåé ëåæàò êàêàÿ-òî ñèíÿÿ êîíå÷íîñòü è ñïè÷êà.";}
|
|
elsif ($cookieHash{'match'}){print "Íà íèæíåé ëåæàò êàêàÿ-òî ñèíÿÿ êîíå÷íîñòü è ÷¸ðíûé áëåñòÿùèé øàðèê ñ îêîøå÷êîì.";}
|
|
else {print"Íà íèæíåé ëåæèò êàêàÿ-òî êîíå÷íîñòü,êðóãëûé ÷¸ðíûé øàð ñ îòâåðñòèåì è ñïè÷êà.";}
|
|
} |