Javascript.RU

Создать новую тему Ответ
 
Опции темы Искать в теме
  #1 (permalink)  
Старый 28.02.2013, 13:01
Интересующийся
Отправить личное сообщение для Jopses Посмотреть профиль Найти все сообщения от Jopses
 
Регистрация: 05.02.2013
Сообщений: 20

AJAX, PERL, запись в файл и неожиданный ответ от сервера
Здравствуйте уважаемые!
Ситуация такова. Есть кнопка (выполняет функцию обновления файла конфигурации списка устройств).
Значит, жмём, вылетает окно (плагин jConfirm). Далее OK, функция reload_fls() запускается и AJAX`ом шлёт запрос (пустой. В FireBag только reloadconfig – адрес к выполняемому действию в серверном скрипте), серверный скрипт «включается», делает все свои действия (обращается к путям устройств, к БД, раскидывает нужные данные, переписывает файл).
И если всё хорошо или не хорошо, отправляет строку по форме JSON. Конец
Вот так должно быть, но, увы и ах, не работает!
А выдаёт следующее. После подтверждения OK (по кнопке), отправляет данные и сразу же в ответ получает ошибку «500».
Сразу развею сомнения по поводу сервера. С ним всё нормально, полный доступ и подобного не наблюдалось на всей разработке программы.
Ошибка в одном из этих двух действий или где-то между ними.
Если кто знает, помогите решить головоломку. Откладывал не одну неделю решение, вот так сказать и прижало сейчас.
Заранее благодарю всех, кто откликнется!


Сама функция JQuery

function reload_fls(){
    jConfirm('Вы действительно хотите <b><font color="red">ОБНОВИТЬ КОНФИГ FLUSSONIC?</b></font><br /> Часть потоков может прерваться!', 'Подтверждение', function(r) {
        if(r){
            var cam_url = cam_control+"/cgi-bin/admin.pl?m=reloadconfig";
            $.ajax({
                type: 'GET',
                dataType: 'json',
                cache: false,
                url: cam_url,
                success: function(data){
                    if(data.error != undefined ) {
                        if(undefined != err_lang[data.error]) {
                            alert('Ошибка: '+err_lang[data.error]);
                        }else{
                            alert('Возникла неизвестная ошибка, попробуйте позже. ('+data.error+')');
                        }
                    } else {
                        jAlert('Конфиг успешно обновлён.','Информация');
                    }
                },
                error:function (xhr, ajaxOptions, thrownError, request, error){
                    alert('Возникла неизвестная ошибка, попробуйте позже. \n [ \n'+'xrs.status = ' + xhr.status + '\n' + 'thrown error = ' + thrownError + '\n' + 'xhr.statusText = '  + xhr.statusText + '\n' +
                        'request = ' + request + '\n' + 'error = ' + error+' \n ]');
                }
            });
        }
    });
}


Действие из серверного скрипта

Код:
when ("reloadconfig")  {

    my $url  = $cfg->val( "Erly", "url");
    my $user = $cfg->val( "Erly", "user");
    my $pass = $cfg->val( "Erly", "pass");
    my $file = $cfg->val( "Erly", "file");
    my $host = $cfg->val( "Erly", "host");

    #open(SLOCK,  '<', $file.'.lock') or die $!; "{\"error\": \"Can't create LOCK.\"}";

    open(STREAMS,  '>', $file)     or die "{\"error\": \"$!\"}"; #"{\"error\": \"Can't open Streams conf.\"}";
    flock(STREAMS, LOCK_EX|LOCK_NB) or die "{\"error\": \"$!\"}"; #"{\"error\": \"Can't LOCK Streams conf.\"}";

    my $config_str = '';
    
    my $sth;
    $sth = $dbh->prepare(q{
        SELECT cam_id, cam_alias
        FROM cams_list
        WHERE cam_enabled = 1
        ORDER BY cam_priority ASC
    });
    $sth->execute;

    my (@row);

    while( @row = $sth->fetchrow_array() ) {
        my($id,$talias) = @row;
        if(($talias eq '') || ($talias eq undef)) { $talias = "cam$id"; }
        $config_str = $config_str . "{stream, \"$talias\", \"$host$talias\"}.\n";
    }

    print STREAMS $config_str;

    my $curl = WWW::Curl::Easy->new;

    #$curl->setopt(CURLOPT_HEADER,1);
    $curl->setopt(CURLOPT_URL, $url);
    $curl->setopt(CURLOPT_USERPWD, $user.':'.$pass);

    # A filehandle, reference to a scalar or reference to a typeglob can be used here.
    my $response_body;
    $curl->setopt(CURLOPT_WRITEDATA,\$response_body);

    # Starts the actual request
    my $retcode = $curl->perform;

    # Looking at the results...
    if ($retcode == 0) {
        #print("\nTransfer went ok\n");
        #my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
        # judge result and next action based on $response_code
        # print "\n".$response_body;
        if((trim($response_body) eq 'true') || (trim($response_body) eq 'ok')) {
            print "{\"result\": \"Ok\"}";
        } else {
            print "{\"error\": \"Can't reload FLUSSONIC config.\"}";
        }
    } else {
        # Error code, type of error, error message
        print "{\"error\": \"Can't reload FLUSSONIC config. Is it running?\"}";
    }

    flock(STREAMS, LOCK_UN) or die "{\"error\": \"Can't UNLOCK FLUSSONIC conf.\"}";
    }


INI файл для серверного скрипта

Код:
[General]


[Erly]
file=/vlc/streams.conf
host=tshttp://127.0.0.1:6008/
url=http://10.240.230.22:8085/erlyvideo/api/reload
user=admin
pass=pass0

[DB]
dbhost=109.126.0.94
dbport=...
dbuser=...
dbpass=...
dbname=cams
Ответить с цитированием
  #2 (permalink)  
Старый 28.02.2013, 13:25
Аватар для danik.js
Профессор
Отправить личное сообщение для danik.js Посмотреть профиль Найти все сообщения от danik.js
 
Регистрация: 11.09.2010
Сообщений: 8,804

А если просто открыть в новой вкладке ссылку /камконфиг/cgi-bin/admin.pl?m=reloadconfig
Ответить с цитированием
  #3 (permalink)  
Старый 28.02.2013, 13:43
Интересующийся
Отправить личное сообщение для Jopses Посмотреть профиль Найти все сообщения от Jopses
 
Регистрация: 05.02.2013
Сообщений: 20

Как вариант для пробы попробовать можно. Сам не думал об этом. А что в результате? Запуск или не запуск куска кода? Я просто думаю, может нужно AJAX`ом что то ещё отправить для толчка скрипту. Хотя тоже бред)
Ответить с цитированием
  #4 (permalink)  
Старый 28.02.2013, 16:06
Аватар для danik.js
Профессор
Отправить личное сообщение для danik.js Посмотреть профиль Найти все сообщения от danik.js
 
Регистрация: 11.09.2010
Сообщений: 8,804

Я имею ввиду проверить корректно ли работает скрипт. Думаю будет таже ошибка 500, так что AJAX тут не причем.
Ответить с цитированием
Ответ



Опции темы Искать в теме
Искать в теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AJAX + PHP загрузка файлов с сервера Stanisov AJAX и COMET 10 16.08.2013 11:18
Ответ от сервера о окончании задачи Vit AJAX и COMET 13 17.06.2012 21:31
ответ сервера не сохраняется в глобальную переменную cyberpunk AJAX и COMET 2 06.03.2012 11:57
Как в ajax запросе передать файл методом POST mcpro jQuery 1 16.12.2009 11:41
Ответ сервера в плугине ajaxForm отдается неправильно. IgorOk jQuery 11 13.12.2009 04:35