[BACK]Return to httpd.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/httpd.sm1 between version 1.11 and 1.12

version 1.11, 2002/10/29 07:29:23 version 1.12, 2002/10/30 13:23:06
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.10 2002/10/23 13:38:50 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.11 2002/10/29 07:29:23 takayama Exp $
 %% common modules for httpd on sm1.  %% common modules for httpd on sm1.
 /Oxserver_history_variable (Oxserver_history_variable_) def  /Oxserver_history_variable (Oxserver_history_variable_) def
 /httpd.image.type  /httpd.image.type
   [(getenv) (OpenXM_PSTOIMG_TYPE)] extension    [(getenv) (OpenXM_PSTOIMG_TYPE)] extension
 def  def
   
   [(getenv) (OXWEB_DEBUG)] extension tag 0 eq {
      /httpd.debug 0 def
   } {
      /httpd.debug 1 def
   } ifelse
   [(getenv) (OXWEB_TAKE_LOG)] extension tag 0 eq {
      /httpd.take.log  0 def
   } {
      /httpd.take.log 1 def
   } ifelse
   
   
 /httpd_startserver {  /httpd_startserver {
    [(sm1.socket) (open) [httpd.port (localhost)]] extension     [(sm1.socket) (open) [httpd.port (localhost)]] extension
    /httpd.server.fdAndPort set     /httpd.server.fdAndPort set
Line 27  def
Line 38  def
   
 /sendln {  /sendln {
  /arg1 set   /arg1 set
  [/in-sendln /mmm] pushVariables   [/in-sendln /mmm /i] pushVariables
  [ arg1 /mmm set   [ arg1 /mmm set
   mmm tag 5 eq {    mmm tag 5 eq {
     [mmm 10 (string) dc] cat /mmm set      [mmm 10 (string) dc] cat /mmm set
Line 37  def
Line 48  def
   [(sm1.socket) (select) [httpd.server.fd 0 get 0]] extension {    [(sm1.socket) (select) [httpd.server.fd 0 get 0]] extension {
     (Warning (sendln): your peer closed the connection. Do not send the data.) message      (Warning (sendln): your peer closed the connection. Do not send the data.) message
   } {    } {
     [(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension message      [(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension /i set
        httpd.debug { i message } { } ifelse
   } ifelse    } ifelse
  ] pop   ] pop
  popVariables   popVariables
Line 74  def
Line 86  def
     httpd_startserver ;      httpd_startserver ;
     httpd_action ;      httpd_action ;
     httpd_stopserver ;      httpd_stopserver ;
       httpd.take.log { (date) system  } { } ifelse
 %    (sleep 2) system  %    (sleep 2) system
     httpd.serial 1 add /httpd.serial set      httpd.serial 1 add /httpd.serial set
   } loop    } loop
Line 288  def
Line 301  def
         ss i (,) put          ss i (,) put
       } {  } ifelse        } {  } ifelse
     } for      } for
     ss message      httpd.debug { ss message } {  } ifelse
     [ ss to_records pop] /arg1 set      [ ss to_records pop] /arg1 set
   ] pop    ] pop
   popVariables    popVariables
Line 368  def
Line 381  def
          ] reverse /tname set           ] reverse /tname set
          (GET /?) (array) dc tname join /tname set           (GET /?) (array) dc tname join /tname set
   
          httpd.textarea.name.aaa message           httpd.debug { httpd.textarea.name.aaa message } {  } ifelse
          tname httpd.textarea.name.aaa eq {           tname httpd.textarea.name.aaa eq {
            /httpd.textarea.valid 1 def             /httpd.textarea.valid 1 def
          } {           } {
            /httpd.textarea.valid 0 def             /httpd.textarea.valid 0 def
            tname message             tname message
            httpd.textarea.name.aaa { (string) dc } map cat message             httpd.textarea.name.aaa { (string) dc } map cat message
            (Warning: got an invalid name for the text field.) message             (Warning: got an invalid name for the text field.) message
          } ifelse           } ifelse
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>