#!/usr/bin/perl use locale; $ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin"; require 'unimethod.pl'; $HtmlDir = "/web/info/news/jarmarka"; # Каталог html файлов $ConfDir = $HtmlDir . "/conf"; # Каталог конфиг файлов $TextDir = $HtmlDir . "/text"; # Каталог объявлений $ConfHead = $ConfDir . "/head.conf"; # Конфиг с рубриками $HomeURL = "/news/jarmarka"; # URL $GetAdvURL = "freeadv.cgi"; # URL для подачи объявлений %var = &getvar(); # Извлечем переменные $Group = $var{'Group'}; # Определим номер группы $GroupFile = $TextDir . "/j$Group.txt"; # Файл с объявлениями $PDate = "00.00.00"; # Предыдущая дата $Rows = $var{'Rows'}; # Кол-во столбцов в таблице $Rows = 2; # Кол-во столбцов в таблице $Percent = int( 100 / $Rows ); # Ширина столбца в процентах print "Content-type: text/html\n\n"; if( $Group !~ /^\d+$/ ) { &InvalidGroup(); } elsif( ! &CheckGroup( $Group ) ) { &InvalidGroup(); } else { &ShowGroup(); } exit; sub CheckGroup { # проверяем группу на правильность local( $Group ) = @_; # 1 - правильная, 0 - неправильная local( $Type, $Name, $Num ); open( CONF, $ConfHead ); while( ) { s/^\s+//; next if( /^#/ or /^$/ ); ( $Type, $Name, $Num ) = /^(-+)?"(.*)"\s+(\S+)\s*/; $RGroup0 = $Name if( $Type eq '' ); $RGroup1 = $Name if( $Type eq '-' ); $RGroup2 = $Name if( $Type eq '--' ); return 1 if( $Num eq $Group ); } close( CONF ); return 0; } sub InvalidGroup { print < Ярмарка - газета бесплатных объявлений
ЯРМАРКА
электронная газета бесплатных объявлений

Такой рубрики не существует.
Пожалуйста, сообщите об этом администратору сервера.

EOFIG } sub ShowGroup { $RGroup = "$RGroup0" if( $RGroup0 ); $RGroup .= " -\> $RGroup1" if( $RGroup1 ); $RGroup .= " -\> $RGroup2" if( $RGroup2 ); print < Ярмарка - газета бесплатных объявлений
ЯРМАРКА
электронная газета бесплатных объявлений

$RGroup
[Подать объявление в эту рубрику]
[На первую страницу газеты]

EOFHTML1 print ""; for( $i=0; $i<$Rows; $i++ ) { print ""; } print "\n"; print "\n"; $Row = 0; open( GROUP, $GroupFile ); #open( GROUP, "sort -u $GroupFile |" ); while( ) { ($Date,$Name,$BaseEmail,$BasePhone,$BasePost, $Email,$Phone,$Post,$Text) = split( />/ ); if( $Date ne $PDate ) { # сменилась дата $PDate = $Date; $Date =~ s/^(\d\d)\.(\d\d)\.(\d\d)$/$3\.$2\.$1/; print "\n"; print "\n"; print "\n"; $Row = 0; } if( $Row == $Rows ) { # новая строка print "\n"; print "\n"; $Row = 0; } $Row++; chop( $Text ); $Text =~ s#^##; $Text =~ s#( |$)# #; print "\n"; } close( GROUP ); print <
\ 
$Date
\n"; print "$Text
\n"; print "\n"; print "$Name
\n" if( $Name ); print "Email: $Email
\n" if( $Email ); print "Телефон: $Phone
\n" if( $Phone ); print "Адрес: $Post\n" if( $Post ); print "\n"; print "
EOFHTML2 }