Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Web программирование > JavaScript, Ajax
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2013, 13:06   #1
Jopses
Пользователь
 
Регистрация: 03.02.2012
Сообщений: 39
По умолчанию 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
Jopses вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ответ от сервера ursa1992 Работа с сетью в Delphi 33 10.01.2012 04:00
Расшифровать ответ сервера Shouldercannon Общие вопросы Delphi 19 10.03.2011 09:33
Http ответ сервера lennon Свободное общение 4 03.08.2009 02:34
Ответ от сервера. mustang007 Работа с сетью в Delphi 3 23.05.2009 10:33
AJAX - не подгружается ответ max38934 JavaScript, Ajax 17 19.05.2009 22:34