mirror of
https://github.com/MariaDB/server.git
synced 2025-01-18 04:53:01 +01:00
2d89861033
Extended max_allowed_packet for clients to 1G Fixed bug in sending compressed rows >= 16M Fix bug in skiping too long packets from clients. Added checking of wrong command number sent by client. include/mysql.h: Added max_allowed_packet as option parameter. include/mysql_com.h: Added COM_END to be able to check for wrong commands. libmysql/libmysql.c: Extended max_allowed_packet for clients to 1G Added support for max_allowed_packet in option files read by mysql_option() mysys/my_compress.c: Debugging output sql/net_pkg.cc: Fixed wrong handling of blobs >= 16M sql/net_serv.cc: Changed MAX_THREE_BYTES -> MAX_PACKET_LENGTH More DEBUG output and more comments Fixed bug in sending compressed rows >= 16M Optimized sending of big packets (fewer memcpy and compress data in bigger blocks) Fix bug in skiping too long packets from clients. (old code didn't always work for big packets) sql/sql_class.h: Changed type of variable sql/sql_parse.cc: Added checking of wrong command number sent by client. Changed handling of too big packets to make code safer tests/big_record.pl: E
69 lines
1.8 KiB
Perl
Executable file
69 lines
1.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This is a test with stores big records in a blob.
|
|
# Note that for the default test the mysql server should have been
|
|
# started with at least 'mysqld -O max_allowed_packet=30M' and you should have
|
|
# at least 256M memory in your computer.
|
|
|
|
use DBI;
|
|
use Getopt::Long;
|
|
|
|
$opt_host="";
|
|
$opt_user=$opt_password="";
|
|
$opt_db="test";
|
|
$opt_rows=200; # Test of blobs up to ($rows-1)*100000+1 bytes
|
|
$opt_compress=0;
|
|
$opt_table="test_big_record";
|
|
|
|
GetOptions("host=s","db=s","user=s", "password=s", "table=s", "rows=i",
|
|
"compress") || die "Aborted";
|
|
|
|
print "Connection to database $test_db\n";
|
|
|
|
$extra_options="";
|
|
$extra_options.=":mysql_compression=1" if ($opt_compress);
|
|
|
|
$dbh = DBI->connect("DBI:mysql:$opt_db:$host$extra_options",$opt_user,$opt_password) || die "Can't connect: $DBI::errstr\n";
|
|
|
|
$dbh->do("drop table if exists $opt_table");
|
|
|
|
print "Creating table $opt_table\n";
|
|
|
|
($dbh->do("\
|
|
CREATE TABLE $opt_table (
|
|
auto int(5) unsigned NOT NULL DEFAULT '0' auto_increment,
|
|
test longblob,
|
|
PRIMARY KEY (auto))")) or die $DBI::errstr;
|
|
|
|
print "Inserting $opt_rows records\n";
|
|
|
|
$|=1; # Flush output to stdout to be able to monitor process
|
|
|
|
for ($i=0 ; $i < $opt_rows ; $i++)
|
|
{
|
|
$tmp= chr(65+($i % 16)) x ($i*100000+1);
|
|
print $i," ",length($tmp),"\n";
|
|
$tmp= $dbh->quote($tmp);
|
|
$dbh->do("insert into $opt_table (test) values ($tmp)") or die $DBI::errstr;
|
|
}
|
|
|
|
print "Reading records\n";
|
|
|
|
$sth=$dbh->prepare("select * from $opt_table", { "mysql_use_result" => 1}) or die $dbh->errstr;
|
|
|
|
$sth->execute() or die $sth->errstr;
|
|
|
|
$i=0;
|
|
while (($row = $sth->fetchrow_arrayref))
|
|
{
|
|
print $row->[0]," ",length($row->[1]),"\n";
|
|
die "Record $i had wrong data in blob" if ($row->[1] ne (chr(65+($i % 16)) x ($i*100000+1)));
|
|
$i++;
|
|
}
|
|
|
|
die "Didn't get all rows from server" if ($i != $opt_rows);
|
|
|
|
$dbh->do("drop table $opt_table") or die $DBI::errstr;
|
|
|
|
print "Test ok\n";
|
|
exit 0;
|