home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / dumper.tcl < prev    next >
Text File  |  2000-11-02  |  3KB  |  101 lines
  1.  
  2. # apacheDumper --
  3. #   Dumps the XML configuration to httpd.conf
  4. # TO-DO:  This is done in a crude manner.Reuse the existing httpd.conf
  5. # to preserve user comments when possible
  6.  
  7.  
  8. class apacheDumper {
  9.     variable specialCaseMapping
  10.     constructor {} {
  11.     array set specialCaseMapping  {}
  12.     }
  13.     method setSpecialCase { procedure args }
  14.     method isSpecialCase { dirName }
  15.     method processContainer { xmlConf container }
  16.     method dump { xmlConf }
  17.     method dumpContainer { xmlConf container }
  18. }
  19.  
  20. body apacheDumper::isSpecialCase { dirName } {
  21.     return [info exists specialCaseMapping($dirName)]
  22. } 
  23.  
  24. body apacheDumper::dump { xmlConfDoc } {
  25.    set result [ dumpContainer $xmlConfDoc \
  26.        [set rootC [$xmlConfDoc getRootContainer]]]
  27.    foreach container [$xmlConfDoc getContainers $rootC] {
  28.     append result [ processContainer $xmlConfDoc $container]
  29.    }
  30.    return $result
  31. }
  32.  
  33. body apacheDumper::processContainer { xmlConfDoc container } {
  34.     set result {}
  35.     append result "<[$container getClasses] [$container getName]>\n"
  36.     append result [ dumpContainer $xmlConfDoc $container ]
  37.     foreach childContainer [$xmlConfDoc getContainers $container] {
  38.     append result [ processContainer $xmlConfDoc $childContainer]
  39.     }
  40.     append result "</[$container getClasses]>\n"
  41.     return $result
  42. }
  43.  
  44.  
  45. body apacheDumper::dumpContainer { xmlConfDoc container } {
  46.     set result {}
  47.     foreach directive [$xmlConfDoc getDirectives $container] {
  48.     set dirName [string tolower [$directive getName]]
  49.     if [isSpecialCase $dirName] {
  50.         append result "[$specialCaseMapping($dirName) $directive]\n"
  51.     } else {
  52.         if [$directive doYouBelongTo unknownDirective] {
  53.             append result "[$directive getValue]\n"
  54.         } else {
  55.         switch [$directive getXuiClass] {
  56.         string - number  {
  57.             set value [$directive getValue] 
  58.             if [string compare $value [$directive getDefault]] {
  59.                     set value [$directive getText]
  60.                 if {[$directive doYouBelongTo file] || \
  61.                         [$directive doYouBelongTo directory] } {
  62.                     if [regexp {\ } $value] {
  63.                         set value "\"$value\""
  64.                     }
  65.                 }        
  66.                 append result "$dirName $value\n"
  67.             } 
  68.         } boolean {
  69.             set value [$directive getValue] 
  70.             if [string compare $value [$directive getDefault]] {
  71.                 switch $value {
  72.                 0 {
  73.                     append result "$dirName off\n"
  74.                 } 1 {
  75.                     append result "$dirName on\n"
  76.                 }
  77.             }
  78.             }
  79.         } choice {
  80.             append result \
  81.                    "$dirName [$directive getSelected]\n"
  82.         } default {
  83.            error "No special case and not recognized in dumping\
  84.                    [$directive getXuiClass] [$directive getName]"
  85.         }
  86.         }
  87.        } 
  88.     }
  89.     }
  90.     return $result
  91. }
  92.  
  93. body apacheDumper::setSpecialCase { procedure args } {
  94.     foreach directive $args {
  95.     set specialCaseMapping([string tolower $directive]) \
  96.         $procedure
  97.     }
  98. }    
  99.  
  100.  
  101.