Интер-Cоя
первая страница   пишите нам   поиск   карта сайта          

<< возврат

#!/usr/bin/perl ################################################################################################## # Скрипт для показа новостей сайта для www.stomatolog.ru и еже с ним ## # # Автор - бесменный веб-мастер www.stomatolog.ru Борис Бикбов (bgab@orc.ru) ## ################################################################################################ $path = "/users/home/bin144-www/docs"; # Перечисление алиасов @subsitesname = ('soyka', 'soykarch'); # Перечисление путей к файлам новостей на алиасах @subsites = ('main/news.inc', 'main/news.inc'); # Сколько строчек брать: 1 - для первой страницы, 2 - для архива @strnum = (1,2); # Сколько строк размещать на первой странице $stringtotake = 10; # Get the input read(STDIN, $buffer, $ENV{'QUERY_STRING'}); $sitename = $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; # Вычисляю какой фай открыть $i = 0; foreach $subsitesname (@subsitesname){ if ($subsitesname eq $sitename){ $addpath = $subsites[$i]; $stringnum = $strnum[$i]; } $i++; } # Открываю нужный файл новостей open (NEWS,"$path/$addpath") || die "Не в состоянии отктыть $path/$addpath"; @news = ; close(NEWS); # Если это первая страница $count = 0; if ($stringnum == 1){ foreach $news(@news){ if ($count < $stringtotake){ print "$news\n"; } $count++; } } # Если это архив if ($stringnum == 2){ foreach $news(@news){ print "$news\n"; } }

<< возврат


Мы даем россиянам здоровье
 © Интер-Cоя, 1999-2001