#!/usr/bin/perl
$Vgenerator='gz.gorilka2go.0022';
$newsbase='banners.txt'; # база новостей.
$picsurl='/img/news'; # каталог картинок 150x111 (чтоб залили и выбрали)
$myname='/cgi-bin/banners_sh.pl'; # кто и где меня искать ;)
$template='index2.html'; # темплейт ;)
$count_news=55; # сколько их блин выводить - старые новости не волнуют никого ;)
# выводит новостную ленту, использует темплейт (включая в него на место
# новости, на место заголовок
# новейшую "важной" новости)
#
# использует совместимую базу формата
#
# [0:id][1:заголовок][2:дата][3:источник][4:первый абзац][5:остатний текст]
# [6:pics_url_150x111][7:важная][8:passive]
#
# Параметры get/post
#
# action=show - выдает ленту новостей
# action=news[&id=..] - выдает новость
# Вы можете отредактировать темплейты вывода новостей и отдельно новости ;)
#
# погнали наши городских...
# 1. парсим параметры
if ($ENV{'CONTENT_LENGTH'}) {
read(STDIN, $param_str, $ENV{'CONTENT_LENGTH'});
} else {
$param_str=$ENV{'QUERY_STRING'};
}
@pairs=split(/&/,$param_str);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g;
$value =~ s/\r/ /g;
$value =~ s/\x09//g;
$AdmForm{$name}=$value;
$value=~s//\>\;/g;
$Form{$name}=$value;
}
# 2. определяем что показывать, обрабатываем и генерим контент
open F, $newsbase;
@L=
; close F;
@L=reverse(@L);
$n = 0;
opendir FF, "/home/uniteam/www/site1/public_html/banners";
while ($actfile = readdir FF)
{
$banners[$n] = $actfile;
$n++;
}
for ($i=2; $i<$n; $i++)
{
$banners[$i-2] = $banners[$i];
}
$n = $n-2;
$numa2 = sprintf('%.f', rand($n-1));
if ($Form{'action'} eq 'news') {
foreach $l (@L) {
$l=~s/\n//g;
$l=~s/\"\"/\'/g; # обеспечим совместимость с excel и lotus 1-2-3
$l=~s/\"//g; #
$l=~s/\'/\"/g; #
@ls=split(/\x09/,$l);
if ($ls[0] eq $Form{'id'}) {
# news_template_begin
$content.=qq(
);
# news_template_end
last;
}
}
} else { # action=show - выводим новейшие $count_news новостей ;)
$count=0;
$cont = 0;
foreach $l (@L) {
$l=~s/\n//g;
$l=~s/\"\"/\'/g; # обеспечим совместимость с excel и lotus 1-2-3
$l=~s/\"//g; #
$l=~s/\'/\"/g; #
@ls=split(/\x09/,$l);
if ($ls[8] eq '1') {next;}
if ($ls[7] eq '1') {
@iml_ls=@ls; $get_imp=1;
}
if ($ls[2] gt ' ') { # новость есть ;)
# отредактируйте темплейт каждной новости по образцу при необходимости;)
# lenta_template_begin
if ($ls[6] gt ' ')
{
if ($cont eq $numa2)
{
$content.=qq(
);
}
}
else
{
$content.=qq(
$ls[2]$ls[3]);
}
# lenta_template_end
}
$count++;
$cont++;
if ($count > $count_news) {last;}
}
if ($get_imp) {
# если у нас есть важная новость в новых - готовим ее
# imp_template_begin
$imp=qq($iml_ls[1]);
# imp_template_end
} else {
# выводим пустоту
$imp=qq();
}
}
# 3. выводем сгенеренное...
open F, $template;
@T=; close F;
$text=join('',@T);
$text=~s//$content/g;
$text=~s//$imp/g;
print "Content-type: text/html\n\n";
print qq($text);
