#!/usr/local3/coins/linux/bin/ruby # -*- coding: utf-8 -*- # cgi-printarg-ruby.cgi -- CGI プログラムに対する引数を表示するプログラム # ~yas/syspro/www/cgi-printarg-ruby.cgi require "cgi" def main() @cgi = CGI.new() print_header() print_content() exit( 0 ) end def print_header() printf("Content-Type: text/html\n") printf("\n") end def print_content() printf("
\n")
	printf("request_method: %s\n",e(@cgi.request_method))
	printf("script_name: %s\n",e(@cgi.script_name))
	printf("query_string: %s\n",e(@cgi.query_string))
	printf("content_length: %d\n",@cgi.content_length ? @cgi.content_length : 0 )
	qh = @cgi.keys
	i = 0
	qh.each { |name|
                val = @cgi[name]
                printf("qv[%d]: %s=%s \n",i,e(name),e(val) )
                i = i + 1
	}
	printf("
\n") end def e( str ) return( str == nil ? "(null)" : CGI::escapeHTML(str) ) end main()