home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / modules / so / specialCases.tcl < prev   
Encoding:
Text File  |  2000-11-02  |  877 b   |  25 lines
  1. namespace eval ::apache1.3:: {}
  2.  
  3. proc ::apache1.3::parseLoadModule {text parser dirDef xmlConf currentContainer} {
  4.     set elements [::apacheparserutils::getElements $text]
  5.     set xuiObj [apacheparserutils::getOrCreateIfNotExists loadModule \
  6.             $dirDef $xmlConf $currentContainer]
  7.     set child [$xuiObj newChild]
  8.     $xuiObj insertChild $child
  9.     [$child getComponentByName name ] setValue [lindex $elements 1]
  10.     [$child getComponentByName filename ] setValue [lindex $elements 2]
  11. }
  12.  
  13. proc ::apache1.3::dumpLoadModule { xuiObj } {
  14.     if ![llength [ $xuiObj getChildren ]] {return}
  15.     set result {}
  16.     foreach child [ $xuiObj getChildren ] {
  17.         append result "LoadModule "
  18.     append result "[[$child getComponentByName name] getValue] "
  19.     append result "[[$child getComponentByName filename] getValue]\n "
  20.     }
  21.     return $result
  22. }
  23.  
  24.  
  25.