home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / modules / browser / specialCases.tcl < prev   
Encoding:
Text File  |  2000-11-02  |  1.3 KB  |  40 lines
  1. namespace eval ::apache1.3:: {}
  2.  
  3. proc ::apache1.3::parseBrowserMatch {text parser dirDef xmlConf currentContainer} {
  4.     set elements [::apacheparserutils::getElements $text]
  5.     switch [set directive [string tolower [lindex $elements 0]]] {
  6.        browsermatch {
  7.           set case case
  8.        } browsermatchnocase {
  9.           set case nocase
  10.        }
  11.     }
  12.     set xuiObj [apacheparserutils::getOrCreateIfNotExists browserMatch \
  13.             $dirDef $xmlConf $currentContainer]
  14.     set child [$xuiObj newChild]
  15.     $xuiObj insertChild $child
  16.     #puts "Elements $elements"
  17.     #puts "1: [lindex $elements 1]"
  18.     [$child getComponentByName case] selectItem $case
  19.     [$child getComponentByName string] setValue [lindex $elements 1]
  20.     [$child getComponentByName variable] setValue [lindex $elements 2]
  21. }
  22.  
  23. proc ::apache1.3::dumpBrowserMatch { xuiObj } {
  24.     set result {}
  25.     foreach child [$xuiObj getChildren] {
  26.     switch [[$child getComponentByName case] getSelected] {
  27.         case { 
  28.         append result {BrowserMatch }
  29.     } nocase {
  30.         append result {BrowserMatchCase }
  31.     }
  32.     }
  33.     append result "[[$child getComponentByName string] getValue] "
  34.     append result "[[$child getComponentByName variable] getValue]\n"
  35.     }
  36.     return $result
  37. }
  38.  
  39.  
  40.