# # Scenes-finder.ru 1122

Поиск по видеофайлам.


::mysql::sel/db server: Table 'mt.tablenames' doesn't exist while executing "::mysql::sel $m "SHOW COLUMNS FROM `$aa`" -flatlist" ("foreach" body line 5) invoked from within "foreach aa tablenames { #взять каждый элемент и показать к..." ("3" arm line 36) invoked from within "switch -exact $objects { 1 {#Ищем баб } 3 {# ищем транспорт # Е..." (in namespace eval "::request" script line 125) invoked from within "namespace eval request { puts -nonewline "" set errlist {} package require mysqltcl #parse el.mytcl if {[::rivet::var exists objects]} { if {[..."

OUTPUT BUFFER:

namespace eval request { puts -nonewline "" set errlist {} package require mysqltcl #parse el.mytcl if {[::rivet::var exists objects]} { if {[::rivet::var list objects]!=""} { set objects [string map {\{ '' \} ''} [::rivet::var get objects]] } } else {set objects ""} puts -nonewline " # # Scenes-finder.ru " puts 1122 puts -nonewline "

Поиск по видеофайлам.

" if { $objects!="{}" && $objects!=""} { #! приделать catch, а то без базы ошибка будет set m [mysqlconnect -user root -password 07831505 -host localhost] ::mysql::use $m mt switch -exact $objects { 1 {#Ищем баб } 3 {# ищем транспорт # Если выбран только обьект, но нет критериев, то показывать только меню критериев. # Select в базу с выдачей баз в названии с "3_*" и по этой базе строить дерево с кнопками для поиска #TODO добавить в веб морду админку с кнопкой "перегенерировать tablenames исходя из названий баз" set tablenames [::mysql::sel $m "select tablenames from `tables` WHERE ID=$objects" -flatlist] # Описания полей пока в описании строк в таблице базы данных, сделать позже перегенерацию в отдельную таблицу. if {[::rivet::var exists misc]} { #проработать и показать уже выбранные опции: foreach aa bb [split ";" [::rivet::var list misc]] { } } else { #проработать и показать опции для возможного выбора на основе tablenames foreach aa tablenames { #взять каждый элемент и показать кнопки в веб морде чтобы пользователь выбрал set columns [::mysql::sel $m "SHOW COLUMNS FROM `$aa`" -flatlist] set column_name [::mysql::sel $m "SELECT COLUMN_NAME,COLUMN_COMMENT FROM information_schema.`COLUMNS` WHERE TABLE_NAME = '$aa'" -flatlist] foreach cc dd $column_name { #cc названия полей для подстановки в misc, dd описание выбора в list у пользователя. #TODO дописать отдачу html пользователю. } } } } } puts "
" ::mysql::close $m } else { set value {} puts "

Люди

Поиск видео по участнику
2

Транспорт или техника

Всякие технологические видео или ремонты, гонки авто и прочее.
2

Бабы

Поиск видео с представительницами прекрасного пола :
1
3
4

Удобный поиск по видео

Избранные видео, разобрано для поиска людьми. Что может быть удобнее ?!

" } puts -nonewline "
" }