Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

    $savedLogin    = $cgi->param('login');

    $savedPassword = $cgi->param('password');

# ищем сессию для заявленного логина

    ($sSessId, $sPassword) = $dbh->selectrow_array('

           SELECT id, password FROM sessions WHERE login=?

                               ', undef, $savedLogin);

# если не нашли – повторный запрос авторизации

    if(!$sSessId) { &doLogon('Failed'); }

# если сессия есть, но пароль не соответствует введенному, повторный запрос авторизации

    if($sPassword ne $savedPassword) { &doLogon('Wrong'); }

 

# Если все нормально – сохраняем идентификатор сессии в cookie

    $cookie = $cgi->cookie(-name => 'sessid', -value => $sSessId);

    print $cgi->header(-cookie => $cookie);

    print 'Авторизация выполнена успешно.';

    print " <A href='adsl.cgi'>Продолжить...</A>";

    exit;

}

 

# action не имеет значения, пытаемся извлечь из cookie идентификатор сессии

$sessId = $cgi->cookie('sessid');

 

# Если безуспешно – уходим на авторизацию

if(!$sessId) { &doLogon('First'); }

 

# Если sessId есть, пытаемся получить пользователя этой сессии

($sLogin) = $dbh->selectrow_array('

    SELECT login FROM sessions WHERE id=?;

           ', undef, $sessId);

 

# Если удачно – открываем сессию, иначе – на авторизацию

if($sLogin) {

    $session = My::Insite->SessOpen($dbh, $sessId);

} else { &doLogon('Fialed'); }

 

# Выбираем из БД и выводим на экран список модулей

print $cgi->header;


Предыдущая страницаОглавлениеСледующая страница
 
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020]
[021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040]
[041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060]
[061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080]
[081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100]
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140]
[141] [142] [143] [144] [145] [146] [147] [148] [149]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2016 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100