$sth = $dbh->prepare('SELECT * FROM st_modules ORDER BY orderby;');

$sth->execute;

print "<P align='right'>Вы вошли под именем $sLogin | ";

print ' <A href="?action=logoff">Выход</A></P>';

while($rhash = $sth->fetchrow_hashref) {

# Печатать будем только те модули, для которых в поле allow есть имя вошедшего пользователя

    if($$rhash{allow} =~ m($sLogin)) {

           print "<DT><A href='$$rhash{link}'> $$rhash{name}</A>";

           print "<DD>$$rhash{description}<BR>";

    }

}

# Все закрываем (в принципе это не обязательно – все и так закроется)

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

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

exit;

#-------------------------------------------- подпрограммы

sub doLogon {  # подпрограмма авторизации

    $status = shift @_;

    if($status eq 'Wrong') {

           $status = Неправильный логин или пароль.';

    } elsif($status eq 'Failed') {

           $status = Ошибка подключения данного пользователя.';

    } else {

           $status = Введите логин и пароль:';

    }

    print $cgi->header();

    print <<__HTML__;

<CENTER><H3>$status</H3><FORM method="POST">

<TABLE border="1"><TR><TD><TABLE>

<INPUT type="hidden" name="action" value="logon">

<TR><TD>Login:<TD><INPUT type="text" name="login" value="">

<TR><TD>Password:

    <TD><INPUT type="password" name="password" value="">