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

<INPUT type="hidden" name="type" value="$type">

<INPUT type="hidden" name="uid" value="$uid">

<TR><TD>Абонент: <TD>$in1

<TR><TD>Адрес:   <TD>$in2

<TR><TD>Телефон: <TD>$in3

<TR><TD colspan="2"><HR>

<TR><TD>[ <A href="adsl-users.cgi?action=">Отмена</A> ]

    <TD align="right"><INPUT type="submit" value="$submitName">

</TABLE></TABLE></FORM></CENTER>

__HTML__

    exit;

}

sub changeUser {  # запись изменений в БД

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

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

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

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

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

    if($type eq 'add') {

        $res = $dbh->do('

        INSERT INTO users(name, address, phone)

                 VALUES(?, ?, ?);',

        undef, $name, $address, $phone);

    } elsif($type eq 'delete') {

        $res = $dbh->do('DELETE FROM users WHERE uid=?;', undef, $uid);

    } elsif($type eq 'update') {

        $res = $dbh->do('

        UPDATE users SET name=?, address=?, phone=? WHERE uid=?;

           ', undef, $name, $address, $phone, $uid);

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

    if($res) { print 'Операция выполнена успешно. '};

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

    exit;