[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Request CGI.pm,1.20,1.21

[Chris W. <la...@us...>]

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" );
  }