| |
[END]
if (&Check_KCAPTCHA_lite($query->param('kid')) ne 'True'){ # проверка активного ID для изображения
print "Ошибка. Пожалуйста, обновите страницу в браузере.";}
else {
$file = $query->param("entry");
$filehandle = $query->upload("entry");
if ($query->param('shadow') eq 'on') {$shadow = 'True';} else {$shadow = '';}
$errfile=0;
if ($query->uploadInfo($filehandle)->{'Content-Type'} ne 'image/gif') {print "Загружаемый файл имеет неверный формат (необходим GIF) "; $error=1;} if (-s($filehandle) > 32768) {print "Загружаемый файл превышает допустимый размер (32KB) "; $error=1;} if ($error != 1){ $filename="/home/p/pixmark/pixmark.ru/public_html/gfx_frames/users_".$query->param('kid').".gif"; if (-e($filename)){print "Ошибка сохранения фaйла. Пожалуйста, обновите страницу в браузере."} else { open (OUTFILE,">$filename") or $errfile=1; if ($errfile == 1) {print "Ошибка сохранения фaйла. Пожалуйста, обновите страницу в браузере.";} else {binmode OUTFILE; while ($bytesread = read($filehandle, $buffer, 1024)) { print OUTFILE $buffer; } close (OUTFILE); $sth = $dbh->prepare("DELETE FROM kcaptcha WHERE kid=".$query->param('kid')); # удаляем ключ (kid) из базы $sth->execute(); #добавляем изображение в базу: $sql="INSERT INTO gfxdescr (gfxtype,main_section,sub_section,sub_section_txt,sub_section2,sub_section2_txt,object,object_txt,object_txt2,shadow) values ('background','users','".&get_date('wo_day')."','".&get_date('wo_day')."','users','users','users_".$query->param('kid')."','".$query->param('text1')." ','".$query->param('text2')." ','".$shadow." ');"; $sth = $dbh->prepare($sql); $rv = $sth->execute(); if ($rv!=1){writelog("trouble with insert new users_gfx descr!"); print "Ошибка сохранения фaйла. Пожалуйста, обновите страницу в браузере.";} else { print "Пользовательское изображение успешно загружено. ID: users_",$query->param('kid')," Для загрузки очередного файла/создания юзербара обновите страницу в браузере."; } } } } else { print << "[END]"; [END] } } print ""; } sub Check_KCAPTCHA_lite { # проверка активного kid. Параметры: # $_[0] - идентификатор kcaptcha; # Возвращается 'True'/'NoMore' #Готовим запрос $sth = $dbh->prepare("SELECT * FROM kcaptcha WHERE kid=$_[0]"); $sth->execute(); # $ctable = $sth->fetchall_arrayref; if ($sth->rows == 1){return 'True';} # должен вернуть только одну строку! return 'NoMore'; # если пошло наперекосяк } sub get_date { # Формируем и возвращаем текущую (localtime) дату в оычной формате # $_[0] - что возвращать if ($_[0] ne "wo_day" and $_[0] ne ""){ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);} else {($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($runtime);} if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $mon++; if ($mon < 10) { $mon = "0$mon"; } $year=$year+1900; if ($_[0] eq "wo_day") {return "$mon.$year"; } elsif ($_[0] ne ""){return "$hour:$min:$sec, $mday.$mon.$year";} # строка для теста!!!! else {return "$mday.$mon.$year";} } |