home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / modules / php3 / specialCases.tcl < prev   
Text File  |  2000-11-02  |  4KB  |  151 lines
  1. namespace eval ::apache1.3:: {}
  2.  
  3. proc ::apache1.3::parse_php3_auto_append_file {text parser dirDef xmlConf currentContainer} {
  4.     set xuiObj [apacheparserutils::getOrCreateIfNotExists php3_auto_append_file \
  5.             $dirDef $xmlConf $currentContainer]   
  6.     set value [lindex $text 1]
  7.     switch [string tolower $value] {
  8.        none {
  9.       $xuiObj selectComponentByName none
  10.        } default {
  11.       $xuiObj selectComponentByName file
  12.           $xuiObj.file setValue $value      
  13.        }
  14.     }
  15. }
  16.  
  17.  
  18. proc ::apache1.3::dump_php3_auto_append_file {xuiObj} {
  19.     set value [[$xuiObj getSelectedComponent] getValue]
  20.     return "php3_auto_append_file $value\n"
  21. }
  22.  
  23.  
  24. proc ::apache1.3::parse_php3_auto_prepend_file {text parser dirDef xmlConf currentContainer} {
  25.     set xuiObj [apacheparserutils::getOrCreateIfNotExists php3_auto_prepend_file \
  26.             $dirDef $xmlConf $currentContainer]   
  27.     set value [lindex $text 1]
  28.     switch [string tolower $value] {
  29.        none {
  30.       $xuiObj selectComponentByName none
  31.        } default {
  32.       $xuiObj selectComponentByName file
  33.           $xuiObj.file setValue $value      
  34.        }
  35.     }
  36. }
  37.  
  38.  
  39. proc ::apache1.3::dump_php3_auto_prepend_file {xuiObj} {
  40.     set value [[$xuiObj getSelectedComponent] getValue]    
  41.     return "php3_auto_prepend_file $value\n"
  42. }
  43.  
  44. proc ::apache1.3::parse_php3_error_log {text parser dirDef xmlConf currentContainer} {
  45.     set xuiObj [apacheparserutils::getOrCreateIfNotExists php3_error_log \
  46.             $dirDef $xmlConf $currentContainer]   
  47.     set value [lindex $text 1]
  48.     switch [string tolower $value] {
  49.        none {
  50.       $xuiObj selectComponentByName syslog
  51.        } default {
  52.       $xuiObj selectComponentByName file
  53.           $xuiObj.file setValue $value      
  54.        }
  55.     }
  56. }
  57.  
  58.  
  59. proc ::apache1.3::dump_php3_error_log {xuiObj} {
  60.     set value [[$xuiObj getSelectedComponent] getValue]
  61.     return "php3_error_log $value\n"
  62. }
  63.  
  64. proc ::apache1.3::parse_php3_open_basedir {text parser dirDef xmlConf currentContainer} {
  65.     set xuiObj [apacheparserutils::getOrCreateIfNotExists php3_open_basedir \
  66.             $dirDef $xmlConf $currentContainer]   
  67.     global tcl_platform
  68.     switch $tcl_platform(platform) {
  69.        windows {
  70.       set separator {;}
  71.        } default {
  72.        set separator :
  73.        }
  74.     }
  75.     foreach element [split [lrange $text 1 end] $separator] {
  76.         set child [$xuiObj newChild]
  77.     $child setValue $element
  78.     $xuiObj insertChild $child
  79.     }
  80. }
  81.  
  82.  
  83. proc ::apache1.3::dump_php3_open_basedir {xuiObj} {
  84.    global tcl_platform
  85.    switch $tcl_platform(platform) {
  86.        windows {
  87.       set separator {;}
  88.        } default {
  89.        set separator :
  90.        }
  91.     }
  92.     set values {}
  93.     foreach child [$xuiObj getChildren] {
  94.         lappend values [$child getValue]
  95.     }
  96.     set result [join $values $separator]
  97.     if [llength $result] {
  98.         return "php3_open_basedir $result\n"
  99.     }
  100.     return
  101. }
  102.  
  103.  
  104.  
  105.  
  106. proc ::apache1.3::parse_php3_include_path {text parser dirDef xmlConf currentContainer} {
  107.     set xuiObj [apacheparserutils::getOrCreateIfNotExists php3_include_path \
  108.             $dirDef $xmlConf $currentContainer]   
  109.     global tcl_platform
  110.     switch $tcl_platform(platform) {
  111.        windows {
  112.       set separator {;}
  113.        } default {
  114.        set separator :
  115.        }
  116.     }
  117.     foreach element [split [lrange $text 1 end] $separator] {
  118.         set child [$xuiObj newChild]
  119.     
  120.     # Split fscks up quted filenames
  121.     
  122.     regsub {\\\"} $element {"} result
  123.     $child setValue $result
  124.     $xuiObj insertChild $child
  125.     }
  126. }
  127.  
  128.  
  129. proc ::apache1.3::dump_php3_include_path {xuiObj} {
  130.    global tcl_platform
  131.    switch $tcl_platform(platform) {
  132.        windows {
  133.       set separator {;}
  134.        } default {
  135.        set separator :
  136.        }
  137.     }
  138.     set values {}
  139.     foreach child [$xuiObj getChildren] {
  140.         lappend values [$child getValue]
  141.     }
  142.     set result [join $values $separator]
  143.     if [llength $result] {
  144.         return "php3_include_path $result\n"
  145.     }
  146.     return
  147. }
  148.  
  149.  
  150.  
  151.