elsif($action eq 'user'      ) { &userForm;   }

elsif($action eq 'changeuser') { &changeUser; }

else { print 'Не могу выполнить: '.$action; }

My::Insite->SessClose($session);

My::Insite->DBDisconnect($dbh);

exit;

#------------------------------------- subroutines

sub showUsers {  # подпрограмма вывода списка абонентов

    $sth = $dbh->prepare('SELECT uid, name, address, phone

                          FROM users ORDER BY name;');

    $sth->execute;

    print '<TABLE><TR><TD><H3>Абоненты</H3>';

    print '<TD align="right"><A href="adsl.cgi">Главная</A>';

    print '<TR><TD colspan="2">';

    print '<TABLE><TR><TD align="right">';

    print '[ <A href="?action=user&type=add">

                 Добавить нового абонента</A> ]';

    print '<TR><TD><TABLE border=1><TR bgcolor=#AAAAFF>

                               <TH>Абонент

                               <TH>Адрес

                               <TH>Телефон

                               <TH>Действие;

    while(@res = $sth->fetchrow_array) {

       $oper = ($res[6] eq 'I'?'inlager':'outlager');

       print "<TR><TD>$res[1]<TD>$res[2]<TD>$res[3]<TD>

           [ <A href='?action=user&type=update&uid=$res[0] '>Изменить</A> ] ::

           [ <A href='?action=user&type=delete&uid=$res[0] '>Удалить</A> ]";

    }

    print '</TABLE><TR><TD align="right">';

    print '[ <A href="?action=user&type=add">Добавить нового абонента</A> ]';