WebGate

Check-in [80136f0ceb]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Output remote address and port in the example script
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:80136f0ceb6a0f2dc2360aa8c19d2dc8b2928a2d
User & Date: murphy 2015-05-04 14:58:40
Context
2015-05-04
15:17
Default to HTTP header lookup through getenv, even without HTTP_ prefix for soup driver check-in: 35c35fb8b5 user: murphy tags: trunk
14:58
Output remote address and port in the example script check-in: 80136f0ceb user: murphy tags: trunk
14:57
Compression for suspensions check-in: c4ebab70b3 user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to example.scm.

92
93
94
95
96
97
98
99




100
101
102
103
104
105
106
...
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
		  @,@(let ((getenv (resource-context-getenv
				    (current-resource-context))))
		       `((tr (td "SCRIPT_NAME")
			     (td (code ,(or (getenv "SCRIPT_NAME") "<unknown>"))))
			 (tr (td "PATH_INFO")
			     (td (code ,(or (getenv "PATH_INFO") "<unknown>"))))
			 (tr (td "REQUEST_METHOD")
			     (td (code ,(or (getenv "REQUEST_METHOD") "<unknown>"))))))




		}
	      }
	    }
	    @div[(class "span8")]{
	      @h2{Present Parameters}
	      @table[(class "zebra-striped")]{
	        @thead{
................................................................................
		    @input[(type "reset") (class "btn")
			   (value "Reset")]
		  }
		}
	      }
	    }
	  }
	  @footer{@copy 2011-2013 by Thomas Chust}
	}
	@,@common-foot
      }
    }))

(define numeric-parameter
  (cute







|
>
>
>
>







 







|







92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
...
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
		  @,@(let ((getenv (resource-context-getenv
				    (current-resource-context))))
		       `((tr (td "SCRIPT_NAME")
			     (td (code ,(or (getenv "SCRIPT_NAME") "<unknown>"))))
			 (tr (td "PATH_INFO")
			     (td (code ,(or (getenv "PATH_INFO") "<unknown>"))))
			 (tr (td "REQUEST_METHOD")
			     (td (code ,(or (getenv "REQUEST_METHOD") "<unknown>"))))
			 (tr (td "REMOTE_ADDR")
			     (td (code ,(or (getenv "REMOTE_ADDR") "<unknown>"))))
			 (tr (td "REMOTE_PORT")
			     (td (code ,(or (getenv "REMOTE_PORT") "<unknown>"))))))
		}
	      }
	    }
	    @div[(class "span8")]{
	      @h2{Present Parameters}
	      @table[(class "zebra-striped")]{
	        @thead{
................................................................................
		    @input[(type "reset") (class "btn")
			   (value "Reset")]
		  }
		}
	      }
	    }
	  }
	  @footer{@copy 2011-2015 by Thomas Chust}
	}
	@,@common-foot
      }
    }))

(define numeric-parameter
  (cute