home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / modules / access / specialCases.tcl < prev   
Text File  |  2000-11-02  |  2KB  |  62 lines

  1. namespace eval ::apache1.3:: {}
  2.  
  3. proc ::apache1.3::parseAccess {elements parser dirDef xmlConf currentContainer} {
  4.     set xuiObj [apacheparserutils::getOrCreateIfNotExists access \
  5.             $dirDef $xmlConf $currentContainer]
  6.     set name [string tolower [lindex $elements 0]]
  7.     if [regexp env [lindex $elements 2] ] {
  8.     set environment 1
  9.     set variable [lindex [split [lindex $elements 2] =] 1]
  10.     set newElement [ $xuiObj newChild ]
  11.     $xuiObj insertChild $newElement
  12.     $subject selectComponentByName env
  13.     $subject.env setValue $variable
  14.     } else {
  15.     foreach host [lrange $elements 2 end ] {
  16.         set newElement [ $xuiObj newChild ]
  17.         $xuiObj insertChild $newElement
  18.         $newElement.action selectItem $name
  19.         set subject $newElement.subject
  20.         $subject selectComponentByName host
  21.         set hostAlternate $subject.host
  22.         switch $host {
  23.         all {
  24.             $hostAlternate selectComponentByName all
  25.         } default {
  26.             $hostAlternate selectComponentByName ipDom
  27.             $hostAlternate.ipDom setValue $host
  28.         }
  29.         }
  30.     }
  31.     }
  32. }
  33.  
  34. proc ::apache1.3::dumpAccess { xuiObj } {
  35.     set result {}
  36.     foreach child [ $xuiObj getChildren ] {
  37.     append result "[$child.action getSelected] from "
  38.     set subject $child.subject
  39.     switch  [$subject getSelectedComponentName] {
  40.         env {
  41.         append result \
  42.             "env=[[$subject getSelectedComponent] getValue]\n"
  43.         } host {
  44.         switch [[$subject getSelectedComponent] \
  45.             getSelectedComponentName] {
  46.             all {
  47.             append result "all\n"
  48.             } default {
  49.             append result "[[[$subject getSelectedComponent] \
  50.                 getSelectedComponent] getValue]\n"
  51.             }
  52.         }
  53.         } default {
  54.         error " [$subject getSelectedComponentName] "
  55.         }
  56.         
  57.     }
  58.     }
  59.     return $result
  60. }
  61.  
  62.