Skip site navigation (1)Skip section navigation (2) 
Date:      Fri, 16 Mar 2001 15:00:21 -0600
From:      "Douglas K. Rand" <rand@meridian-enviro.com>
To:        freebsd-stable@FreeBSD.ORG
Cc:        Mike Tancsa <mike@sentex.net>, Mike Smith <msmith@FreeBSD.ORG>, bryanh@meridian-enviro.com
Subject:   Re: 3ware problems
Message-ID:  <3AB27EE5.7CCB1387@meridian-enviro.com>
References:  <4.2.2.20010314203128.030e6c20@marble.sentex.net> <200103150029.f2F0TTF04572@mass.dis.org> <87g0gfopf4.wl@delta.meridian-enviro.com> <87elvzoona.wl@delta.meridian-enviro.com> <87bsr2ones.wl@delta.meridian-enviro.com> <5.0.2.1.0.20010315142949.03387c00@marble.sentex.ca> <8766hanv1y.wl@delta.meridian-enviro.com>
next in thread | previous in thread | raw e-mail | index | archive | help 
> So far the only way I can get the problem to show up is banging on
> MySQL for 3-12 hours.

Here is a short perl script that along with MySQL 3.23.33 will hang our
3ware controller:

#!/usr/bin/perl

use strict;
use Date::Format;

print "drop table if exists twe;\n";
print "create table twe (\n";
print "    id    char(4)                   NOT NULL default '',\n";
print "    time0 datetime                  NOT NULL default '0000-00-00
00:00:00',\n";
print "    time1 datetime                  NOT NULL default '0000-00-00
00:00:00',\n";
print "    time2 datetime                  NOT NULL default '0000-00-00
00:00:00',\n";
print "    type  enum('NORMAL', 'SPECIAL') NOT NULL default 'NORMAL',\n";
print "    ob    blob,\n";
print "    PRIMARY KEY (id, time1),\n";
print "    KEY (time0)\n";
print ") TYPE=MyISAM;\n";

my $low = 946684800;
my $high = 1009843200;
my $diff = $high - $low;
my $step = 1000;

my $count = 0;
while(1) {
    my $ob = `fortune -l`;
    $ob =~ s/[\s\n]/ /g;
    $ob =~ s/[^A-Za-z0-9\s]//g;
    print "INSERT INTO twe VALUES\n";
    for(my $i = 0; $i < $step; $i++) {
        my $id = sprintf("%c%c%c%c", rand(26) + 0x41, rand(26) + 0x41,
rand(26) + 0x41, rand(26) + 0x41);
        my $time0 = time2str("%Y-%m-%d %H:%M:%S",int(rand($diff) + $low),
"UTC0");
        my $time1 = time2str("%Y-%m-%d %H:%M:%S",int(rand($diff) + $low),
"UTC0");
        my $time2 = time2str("%Y-%m-%d %H:%M:%S",int(rand($diff) + $low),
"UTC0");
        my $type = rand() < 0.75 ? "NORMAL" : "SPECIAL";
        print "    ('$id', '$time0', '$time1', '$time2', '$type', '$ob')";

        print ",\n" if $i != $step - 1;
    }
    print ";\n";
    $count += $step;
    print STDERR "Inserted $count rows\n";
}



To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-stable" in the body of the message

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?3AB27EE5.7CCB1387>