#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use FileHandle;
use Fcntl ':flock'; # thanks for perlfunc
sub lock {
    flock($_[0],LOCK_EX);
    seek($_[0], 0, 2);
}
sub unlock {
    flock($_[0],LOCK_UN);
}
use vars qw($fh %cfg %style @fucks);
require 'photogal.files/main.cfg';
print CGI->header();
# -------------------------------------------------------------------------- #
# -------------------------------------------------------------------------- #
my $tgs_start = '<tr><td><table width=650><tr><td>'; # # #
my $tgs_end = '</td></tr></table></td></tr>';
my $profil = '<b id=little>';
my $comm = '<div id=comm>';
my $send = '<div id=time>';
my $divide = '<b id=divide> :: </b>';
my $word_length = 20;
# -------------------------------------------------------------------------- #
# -------------------------------------------------------------------------- #
my $what = $cfg{param('show')};
my $fl = (param('img'));
my $img = "$cfg{path}/$what/$fl.jpg";
my $artfile = "$cfg{path}/$what/arts/$fl.txt";
## CHANGES
my ($name, $url, $email, $text, $subm, $error, $v_n, $v_t);
ADD_COMM:{
$name = param('name');
$text = param('text');
$subm = param('submit');
my $mark = param('mark');
$text=~s|(\S[\,\.\:\;\-\'])(\S)|$1 $2|g;
$text=~tr|\r\n|  |;
$text=~s|\#{4,}|\#\#\#|g;
$text=~s|`|'|g;
$email =~s|`|'|g;
$url =~s|`|'|g;
unless($name and $text) {
    $error = '<div id=err>Вы не заполнили необходимые поля !</div>' if $subm;
    $v_n = param('name'); $v_t = param('text');
    last ADD_COMM;
}
if($text =~m`\S{$word_length,}`) {
    $error = "<div id=err>Длина слова должна быть не длинее $word_length</div>";
    $v_n = param('name'); $v_t = param('text');
    last ADD_COMM;
}
if(param('url')) {$url = param('url')} else {$url = 'none'};
if(param('e-mail')) {$email = param('e-mail')} else {$email = 'none'};
foreach (@fucks) {
    $email =~s|$_|***|ig; $text =~s|$_|***|ig;
    $name =~s|$_|***|ig; $url =~s|$_|***|ig;
}
my ($mins, $hours, $day, $month, $year) = (localtime(time))[1..5];
$hours = ($hours+8);
if ($hours > 23) { $hours = ($hours-24), $day = ($day+1)} 
if ($hours < 10) { $hours = "0".$hours}
if ($mins < 10) {$mins = "0".$mins}
if ($month < 10) { $month = "0".($month+1)} else {$month = $month+1}
if ($day < 10) {$day = "0".$day}
my $time = ($hours).':'.$mins.'('.$day.'.'.$month.'.'.($year+1900).')';
$fh = new FileHandle(">>$artfile");
lock($fh);
print $fh "$name`$email`$url`$text`$time`$mark\n";
unlock($fh);
my $mymail = 'admin@halmer-u.info';
my $tomail = 'ua9xlc@mail.ru';
open (MAIL, "| /usr/sbin/sendmail -t");
print MAIL "From: $mymail\n";
print MAIL "To: $tomail\n";
print MAIL "Subject: Новая запись в галерее\n\n";
print MAIL "$name\n $email\n $url\n $text\n $time\n $mark\n $what\n $fl\n";
close (MAIL);


undef $fh;
ADD_COMM:}
## OP..OPEN
my $ind = 1; my $arts = '<br><table id=solid align=center width=650>';
$fh = new FileHandle($artfile);
my @comms = <$fh>;
foreach(reverse @comms) {
    my @nate = split('`', $_);
    my $mark_kn = mark_kn($nate[5]);
    $arts .="$tgs_start$profil<b>Имя:</b> $nate[0]\n";
    $arts .="$divide<b>E-mail: </b><a href=\'mailto:$nate[1]\' id=little>$nate[1]</a>\n" if $nate[1] !~m`^\s*none\s*$`;
    $arts .="$divide<b>URL: </b><a href='$nate[2]' id=little>$nate[2]</a>$divide\n" if $nate[2] !~m`^\s*none\s*$`;
    $arts .= "</b></td><td align=right>$mark_kn</td><tr><td colspan=2>";
    $arts .="$comm<b>Отзыв:</b> $nate[3]</div></td></tr>\n";
    $arts .="<tr><td colspan=2>$sendОтправленно: $nate[4]</div>\n" if $nate[4] =~/\S/;
    $arts .= "$tgs_end<tr><td><hr width=200 align=center></td></tr>";
}
undef $fh;
my $img_name;
$fh = new FileHandle("photogal.files/$what/list.data");
while(<$fh>) { $img_name = $1 if $_ =~m`^$fl\s*-\s*(.*)`}
undef $fh;
$arts .= qq`
<tr><td>$error<table border=0 align=center><tr><td colspan=2>\n<form method='post'><center><em>Оставьте свой отзыв !</center>\nИмя:<input name=\'name\' size=10 id=solid value=\'$v_n\'> ::\n
E-mail:<input name=\'e-mail\' size=16 id=solid> ::\n URL:
<input name=\'url\' id=solid></em></td></tr>\n
<tr align=center><td align=right valign=top><em>Отзыв:</em>\n<textarea name=\'text\' id=solid cols=36 rows=3>$v_t</textarea></td>\n
<td align=left>\n
<select name='mark' id=solid>
<option value=0 selected>Оцени фото !
<option value=5>Класс !!
<option value=4>Хорошо
<option value=3>Нормально
<option value=2>Плохо
<option value=1>Ужасно !!
</select>
<br><input type=submit value='Отправить' name='Отправить' id=solid>\n<input type='hidden' name='img' value=\'`.param('img').qq`\'><input type='hidden' name='show' value=\'`.param('show').qq`\'></td></tr></table>`;
$arts .= '</table></form>';
print qq`<html><head><title>$style{title2}</title>\n
<style>\n$style{new_comm}\n$style{border}\n$style{err}\n$style{text_comm}\n$style{little}
$style{name}\n$style{time}\n$style{divide}\n$style{otv}\n#author{font: 9pt; color: navy;}
</style></head>\n<body bgcolor=$style{bg_color}>\n
<center><img src=\'$img\' title=\'$img_name\' border=0></center>\n<div id=name>$img_name</div>
$arts\n<strong id=author><center>Programming by <a href=\'mailto:mr_bik\@mail.ru\' id=author>
mr bik</a> (c) 2001</center></strong>\n</body></html>`;
## functions
sub mark_kn {
    my $mval;
    $mval = '' if $_[0] == 0;
    $mval = "<i id=otv>фото: <b>Класс !!</b></i>" if $_[0] == 5;
    $mval = "<i id=otv>фото: <b>Хорошо</b></i>" if $_[0] == 4;
    $mval = "<i id=otv>фото: <b>Нормально</b></i>" if $_[0] == 3;
    $mval = "<i id=otv>фото: <b>Плохо</b></i>" if $_[0] == 2;
    $mval = "<i id=otv>фото: <b>Ужасно !!</b></i>" if $_[0] == 1;
    my $dlina = 100 - (length($mval)/2);
    return ($mval);
}