invalid command name "hgetvars"
    while executing
"hgetvars"
    (in namespace eval "::request" script line 6)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
puts -nonewline "

	
"

	hgetvars
	proc insert {login pass _pass} {
		foreach f {login pass _pass} {
			set $f [string trim [set $f]]
			if {[set $f] == ""} {
				return -code error "Login и пароль не \
					могут быть пустыми"
			}
		}
		if {$pass != $_pass} {
			return -code error "Пароль должен быть введён оба
				раза одинаково"
		}
		if {[catch {package require Pgtcl; pg_connect \
				-conninfo "dbname='ba' user=ba"} C]} {
			return -code error "Не могу подключится к базе \
				данных:
$C
 Попробуйте попозже..."
		}
		set stmt "insert into person (login, pass) VALUES \
			('$login', '$pass');"
		if {[catch {pg_exec $C $stmt} res]} {
			catch {pg_disconnect $C}
			return -code error \
				"Error executing\n$stmt\n$res"
		}
		set status [pg_result $res -status]
		if {[string match *ERROR* $status]} {
			set res [pg_result $res -error]
			catch {pg_disconnect $C}
			return -code error \
				"Error executing\n$stmt\n$res"
		}
		catch {pg_disconnect $C}
		return "$login: всё в порядке"
        }


puts -nonewline "



Регистрация нового члена клуба
"

	if {[info exists VARS(login)] && \
		![catch {insert $VARS(login) $VARS(pass) $VARS(_pass)} r]} {
		puts "
Порядок, теперь, пожалуйста,\
			сюда. Вам надо будет ввести Ваши новый login и пароль.\n"
		return
	}
	if {[info exists r]} {
		if {[string match "*duplicate key*" $r]} {
			set r "Login $VARS(login) уже зарегистрирован.\
			Пожалуйста, выберите какой-нибудь ещё."
		}
		puts $r\n
	}
	puts "
\n\
		Login: 
\n \
		Пароль: 
\n \
		Повторите пароль: 
\n \
		 \
		
"

puts -nonewline "


"