#!/usr/bin/perl umask 0000; my $MaxTxt = 3000; my $edBook = 0; my $name = 'push'; $WorkArea = 'cgi-bin/'; ($cgi_bin, $cgi_script) = ($0 =~ m:(.*)[/\\](.*):); $cont_len = $ENV{CONTENT_LENGTH}; if ($cont_len > 0) {sysread(STDIN, $query, $cont_len);} @pairs = split (/&/, $ENV{QUERY_STRING}); foreach $t (@pairs) { ($name1, $value) = split (/=/, $t, 2); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; $value =~ s/\t/ /g; $action = $value if $name1 eq 'act'; $number = $value if $name1 eq 'n'; $arg = $value if $name1 eq 'fil'; } $WorkArea = $WorkArea . $name; $cfg = $name.'.cfg'; unless(defined($number)){$number=1;} unless(defined($action)){$action='show';} &ReadCFG; if ($action eq 'show') {&ShowBook;} if ($action eq 'show2') {&ShowBook2;} if ($action eq 'add') {$add0=1; &AddBook;} if ($action eq 'add0') {$add0=0; &AddBook;} if ($action eq 'edd') {&ShowBook3;} exit(0); sub decode { local ($value) = @_; $value =~ s/\+/ /g; $value =~ s/%([0-9A-H]{2})/pack("C",hex($1))/eg; return $value;} sub KBN { print <

--> EOF } sub PrintHead { local $i = $_[0]; print "Content-type: text/html; charset=koi8-r\n\n"; print < Красноярский драматический театр им. А. С. Пушкина

  ГЛАВНАЯ | РЕПЕРТУАР | СПЕКТАКЛИ АРТИСТЫ | РУКОВОДСТВО
ИСТОРИЯ | СТАТЬИ | СЦЕНЫ
E-MAIL | КУРИЛКА

 КУРИЛКА

Что делают в курилке? Конечно, общаются! Тема разговоров - наш театр. Общайтесь на здоровье.

EOF &LittleBan; print ''; } sub PrintFoot{ &KBN; print <
Rambler's Top100

Наверх

  
 

Касса театра работает с 10 до 19 ч с перерывом на обед с 14 до 15 ч
Касса театра в ТЦ "Красноярье" работает с 10 до 17 ч, выходной - вс
Начало спектаклей в 19 ч, в выходные дни - в 18 ч, для детей - в 11 ч
Справки по телефонам: 27-35-01, 27-87-42
Адрес театра: пр. Мира, 73
Адрес сайта: http://drama.krasnoyarsk.ru

Главный режиссер - Александр Бельский
Главный художник - засл. деятель искусств России, лауреат Гос. премии России
Александр Баженов
Руководитель театра - Игорь Бейлин

Информационная поддержка - сеть Краснет Rambler
 
EOF } sub LittleBan{ srand; local ($k,$i,$NO)=(0,0,'http://drama.krasnoyarsk.ru/'); open FF, '../isp/bann.cfg'; @aFF=grep(!/^$NO\t/,); close FF; $jj=@aFF; for($k=0;$k<5;++$k){ $i=int(rand $jj); $s=$aFF[$i]; splice(@aFF,$i,1); --$jj; ($i,$j,$it)=split(/\t/,$s); $s="\n"; $s.="\"$it\""; print "
$s
"; } } sub TimePrint { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(@_[0]); $mon++; $year+=1900; if ($mday<10) {$mday='0'.$mday;} if ($mon<10) {$mon='0'.$mon;} if ($hour<10) {$hour='0'.$hour;} if ($min<10) {$min='0'.$min;} $timeStr = "$mday/$mon/$year, $hour:$min"; print "$mday/$mon/$year, $hour:$min"; } sub AddBook { $iT = 'Добавление высказывания'; $iT = 'Добавление темы' if($add0==1); &PrintHead($iT); ##print "
Форум $nickBook"; print '
'; if($add0==0) { open(F,"$WorkArea\/$arg"); ($topic)=split(/\t/,); close F; print "
Тема: $topic"; } else {$arg="zzz";} print "
$iT
"; print "
"; print "
\n"; print ""; if ($add0==1){ print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "
Тема:
Ваше имя:
E-mail:
Home Page:
Город:
Ваш текст:
(не более $MaxTxt символов)