print '</TABLE></TABLE>';

    return;

}

sub userForm {  # выводит форму для манипуляций с данными

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

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

    if($type eq 'add') { $submitName = 'Добавить'; }

    elsif($type eq 'delete') { $submitName = 'Удалить'; }

    elsif($type eq 'update') { $submitName = 'Изменить'; }

    else {

           print 'Ошибка операции: '.$type;

           exit;

    }

    $header = $submitName.' абонента:';

    if($type ne 'add') {

        ($name, $address, $phone) = $dbh->selectrow_array('

        SELECT name, address, phone FROM users WHERE uid = ?;

           ', undef, $uid);

    } else {

       $name = $address = $phone = '';

    }

    if($type eq 'delete') {

       $in1 = "<B>$name</B>";

       $in2 = "<B>$address</B>";

       $in3 = "<B>$phone</B>";

    } else {

        $in1 = "<INPUT type='text' name='name' value='$name' size='35'>";

      $in2 = "<INPUT type='text' name='address' value='$address' size='35'>";

      $in3 = "<INPUT type='text' name='phone' value='$phone' size='7'>";

    }

    print <<__HTML__;

<CENTER><H3>$header</H3>

<FORM method="GET">

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