/[suikacvs]/messaging/manakai/lib/Message/CGI/HTTP.pm
Suika

Diff of /messaging/manakai/lib/Message/CGI/HTTP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Wed Aug 22 10:59:43 2007 UTC revision 1.5 by wakaba, Sun Nov 9 14:06:23 2008 UTC
# Line 132  sub __get_parameter ($) { Line 132  sub __get_parameter ($) {
132    ## Entity-body    ## Entity-body
133    if ($self->get_meta_variable ('REQUEST_METHOD') eq 'POST') {    if ($self->get_meta_variable ('REQUEST_METHOD') eq 'POST') {
134      my $mt = $self->get_meta_variable ('CONTENT_TYPE');      my $mt = $self->get_meta_variable ('CONTENT_TYPE');
135        ## TODO: Uppercase
136      if ($mt =~ m<^application/(?:x-www|sgml)-form-urlencoded\b>) {      if ($mt =~ m<^application/(?:x-www|sgml)-form-urlencoded\b>) {
137        push @src, $self->entity_body;        push @src, $self->entity_body;
138      }      }
# Line 252  sub __uri_encode ($$;$) { Line 253  sub __uri_encode ($$;$) {
253    
254  =item I<$value> = I<$cgi>->path_info ([I<$new_value>]);  =item I<$value> = I<$cgi>->path_info ([I<$new_value>]);
255    
256  This method reflects the meta-variable with the same name (in uppercase).  =item I<$value> = I<$cgi>->remote_user ([I<$new_value>]);
257    
258    These methods reflect meta-variables with the same name (in
259    uppercase).
260    
261  =cut  =cut
262    
263  for (  for (
264    [path_info => 'PATH_INFO'],    [path_info => 'PATH_INFO'],
265    [query_string => 'QUERY_STRING'],    [query_string => 'QUERY_STRING'],
266      [remote_user => 'REMOTE_USER'],
267    [request_method => 'REQUEST_METHOD'],    [request_method => 'REQUEST_METHOD'],
268    [script_name => 'SCRIPT_NAME'],    [script_name => 'SCRIPT_NAME'],
269  ) {  ) {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24