#!/usr/bin/perl require 'vp.cgi'; require 'header.cgi'; $adminEmail="spbfp\@atlant.ru"; $admin=0; $SORTINGS=5; @SORT_FILE=("../../data/reports/addsort.dat","../data/reports/datesort.dat","../data/reports/kmsort.dat","../data/reports/namesort.dat","../data/reports/compsort.dat"); $CSORT_FNAME="../../data/reports/cs"; $CSORT_FEXT=".dat"; $CATEG_FNAME="../../data/reports/category.dat"; $BASE_FILE="../../data/reports/lib.dat"; $NEWS_FILE="../../data/reports/new.dat"; @SORT_OPTIONS=("дате добавления в базу","дате проведения похода","длине маршрута","имени руководителя","сложности"); @OUTPUT_OPTIONS=("все сразу","по 10 на странице","по 20 на странице","по 30 на странице","по 40 на странице","по 50 на странице"); @complicacyName=('*','* *','* * *','* * * *','* * * * *','* * * * * *'); $hidField=""; $colsp=5; $catCount=0; $filePre="/rep/"; if($ENV{'REQUEST_METHOD'} eq 'GET') { $query=$ENV{'QUERY_STRING'}; if($query eq "show") { $admin=0; } elsif($query eq "adminfunc") { $admin=1; } else {die;} $form{catout}="no"; $form{showr}="yes"; $form{tsort}=0; $form{output}=5; } elsif($ENV{'REQUEST_METHOD'} eq 'POST') { sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'}); } else {die "Unknown Method";} @pairs=split('&',$query); foreach(@pairs) { ($name,$val)=split('=',$_); $val=~tr/\+/ /; $val=~s/%([a-fA-F0-9]{2})/pack("C",hex($1))/ge; $val=~s/\&/&/g; $val=~s/\"/"/g; $val=~s//\>\;/g; $val=~s/(\x0D|\x0A)//g; $form{$name}=$val; } if(!&IsNumber($form{tsort},$form{output})) {die;} if($form{tsort}<0 || $form{tsort}>($SORTINGS-1) || $form{output}<0 || $form{output}>5) {die;} if($form{adminf} eq 'yes') {$admin=1;} if($admin) { $colsp=8; $hidField=""; } $categBreak=($form{catout} eq "yes"?1:0); $showRoutes=($form{showr} eq "yes"?1:0); fopen(CATEG,"$CATEG_FNAME"); $catnum=0; foreach() {chomp($categList[$catnum++]=$_);} fclose(CATEG); print <<"(END_HEADER_PART0)"; Content-Type: text/html -=ВелоПитер=- - Походы - Библиотека отчётов (END_HEADER_PART0) &PrintHeader(1); print <<"(END_HEADER_PART2)";
БИБЛИОТЕКА ОТЧЁТОВ
о походах и покатушках

Присылайте нам ваши отчёты и рассказы о походах!
Только обязательно укажите в начале письма точные даты проведения мероприятия, примерный маршрут, его длину, имя руководителя мероприятия и контактный e-mail (если есть).

Опции
"; print "\n
Сортировать по  $hidField (END_HEADER_PART2) &PrintOptions("tsort",1,0,4,$form{tsort},@SORT_OPTIONS); print "\ \;\ \;\ \;\ \;\ \;Разбивать на районы проведения
Выдавать \ \;"; &PrintOptions("output",1,5,5,$form{output},@OUTPUT_OPTIONS); print "\ \;\ \;\ \;\ \;\ \; Показывать маршруты походов

(END_HEADER_PART4) if($admin) {print "
\n\n";} print ""; print ""; if(!$admin) { print "\n\n (END_HEADER) fopen(BASE,"$BASE_FILE"); $recnum=0; if(!$categBreak) { fopen(SORT,"$SORT_FILE[$form{tsort}]"); foreach() { ($bnum,$bpos)=split(' ',$_); $recnum++; &PrintRecord($bpos,$bnum); } fclose(SORT); } else { for($i=0; $i<$catnum; $i++) { $catCount=0; print "\n"; fopen(SORT,"$CSORT_FNAME$i$CSORT_FEXT"); binmode(SORT); chomp($recnum=); $toskip=$form{tsort}*$recnum; for($k=0; $k<$toskip; $k++) {$str=;} for($k=0; $k<$recnum; $k++) { chomp($str=); ($bnum,$bpos)=split(' ',$str); &PrintRecord($bpos,$bnum); } fclose(SORT); print "\n"; } } fclose(BASE); &PrintFooter; sub PrintRecord { local($basePos,$baseNum)=@_; seek(BASE,$basePos,0); chomp($str=); @param=split(' ',$str); if((!$param[0] || $param[0]==2) && !$admin) {return 0;} chomp($lname=); chomp($rname=); chomp($fname=); chomp($lemail=); chomp($route=); $allCount++; if($categBreak) {$catCount++;} print ""; if(!$admin) { print "\n"; print "\n\n\n"; print "\n"; print "\n"; return 1; } sub IsNumber { foreach $elm (@_) {if($elm=~/\D/) {return 0;}} return 1; } sub PrintFooter { print "
МеткаПоказыватьNew\ \;Название и место проведения похода: Длина маршрута: Даты проведения: Руководитель похода: Сложность:

$categList[$i]
Отчётов в этой категории: $catCount
 \;"; if($param[0]==3 || $param[0]==2) {print "new! "} print "$rname
"; if(!$categBreak) {print " $categList[$param[1]]
\n";} if($showRoutes) {print " Маршрут: $route\n";} print "		$param[8] км"; if($param[4]) { print "$param[2].$param[3].$param[4]"; unless($param[2]==$param[5] && $param[3]==$param[6] && $param[4]==$param[7]) {print " - $param[5].$param[6].$param[7]";} } else {print "?";} print ""; if($lemail ne '') {print "$lname";} else {print "$lname";} print "$complicacyName[$param[9]]
Всего отчётов в библиотеке: $allCount<\/b><\/font><\/td><\/tr>"; if(!$admin) { print "
"; } else { print ""; print "
Помеченные записи:   \n"; print "Удалить  Редактировать
Пароль:     \n"; print ""; print "
"; } print <<"(END_PAGE)";

Мы всегда ради вашим отчётам!

 (END_PAGE) &IncludeFile("../htmls/foot.htm"); print ""; }