percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-29 09:32:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

WIP. Still need tests

Browse Source
This commit is contained in:
Carlos Salguero
2016-12-15 18:04:17 -03:00
parent 54d3d52486
commit f265de131d
3 changed files with 43 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
bin/pt-query-digest
View File

@@ -4713,11 +4713,18 @@ sub parse_client_handshake_packet {
}
my $code_len = hex($buff_len);
my ( $db ) = $data =~ m!
^.{64}${user}00.. # Everything matched before
(?:..){$code_len} # The scramble buffer
(.*?)00.*\Z # The database name
!x;
my $db;
my $capability_flags = to_num($flags); # $flags is stored as little endian.
if ($capability_flags & $flag_for{CLIENT_CONNECT_WITH_DB}) {
( $db ) = $data =~ m!
^.{64}${user}00.. # Everything matched before
(?:..){$code_len} # The scramble buffer
(.*?)00.*\Z # The database name
!x;
}
my $pkt = {
user => to_string($user),
db => $db ? to_string($db) : '',

17
bin/pt-upgrade
View File

@@ -8725,11 +8725,18 @@ sub parse_client_handshake_packet {
}
my $code_len = hex($buff_len);
my ( $db ) = $data =~ m!
^.{64}${user}00.. # Everything matched before
(?:..){$code_len} # The scramble buffer
(.*?)00.*\Z # The database name
!x;
my $db;
my $capability_flags = to_num($flags); # $flags is stored as little endian.
if ($capability_flags & $flag_for{CLIENT_CONNECT_WITH_DB}) {
( $db ) = $data =~ m!
^.{64}${user}00.. # Everything matched before
(?:..){$code_len} # The scramble buffer
(.*?)00.*\Z # The database name
!x;
}
my $pkt = {
user => to_string($user),
db => $db ? to_string($db) : '',