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

Тема в разделе "Другие языки", создана пользователем Kurman, 8 июн 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. Kurman

    Kurman

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

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

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

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

    Вложения:

    • 1.jpg
      1.jpg
      Размер файла:
      7,5 КБ
      Просмотров:
      8
  2. [Гилыч]

    [Гилыч] Постоялец

    Регистр.:
    5 авг 2008
    Сообщения:
    57
    Симпатии:
    17
    просто сразу так ответить имхо сложно...надо сервер рыть да и перл тоже, логи и т д, в первую очерешь посмотри лог сервера апача, почему выдается ошибки сервера?!
     
  3. Kurman

    Kurman

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

    В логах ошибок сервера только это:
    В кодах нашел этотк кусок, кажется этот отвечает за сохранение новости и картинок. Новости сохраняются, но без картинок. Если попытаться вставить картинку и так сохраниться, то выдает "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);
      }
     
  4. andrnag

    andrnag

    Регистр.:
    26 мар 2008
    Сообщения:
    350
    Симпатии:
    125
    Вообще-то у тебя в лог пишутся ошибки PHP
    А, админка написана вроде как на Perl.
    Так что, может не в этом куске проблема?
     
Статус темы:
Закрыта.