Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.skeptik.net/map/plainmap.htm
Дата изменения: Unknown
Дата индексирования: Sun Apr 10 00:00:24 2016
Кодировка: Windows-1251

Поисковые слова: п п п п п п п
Карта сайта Клуба Скептиков обычным текстом (без JavaScript)

назад в раздел "Карта/Поиск"

Карта сайта Клуба Скептиков

#!/usr/bin/perl print "Content-type: text/html\n\n"; # $doc_root=$ENV{'DOCUMENT_ROOT'}; # $doc_uri = $ENV{'DOCUMENT_URI'}; # $sec_name="$doc_root/sections.txt"; # $sec_name =~ s|//|/|g; $file_name="map.txt"; open (FILE, "$file_name"); @LINES=; # chomp(@LINES); close(FILE); foreach $line (@LINES) { ($link, $name, $comment) = split(/;/, $line); if ($name ne '') { chomp($name); print "

$name"; if ($comment ne '') { chomp($comment); print " ($comment)"; } print "\n"; } else {print $line;} }