cnc-club.ru

Код: Выделить всё

#!/usr/bin/tclsh

package require cgi

append auto_path " ."

cgi_input
foreach zz [cgi_import_list] {
    cgi_import $zz
}

start
set tit $::login(name)@$::login(domain)
if {[checkFlags status $::login(status) admin]} {
    append tit " - postmaster"
} elseif {[checkFlags status $::login(status) domain]} {
    append tit " - postmaster of $::login(domain)"
} else {
    PermDenied
    exit 0
}

if {![info exists domain]} {
    if {[checkFlags status $::login(status) admin]} {
	dview $tit
	exit 0
    } else {
	set domain $::login(domain)
    }
}

set row [lindex [SQL "select act, alias from domains where domain<>'' and domain='$domain' and alias = ''"] 0]
if {$row == ""} {
    cgi_head {
	cgi_title Error
    }
    cgi_body {
	cgi_h2 "Домен $domain здесь не обслуживается."
    }
    exit 0
}
set active [lindex $row 0]
set aliases [lindex $row 1]

cgi_head {
    cgi_meta HTTP-EQUIV="Content-Type" "CONTENT=\"text/html; charset=UTF-8\""
    cgi_meta HTTP-EQUIV="Pragma" {content=no-cache}
    cgi_title $tit
}
cgi_body {
    cgi_form domain_save method=post {
	if {[info exists goto]} {
	    cgi_text f_goto=$Is(goto) type=hidden
	}
	cgi_text f_domain=$domain type=hidden
	cgi_table border=0 {
	    cgi_table_row {
		td align=right "Домен: "
		td $domain
	    }
	    cgi_table_row {
		td align=right "Отключить домен: "
		table_data {
		    cgi_checkbox f_del1=$active checked_if_equal=0
		    cgi_checkbox f_del2=$active checked_if_equal=0
		    cgi_checkbox f_del3=$active checked_if_equal=0
		}
	    }
	    cgi_table_row {
		td align=right "Переадресация: "
		table_data {
		    cgi_table border=0 {
			cgi_table_row {
			    td Name
			    td Target
			    td On
			}
			set q "select name, target, act from aliases where domain='$domain' order by name"
			set str 0
			foreach row [SQL $q] {
			    cgi_table_row {
				table_data {
				    cgi_text f_fwdname$str=[lindex $row 0] maxlength=50 size=20
				}
				table_data {
				    cgi_text f_fwdtarget$str=[lindex $row 1] size=70
				}
				table_data {
				    cgi_checkbox f_fwdact$str=[lindex $row 2] checked_if_equal=1
				}
			    }
			    incr str
			}
			cgi_table_row {
			    table_data {
				cgi_text f_fwdname$str= maxlength=50 size=20
			    }
			    table_data {
				cgi_text f_fwdtarget$str= size=70
			    }
			    table_data {
				cgi_checkbox f_fwdact$str= checked_if_equal=1
			    }
			}
		    }
		    cgi_text f_fwdmax=$str type=hidden
		}
	    }
	    cgi_table_row {
		table_data align=right {
		    cgi_submit_button =Сохранить
		}
		table_data {
		    cgi_reset_button Очистить
		}
	    }
	}
    }
}
exit 0