Модуль обработки информации об абоненте

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

Код модуля следующий:

#!/usr/bin/perl –w

#------------------------------------ adsl-users.cgi

use My::Insite;

$dbh = My::Insite->DBConnect('adsl', 'adsluser', 'password');

$cgi = My::Insite->CGIStart();

$action = $cgi->param('action');

# Пытаемся считать из cookie идентификатор сессии, если безуспешно – отправляем на авторизацию

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

if(!$sessId) {

    &toLogon;

}

# Открываем сессию, или на авторизацию в случае ошибки

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

    SELECT login FROM sessions WHERE id=?;

                        ', undef, $sessId);

if($sLogin) {

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

} else {

    &toLogon;

}

# Проверяем, можно ли данному пользователю работать с этим модулем

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

        SELECT allow FROM st_modules WHERE link=?;',

            undef, 'adsl-users.cgi');

if($allow !~ m($sLogin)) {

    &toLogon;

}

print $cgi->header;

# Разбираем возможные действия

if   ($action eq ''          ) { &showUsers;  }