на главную страницу
природа легенды туризм галерея карта
на главную...
гостевая книга...
#!/usr/bin/perl $p = $ENV{QUERY_STRING}; #sort (@texts = ); @texts = ('img/rocks/9.txt','img/rocks/10.txt','img/rocks/8.txt','img/rocks/6.txt','img/rocks/4.txt','img/rocks/5.txt','img/rocks/11.txt','img/rocks/12.txt','img/rocks/16.txt','img/rocks/14.txt','img/rocks/15.txt','img/rocks/17.txt','img/rocks/20.txt','img/rocks/25.txt','img/rocks/18.txt','img/rocks/19.txt','img/rocks/23.txt','img/rocks/24.txt','img/rocks/31.txt','img/rocks/30.txt'); @width = (105,105,105, 75, 75, 76,105,105, 76, 75, 75,105,105,105, 76, 75,105,105,105, 76); @height = ( 74, 75, 75,105,105,105, 75, 75,105,105,105, 72, 74, 73,105,105, 75, 73, 74,105); @width2 = (658,658,658,461,464,466,658,658,469,464,464,658,658,658,467,465,658,658,658,467); @height2 = (455,463,465,658,658,658,462,463,658,658,658,445,455,453,658,658,461,453,460,658); %breaks = (11=>1,17=>1,23=>1,31=>1); print "Content-type: text/html; charset=windows-1251\n\n"; @titles = (); @files = (); $i = 0; foreach (@texts) { open TXT, $_; @lines = ; close TXT; push @titles, $lines[0]; s/^.*\/(.*)\.txt$/$1/; push @files, $_; if ($p eq $_) {@this = @lines; $this = $_; $I = $i;} $i++; } if (defined $this) { print "

\n"; print "
\"вернуться\"$this[0]
\n"; if (@this == 2) {print "
$this[1]
\n"} else { print "
    \n"; foreach (@this) {print "
  1. $_\n" if $skipped; $skipped = 1;} print "
\n"; } print "
\"ещё

\n"; } else { print "


В этом разделе приведены маршруты преодоления основных пиков Ергаков. Для просмотра маршрута выберите интересующий вас пик из списка. Можете скачать архивы еще с необработанными материалами (см. список).



\n"; print "\n"; for ($i = 0; $i < @files; $i++) { if ($breaks{$files[$i]}) {print "\n"} $titles[$i] =~ s/\s*$//; chomp $titles[$i]; print "\n"; } print "

$titles[$i]

\n"; }
ТУРИЗМ СКАЛЫ ПЕРЕВАЛЫ ПЕСНИ АЛЬПИНИЗМ СОВЕТЫ ТУРИСТА БАЙКИ ТУРИСТОВ