Подскажите, окошко "Обзор" неактивна

[Kurman]

В общем, все работало годами, и на днях без всякой причины перестала загружаться картинка в новости.

Скрипт самописный на perl.

Окошечко "Обзор" чтобы выбрать картинку стала неактивной, и когда выбрав картинку нажму на "сохранить", то пишет "Internal Server Error".

Где копать, подскажите пожалуйста. (разрешенный объем для папки, куда грузятся картинки увеличил в конфиге .pm в разы, но похоже проблема с этим не связана)

 

[[Гилыч]]

просто сразу так ответить имхо сложно...надо сервер рыть да и перл тоже, логи и т д, в первую очерешь посмотри лог сервера апача, почему выдается ошибки сервера?!

 

[Kurman]

Спасибо что откликнулись. Просто незнаю что делать, вроде все работало и никаких работ не проводилось. Проверил на целостность и дату последнего изменения у всех файлов - все они датированы несколькими годами ранее.. (2003-2007) Свежих измененных файлов замечено не было. А проблемы появились буквально на днях.. Статьи сохраняет, текстовой редактор работает как обычно, единственное что отключилось - возможность загрузки картинок к статьям.

В логах ошибок сервера только это:

PHP Warning: Function registration failed - duplicate name - mysql_connect in Unknown on line 0
PHP Warning: Function registration failed - duplicate name - mysql_pconnect in Unknown on line 0
PHP Warning: Function registration failed - duplicate name - mysql_close in Unknown on line 0
PHP Warning: Function registration failed - duplicate name - mysql_select_db in Unknown on line 0
PHP Warning: Function registration failed - duplicate name - mysql_query in Unknown on line 0

В кодах нашел этотк кусок, кажется этот отвечает за сохранение новости и картинок. Новости сохраняются, но без картинок. Если попытаться вставить картинку и так сохраниться, то выдает "Internal server error" .
Может нужна какая-то оптимизация, убрать лишний обработчик? Я не разбираюсь в перл.

elsif ($class =~ /^news$/i)
{
$admin->{admclass} = $class;
$admin->{admid} = $self->{id};
my $obj = $admin->setObjectEditValues ([qw (simage bimage images)]);
warn "ERROR in load setObjectEditValues!!!!!!!!!!!!!!!!!1\n" unless (ref($obj));
    
for my $field (@all_fields)
  {
  my $attribute_class = ref($class_map->{attributes}->{$field});
  next if $class_map->{attributes}->{$field}->{readonly};
  next if $class_map->{attributes}->{$field}->{noaccess};
  next unless ($attribute_class eq "interStore::Attributes::Scalar");
  my $value = clear_str ($self->{$field}) || '';
  my $method = "set_$field";
  $obj->$method($value);
}
    

if (defined $self->{keyword} and $self->{keyword})
{
  my @keywords = split (/\, /,$self->{keyword});
$obj->set_keyword (\@keywords);
}
    

 my $day = $self->{day};
my $month = $self->{month} + 1;
my $year = $self->{year};
my $date = "${year}-${month}-${day} 00:00:00";
$obj->set_date($date);
my $sec    = $tm->sec;
my $min = $tm->min;
  my $hours = $tm->hour;
  my $y = $tm->year + 1900;
  my $m = $tm->mon + 1;
  my $d = $tm->mday;
my $datamod = "${y}-${m}-${d} ${hours}:${min}:${sec}";
$obj->set_datamod($datamod);
    

  if ($self->{archive} eq "1")
  {
  my $mmm    = $self->{archive1_month} + 1;    

  $mmm    = "0".$mmm if $mmm =~/^\d$/;
  my $yyy    = $self->{archive1_year};
  $mmm    .= "_${yyy}";
   $obj->set_archive($mmm);    
  }
  else
  {
  my $data = (defined $self->{archive3} and $self->{archive3}) ? 
clear_str($self->{archive3}) : clear_str($self->{archive2});
  $obj->set_archive($data);
  }

 

[andrnag]

Вообще-то у тебя в лог пишутся ошибки PHP

PHP Warning: Function registration failed - duplicate name - mysql_connect in Unknown on line 0

А, админка написана вроде как на Perl.
Так что, может не в этом куске проблема?