netmagis-2.3.4/common/libnetmagis.tcl

587 			    {del always}
601 	del		{del Delete}
688 	statuser	{statuser {Statistics by user}}
689 	statorg		{statorg {Statistics by organization}}
800 	    return [mc {Database schema '%1$s' is not yet recognized by Netmagis %2$s} $sver $version]
890 	    id {
2289     method groupname {id} {
2344     method viewname {id} {
2373     method isallowedview {id} {
2377 	return [info exists authviews($id)]
2413     method domainname {id} {
2442     method isalloweddom {id} {
2446 	return [info exists authdom($id)]
3407 	if {$tab(mailrole)} then {
4336 	set trr(mailrole) ""
4342 	    lappend trr(mailrole) [list $idview $tab(mboxhost) $tab(idviewmbox)]
4378 	    lassign $ipview id ip
4379 	    if {$id == $idview} then {
4393 	    lassign $cv id cname
4394 	    if {$id == $idview} then {
4409 	    lassign $alview id idalias
4410 	    if {$id == $idview} then {
4424 	    lassign $mxview id prio idrr
4425 	    if {$id == $idview} then {
4439 	    lassign $mxview id idrr
4440 	    if {$id == $idview} then {
4452     if {[info exists trr(mailrole)]} then {
4453 	foreach rmview $trr(mailrole) {
4454 	    lassign $rmview id idmboxhost idviewmboxhost
4455 	    if {$id == $idview} then {
4469 	    lassign $amview id idrraddr idviewaddr
4470 	    if {$id == $idview} then {
4705 	foreach x {ip mx aliases cname mailrole mailaddr} {
5766 	foreach id $views {
5767 	    if {! [u isallowedview $id]} then {
5768 		set name [u viewname $id]
5770 		    set name $id
5854     if {$mode in {host host-or-alias mailrole}} then {
5942 	    mailrole {
6378 		    {domain	mailrole}
6386 		    {domain	mailrole}
6444 …return [mc {You don't have rights on some IP addresses of '%1$s' referenced by alias '%2$s'} $fqdn…
6465 …return [mc {You don't have rights on some IP addresses of '%1$s' referenced by MX '%2$s'} $fqdnmx …
6488 …return [mc {%1$s in view %2$s is a mail address hosted by %3$s in view %4$s} $fqdn $viewname $fqdn…
7611 	lassign $s id type defval
7612 	set tabdef($id) $defval
7717 	lassign $s id type defval
7719 	set value $tab($id)
7852     foreach id $lid {
7853 	if {[info exists ftab(${key}${id})]} {
7854 	    _fill-tabval $cspec "" $id ftab tabval
7861 		set ok [_store-tabular-del $dbfd msg $id $idnum $table $check]
7868 		    if {[info exists oldkeys($id)]} then {
7869 			set okey $oldkeys($id)
7878 		set ok [_store-tabular-mod $dbfd msg $id $idnum $table tabval $check]
7999 proc _store-tabular-mod {dbfd _msg id idnum table _tabval check} {
8008     pg_select $dbfd "SELECT * FROM $table WHERE $idnum = $id" tab {
8018 	set ok [$check "nop" $dbfd msg $id $idnum $table tabval]
8024 	set ok [$check "mod" $dbfd msg $id $idnum $table tabval]
8035 	    set sql "UPDATE $table SET [join $l ,] WHERE $idnum = $id"
8065 proc _store-tabular-del {dbfd _msg id idnum table check} {
8068     set ok [$check "del" $dbfd msg $id $idnum $table {}]
8070 	set sql "DELETE FROM $table WHERE $idnum = $id"
10032 	set comp [mc "Password has been sent by mail"]
10531     set lid [split $id "+|"]
10562 	return [mc "Sensor '%s' not found" $id]
10936 		    set tabvlan($id) [list $desc $voip]
11702 	    del {