|
|
 |
Новости
#!/usr/bin/perl
######################################################
#
$_Script = "am-news";
$_Version = "0.1";
$_Date = "24.08.2003";
#
$version="$_Script $_Version ($_Date)";
$scriptname="th_news.pl";
$script_name_html="news.shtml";
$datafile = "news.dat";
$msgfile = "th_news.messages";
$template_dir="templates";
$msgonpage=10;
#####
# юФЕОЙЕ ДБООЩИ ЙЪ ЖПТНЩ
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#$value =~ s///g;$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;}
$temp=$ENV{'QUERY_STRING'};@pairs=split(/&/,$temp);
foreach $item(@pairs) {($key,$content)=split (/=/,$item,2);$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
#$content =~ s///g;$content =~ s/<([^>]|\n)*>//g;
$FORM{$key}=$content; }
###
open (MESSAGES, $msgfile);
flock (MESSAGES, LOCK_SH);
while ($readmsg=)
{
$readmsg =~ s/\n//g;
@rmsg = split(/\| \|/, $readmsg);
$msg{$rmsg[0]}=$rmsg[1];
}
flock (MESSAGES, LOCK_UN);
close (MESSAGES);
require "modules/a_records.pm";
require "modules/a_auth.pm";
$g_basedir = "temp";
$g_tempdir = "temp";
record_init_structure ("$g_basedir", "sessions");
record_init_structure ("$g_basedir", "users");
print "Content-type:text/html\n\n";
$usercookie=0;
$tmp_action = $FORM{'action'};
@actionz = split("!",$tmp_action);
$action = $actionz[0];
$usercookie = $actionz[1];
$approve = 0;
if ($action eq "") {&view_news; exit;}
if ($action eq "auth") {
$login=$FORM{'login'};
$password=$FORM{'passwrd'};
($approve, %logged_user_info) = auth_firstlogin($login, $password);
$usercookie = auth_getkey($logged_user_info{id});
if (($usercookie eq "")||($usercookie eq "0")) {$usercookie="0";}
print <Processing...
processing... |
