56 lines
1.9 KiB
Perl
56 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
require 'common.pl';
|
|
#parse POST input
|
|
my $temp;my $pair;my %in;
|
|
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
|
|
my @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;
|
|
}
|
|
if ($in{'username'}) {&writemessage;}#POST isn't empty,new message pending
|
|
else {&checkaccess;}
|
|
|
|
sub writemessage{
|
|
if ($in{'username'} eq "the master of universe" && $in{'password'} eq "the greatest man in the world"){
|
|
&printHeader("Íàïèñàòü íîâîå ñîîáùåíèå",1);
|
|
print <<"END";
|
|
<h2 align="center">Íàïèñàòü íîâîå ñîîáùåíèå</h2>
|
|
<FORM NAME="form" ACTION="post_message.pl" METHOD="POST">
|
|
Çàãîëîâîê ñîîáùåíèÿ (åñëè ïóñò,îí áóäåò çàìåíåí íà òåêóùóþ äàòó):
|
|
<p><input type="text" name="title" size="50" maxlength="225"></p>
|
|
Òåêñò ñîîáùåíèÿ:
|
|
<p><textarea cols="100" rows="15" name="body"></textarea></p>
|
|
<br><INPUT TYPE="Submit" class='submit' VALUE="Îòïðàâèòü â áëîã">
|
|
</form>
|
|
END
|
|
&printFooter;
|
|
}
|
|
else{
|
|
&printHeader("Íåâåðíûå ëîãèí è ïàðîëü",1);
|
|
print <<"END";
|
|
<h3 align="center">Íåâåðíûå ëîãèí èëè ïàðîëü</h3>
|
|
Òîò ëîãèí è ïàðîëü,÷òî âû ââåëè,îêàçàëèñü íåâåðíû.Âû íå ñìîæåòå íàïèñàòü ñîîáùåíèå â ýòîò äíåâíèê.Ñîæàëååì.
|
|
END
|
|
&printFooter;
|
|
}
|
|
}
|
|
|
|
sub checkaccess{
|
|
&printHeader("Ïðîâåðêà ïîëüçîâàòåëÿ",1);
|
|
print <<"END";
|
|
<h3 align="center">Íàïèñàòü íîâîå ñîîáùåíèå</h3>
|
|
<FORM NAME="forum" ACTION="?" METHOD="POST">
|
|
<table border=0><tr><td>Èìÿ ïîëüçîâàòåëÿ:</td>
|
|
<td><input type="text" name="username" size="35" maxlength="225"></td></tr>
|
|
<tr><td>Ïàðîëü:</td>
|
|
<td><input type="password" name="password" size="35" maxlength="225"></td></tr>
|
|
</table>
|
|
<input type="submit" value="Ïðîâåðèòü">
|
|
</form>
|
|
END
|
|
&printFooter();
|
|
} |