на главную страницу
природа легенды туризм галерея карта
на главную...
гостевая книга...


В данном разделе находится коллекция статей о Ергаках из различных газет и журналов. Список статей отсортирован по убыванию даты их выхода (т.е. вверху самые свежие).

#!/usr/bin/perl print "Content-type: text/html; charset=windows-1251\n\n"; sub compare_articles { my ($a,$b) = @_; $a = $a->[1]; $b = $b->[1]; $a =~ /(.+?)\.(.+?)\.(.+)/; my ($a1,$a2,$a3) = ($1,$2,$3); $b =~ /(.+?)\.(.+?)\.(.+)/; my ($b1,$b2,$b3) = ($1,$2,$3); my $r = ($a3 < $b3 || $a3 == $b3 && $a2 < $b2 || $a3 == $b3 && $a2 == $b2 && $a1 < $b1); return $r ? 1 : -1; } $n = $ENV{QUERY_STRING}; if ($n =~ /^\d+$/ && -f "articles/$n") { open F,"articles/$n"; chomp (($date,$source,$source_place,$title,$abstract,$author,$EMPTY,@text) = ); $text = join("\n",@text); $text = "

\n" . join("

\n

\n",@text) . "

\n" if $text !~ /<[Pp]>/; print "вернуться к списку статей...\n
\n

$title

\n

\nдата: $date
\nисточник: $source ($source_place)
\nавтор: $author

\n\n$text\n

\n
\nвернуться к списку статей...\n"; } else { @articles = (); foreach () { open F,$_; $_ =~ /.*?\/(.*)$/; chomp (($date,$source,$source_place,$title,$abstract,$author,$EMPTY,@text) = ); push @articles,[$1,$date,$source,$source_place,$title,$abstract,$author,\@text]; } @articles = sort {compare_articles($a,$b)} @articles; foreach (@articles) { ($file,$date,$source,$source_place,$title,$abstract,$author) = @$_; print "
\n

$title\n

\nдата: $date
\nисточник: $source ($source_place)
\nавтор: $author

\n\n$abstract\n [полный текст]

\n"; } }