Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Request
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1692/Request
Modified Files:
CGI.pm
Log Message:
cosmetic
Index: CGI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Request/CGI.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** CGI.pm 28 Nov 2004 17:50:46 -0000 1.20
--- CGI.pm 18 Feb 2005 03:30:26 -0000 1.21
***************
*** 22,27 ****
my ( $self, $params ) = @_;
$log ||= get_logger( LOG_REQUEST );
! $log->is_info &&
! $log->info( "Creating CGI request" );
if ( $params->{cgi} ) {
$self->cgi( $params->{cgi} );
--- 22,26 ----
my ( $self, $params ) = @_;
$log ||= get_logger( LOG_REQUEST );
! $log->is_info && $log->info( "Creating CGI request" );
if ( $params->{cgi} ) {
$self->cgi( $params->{cgi} );
***************
*** 32,35 ****
--- 31,35 ----
}
my $cgi = $self->cgi;
+ my $req_type = $cgi->request_method;
# Assign URL info from CGI...
***************
*** 37,42 ****
my $base_url = $cgi->script_name;
! $log->is_info &&
! $log->info( "Deployed under '$base_url'" );
CTX->assign_deploy_url( $base_url );
--- 37,41 ----
my $base_url = $cgi->script_name;
! $log->is_info && $log->info( "Deployed as $req_type to $base_url" );
CTX->assign_deploy_url( $base_url );
***************
*** 64,69 ****
$self->_assign_params_from_cgi( $cgi );
! $log->is_info &&
! $log->info( "Finished creating CGI request" );
return $self;
}
--- 63,67 ----
$self->_assign_params_from_cgi( $cgi );
! $log->is_info && $log->info( "Finished creating CGI request" );
return $self;
}
***************
*** 90,98 ****
my $upload_info = $cgi->uploadInfo( $upload );
my $oi_upload = OpenInteract2::Upload->new({
! name => $field,
! content_type => $upload_info->{'Content-Type'},
! size => (stat $upload)[7],
! filehandle => $upload,
! filename => $cgi->tmpFileName( $upload ) });
$self->_set_upload( $field, $oi_upload );
$num_upload++;
--- 88,97 ----
my $upload_info = $cgi->uploadInfo( $upload );
my $oi_upload = OpenInteract2::Upload->new({
! name => $field,
! content_type => $upload_info->{'Content-Type'},
! size => (stat $upload)[7],
! filehandle => $upload,
! filename => $cgi->tmpFileName( $upload )
! });
$self->_set_upload( $field, $oi_upload );
$num_upload++;
***************
*** 103,109 ****
--- 102,113 ----
else {
if ( scalar @items > 1 ) {
+ $log->is_debug &&
+ $log->debug( "Param: $field = (multiple) ",
+ join( ', ', @items ) );
$self->param( $field, \@items );
}
else {
+ $log->is_debug &&
+ $log->debug( "Param: $field = (single) $items[0]" );
$self->param( $field, $items[0] );
}
***************
*** 111,117 ****
}
}
! $log->is_debug &&
! $log->debug( "Set parameters ($num_param) and file ",
! "uploads ($num_upload)" );
}
--- 115,120 ----
}
}
! $log->is_info &&
! $log->info( "Set $num_param params, $num_upload file uploads" );
}
|
