home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / modules / autoindex / specialCases.tcl < prev   
Text File  |  2000-11-02  |  3KB  |  102 lines
  1. namespace eval ::apache1.3:: {}
  2.  
  3. proc ::apache1.3::parseAddIcon {elements parser dirDef xmlConf currentContainer} {
  4.     switch [set directive [string tolower [lindex $elements 0]]] {
  5.        addicon {
  6.           set directive addIcon
  7.        } addiconbytype {
  8.           set directive addIconByType
  9.        } addiconbyencoding {
  10.           set directive addIconByEncoding
  11.        }
  12.     }
  13.     set xuiObj [apacheparserutils::getOrCreateIfNotExists $directive \
  14.             $dirDef $xmlConf $currentContainer]
  15.     set child [$xuiObj newChild]
  16.     $xuiObj insertChild $child
  17.     [$child getComponentByName icon] setValue [lindex $elements 1]
  18.     set nameList [$child getComponentByName name] 
  19.     foreach one [lrange $elements 2 end] {
  20.         set nameChild [$nameList newChild]
  21.     $nameList insertChild $nameChild
  22.     $nameChild setValue $one
  23.     }
  24.     
  25. }
  26.  
  27. proc ::apache1.3::dumpAddIcon { xuiObj } {
  28.     if ![llength [ $xuiObj getChildren ]] {return}
  29.     set result {}
  30.     foreach child [ $xuiObj getChildren ] {
  31.         append result "[$xuiObj getName] "
  32.     append result "[[$child getComponentByName icon] getValue] "
  33.     foreach name [[$child getComponentByName name] getChildren] {
  34.         append result "[$name getValue] "
  35.     }
  36.     append result "\n"
  37.     }
  38.     return $result
  39. }
  40.  
  41.  
  42. proc ::apache1.3::parseAddAlt {elements parser dirDef xmlConf currentContainer} {
  43.     switch [set directive [string tolower [lindex $elements 0]]] {
  44.        addalt {
  45.           set directive addAlt
  46.        } addaltbytype {
  47.           set directive addAltByType
  48.        } addaltbyencoding {
  49.           set directive addAltByEncoding
  50.        }
  51.     }
  52.     set xuiObj [apacheparserutils::getOrCreateIfNotExists $directive \
  53.             $dirDef $xmlConf $currentContainer]
  54.     set child [$xuiObj newChild]
  55.     $xuiObj insertChild $child
  56.     [$child getComponentByName alt] setValue \
  57.             [string trim [lindex $elements 1] \"]
  58.     set nameList [$child getComponentByName name] 
  59.     foreach one [lrange $elements 2 end] {
  60.         set nameChild [$nameList newChild]
  61.     $nameList insertChild $nameChild
  62.     $nameChild setValue $one
  63.     }
  64.     
  65. }
  66.  
  67. proc ::apache1.3::dumpAddAlt { xuiObj } {
  68.     if ![llength [ $xuiObj getChildren ]] {return}
  69.     set result {}
  70.     foreach child [ $xuiObj getChildren ] {
  71.         append result "[$xuiObj getName] "
  72.     append result "\"[[$child getComponentByName alt] getValue]\" "
  73.     foreach name [[$child getComponentByName name] getChildren] {
  74.         append result "[$name getValue] "
  75.     }
  76.     append result "\n"
  77.     }
  78.     return $result
  79. }
  80.  
  81.  
  82. proc ::apache1.3::parseIndexIgnore {elements parser dirDef xmlConf currentContainer} {
  83.     set xuiObj [apacheparserutils::getOrCreateIfNotExists indexIgnore \
  84.             $dirDef $xmlConf $currentContainer]
  85.     foreach one [lrange $elements 1 end] {        
  86.          set child [$xuiObj newChild]
  87.      $xuiObj insertChild $child
  88.      $child setValue $one
  89.     }
  90.     
  91. }
  92.  
  93. proc ::apache1.3::dumpIndexIgnore { xuiObj } {
  94.     if ![llength [ $xuiObj getChildren ]] {return}
  95.     set result "IndexIgnore "
  96.     foreach child [ $xuiObj getChildren ] {
  97.         append result "[$child getValue] "
  98.     }
  99.     append result "\n"
  100.     return $result
  101. }
  102.