[otrs-cvs] Fred/Kernel/System/Fred SQLLog.pm,1.7,1.8

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/Fred/Kernel/System/Fred
In directory lancelot:/tmp/cvs-serv26199/Kernel/System/Fred

Modified Files:
	SQLLog.pm 
Log Message:
Show the needed time per sql-statement.

Author: tr

Index: SQLLog.pm
===================================================================
RCS file: /home/cvs/Fred/Kernel/System/Fred/SQLLog.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SQLLog.pm	19 Feb 2008 10:39:35 -0000	1.7
--- SQLLog.pm	5 Mar 2008 13:05:35 -0000	1.8
***************
*** 104,107 ****
--- 104,112 ----
              $DoStatements++;
          }
+         # transfer in 1/100 sec
+         if ($SplitedLog[3]) {
+             $Param{ModuleRef}->{Time} += $SplitedLog[3];
+             $SplitedLog[3] *= 100;
+         }
      }
  
***************
*** 152,155 ****
--- 157,162 ----
      open my $FilehandleII, '>', $File || die "Can't write $File !\n";
      $Self->{LogObject}->Log( Priority => 'notice', Message => "write file!" );
+     my $Prepare;
+     my $DoSQL;
      for my $Line (@Lines) {
          if ( $Line =~ m[^                               \s*
***************
*** 167,184 ****
          ) {
              $Self->{LogObject}->Log( Priority => 'notice', Message => "insert fred log Prepare!" );
              print $FilehandleII "# FRED - manipulated\n";
              print $FilehandleII "use Kernel::System::Fred::SQLLog;\n";
              print $FilehandleII "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n";
              print $FilehandleII "my \$Caller = caller();\n";
!             print $FilehandleII "\$SQLLogObject->InsertWord(What => \"SQL-SELECT;\$SQL;\$Caller\");\n";
              print $FilehandleII "# FRED - manipulated\n";
          }
          if ( $Line =~ /^    # send sql to database/ ) {
              $Self->{LogObject}->Log( Priority => 'notice', Message => "insert fred log do!" );
              print $FilehandleII "# FRED - manipulated\n";
              print $FilehandleII "use Kernel::System::Fred::SQLLog;\n";
              print $FilehandleII "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n";
              print $FilehandleII "my \$Caller = caller();\n";
!             print $FilehandleII "\$SQLLogObject->InsertWord(What => \"SQL-DO;\$Param{SQL};\$Caller\");\n";
              print $FilehandleII "# FRED - manipulated\n";
          }
--- 174,212 ----
          ) {
              $Self->{LogObject}->Log( Priority => 'notice', Message => "insert fred log Prepare!" );
+             $Prepare = 1;
              print $FilehandleII "# FRED - manipulated\n";
              print $FilehandleII "use Kernel::System::Fred::SQLLog;\n";
+             print $FilehandleII "use Time::HiRes qw(gettimeofday tv_interval);\n";
+             print $FilehandleII "my \$t0 = [gettimeofday];\n";
              print $FilehandleII "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n";
              print $FilehandleII "my \$Caller = caller();\n";
!             print $FilehandleII "# FRED - manipulated\n";
! 
!         }
!         if ( $Line =~ m{^    # slow log feature} && $Prepare ) {
!             $Prepare = 0;
!             print $FilehandleII "# FRED - manipulated\n";
!             print $FilehandleII "my \$DiffTime = tv_interval(\$t0);\n";
!             print $FilehandleII "\$SQLLogObject->InsertWord(What => \"SQL-SELECT;\$SQL;\$Caller;\$DiffTime\");\n";
              print $FilehandleII "# FRED - manipulated\n";
          }
+ 
          if ( $Line =~ /^    # send sql to database/ ) {
              $Self->{LogObject}->Log( Priority => 'notice', Message => "insert fred log do!" );
+             $DoSQL = 1;
              print $FilehandleII "# FRED - manipulated\n";
              print $FilehandleII "use Kernel::System::Fred::SQLLog;\n";
+             print $FilehandleII "use Time::HiRes qw(gettimeofday tv_interval);\n";
+             print $FilehandleII "my \$t0 = [gettimeofday];\n";
              print $FilehandleII "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n";
              print $FilehandleII "my \$Caller = caller();\n";
!             print $FilehandleII "# FRED - manipulated\n";
!         }
! 
!         if ( $Line =~ m{^    return 1;} && $DoSQL ) {
!             $DoSQL = 0;
!             print $FilehandleII "# FRED - manipulated\n";
!             print $FilehandleII "my \$DiffTime = tv_interval(\$t0);\n";
!             print $FilehandleII "\$SQLLogObject->InsertWord(What => \"SQL-DO;\$Param{SQL};\$Caller;\$DiffTime\");\n";
              print $FilehandleII "# FRED - manipulated\n";
          }
***************
*** 221,226 ****
          "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n"    => 1,
          "my \$Caller = caller();\n"                                               => 1,
!         "\$SQLLogObject->InsertWord(What => \"SQL-DO;\$Param{SQL};\$Caller\");\n" => 1,
!         "\$SQLLogObject->InsertWord(What => \"SQL-SELECT;\$SQL;\$Caller\");\n"    => 1,
      );
  
--- 249,257 ----
          "my \$SQLLogObject = Kernel::System::Fred::SQLLog->new(\%{\$Self});\n"    => 1,
          "my \$Caller = caller();\n"                                               => 1,
!         "\$SQLLogObject->InsertWord(What => \"SQL-DO;\$Param{SQL};\$Caller\;\$DiffTime\");\n" => 1,
!         "\$SQLLogObject->InsertWord(What => \"SQL-SELECT;\$SQL;\$Caller\;\$DiffTime\");\n"    => 1,
!         "use Time::HiRes qw(gettimeofday tv_interval);\n"   => 1,
!         "my \$t0 = [gettimeofday];\n"   => 1,
!         "my \$DiffTime = tv_interval(\$t0);\n" => 1,
      );