\n \n \n Телефоны\n \n" return $txtHeader } proc footer {} { set txtFooter "\n" return $txtFooter } proc body {} { set txtBody "\n

ТЕЛЕФОНЫ

[menu]
\n" return $txtBody } proc menu {} { set txtMenu "
" return $txtMenu } proc connectDB {} { return [mysql::connect -host localhost -user root -db ats -encoding binary] } # Список внутренних номеров из СУБД proc getInternalNumbers {} { set conn [connectDB] set order "int_number" set result "

Список внутренних телефонов

" set qr "SELECT * FROM int_number ORDER by $order" set query [mysql::query $conn $qr] set listHeader "\n \n \n \n" set result "$result $listHeader" set rowData "" while {[set row [mysql::fetch $query]]!=""} { set rowData "\n" } mysql::endquery $query #set result "$result [encoding convertto utf-8 $rowData]" set result "$result $rowData" return "$result
№ п/пТелефонФИООписаниеЭл.почта
[lindex $row 0] [lindex $row 1] [lindex $row 2] [lindex $row 4] [lindex $row 3]
\n" } # Список пользователей (ФИО, телефон, почта, отдел) из LDAP (AD) proc getLDAPusers {} { } proc getCOline {} { } proc ReportForm {} { } proc ReportData {environ} { } #puts [header] #puts [body] #puts [footer] puts [main] ?>