diff --git a/www.tcl/index.rvt b/www.tcl/index.rvt new file mode 100644 index 0000000..4b54ec9 --- /dev/null +++ b/www.tcl/index.rvt @@ -0,0 +1,106 @@ +\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] +?> + diff --git a/www.tcl/vars.rvt b/www.tcl/vars.rvt new file mode 100644 index 0000000..f3ed54d --- /dev/null +++ b/www.tcl/vars.rvt @@ -0,0 +1,67 @@ + $err " + } +} else { + puts "Thanks for the information!" + ?> + + + + + + + + + + + + + + + + + + + +
Title:
Boss:
Salary:
Skills:
+