1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
#!/usr/bin/perl
# Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
# Output a html table with a compare of all servers
#
$cmp_server="mysql"; # Get limit names from here
$full_html=1;
$opt_txt=0;
if ($#ARGV < 0)
{
@ARGV=glob("limits/*.cfg");
$skip_header=0;
}
else
{
$skip_header=1;
}
foreach (@ARGV)
{
/([^\/\.]*)\.cfg$/;
$server=$1;
if ($server eq $cmp_server)
{
unshift(@limits,read_config_data($server,$_));
}
else
{
push(@limits,read_config_data($server,$_));
}
}
@global_limits= sort keys(%all_limits);
find_match('group_functions|functions'); # Don't report these
if ($full_html)
{
if (!$skip_header)
{
print "<!doctype HTML public \"-//W3O//DTD W3 HTML3.0//EN\"><HTML>";
}
print <<EOF;
<!doctype HTML public \"-//W3O//DTD W3 HTML3.0//EN\"><HTML>
<HEAD><TITLE>Database comparison table</TITLE></HEAD>
<BODY>
<center><h3>Database comparison table generated with <B>crash-me</B></h3></center>
<table><tr><td><IMG SRC="icons/mysql-03.gif" ALT=logo></td>
<td>You can get a copy of <B>crash-me</B> from the MySQL 3.23 distribution at
<A HREF="http://www.mysql.com">http://www.mysql.com</A>.
</td></tr></table>
<br>
<strong>crash-me</strong> is a program that automatically detects
limits and capabilities in a SQL server. We at TCX have worked very
hard to make crash-me as fair and accurate as possible, but there is
always a small possibility that some particular tests fails for some
database, even if the database has the capability. We are always
willing to correct this as soon as this comes to our attention. Some
tests may fail because the database in questions does not follow
<B>ANSI SQL 99</B> or <B>ODBC 3.0</B> but in this case we regard this
as a failure in the database.
<br><br>
Note that crash-me test the <B>ODBC</B> functionality by executing
SQL commands through the perl DBD driver. As some SQL servers implements
the <B>ODBC</B> functionality in the <B>ODBC</B> driver, crash-me may
tell you that the SQL server doesn\'t support some functionality, even
if this is supported when you are using the SQL server through <B>ODBC</B>.
<br><br>
Note that even if crash-me reports that some feature is missing, not
supported, or doesn\'t work it doesn\'t mean that the SQL server
doesn\'t follow the SQL standard or that you can\'t do the operation
in some other way. crash-me just tells you how the SQL server works
if you send it some specific query. The result is however often useful
for applications writers that tries to write portable code and needs to be
aware of the differences between different SQL servers.
<br><br>
TCX is trying to add as much tests to the crash-me program as they can
but it\'s always possible that some database vendor specific functions
/ queries aren\'t tested. If you find some entries not tested on a
database please let us know and try to patch the crash-me program your
self or give us some example queries so we can add those entries. We
are always open for suggestions for adding things to the crash-me
program. The crash-me program is also our input reference for the
MySQL benchmark program.<br>
<B>Note:</B>
The crash-me table is generated from databases started with default
parameters. If this is not the case, this is noted in the comment row.
Some detected limits may also be configurable, OS dependent, depend of the
Perl DBI driver or depending on the license of the used database version.
<BR><BR>
The following markers are used in the comparison table
<table border=1>
<tr><th>Marker</th><th>Description</th></tr>
<tr><td><IMG SRC=\"images/ok.gif\" WIDTH=20 HEIGHT=16 ALT=\"yes\"></td>
<td>Function is supported</td></tr>
<tr><td><IMG SRC=\"images/no.gif\" WIDTH=14 HEIGHT=14 ALT=\"no\"></td>
<td>Function is not supported</td></tr>
<tr><td><IMG SRC=\"images/error.gif\" WIDTH=20 HEIGHT=16 ALT=\"error\"></td>
<td>Function exists but didn\'t return expected result. This usually means that
the database is using some non standard extension for the option in question</td></tr>
<tr><td>ignored</td><td>Function doesn\'t give an error from the server but it
doesn\'t do anything. One can probably do the same action with some other
command</td></tr>
<tr><td>nonstandard</td><td>Function exists but doesn\'t work according to
<B>ANSI SQL 92</B> or <B>ODBC 3.0</B></td></tr>
<tr><td> </td><td>Not relevant or not tested with the database</td></tr>
<tr><td>+number</td><td>At least <b>number</b> operations is supported</td></tr>
<tr><td><IMG SRC=\"images/warning.gif\" WIDTH=28 HEIGHT=28 ALT=\"warning\"></td>
<td><B>Anyone with normal access to the database server can take it down, possible
forever!</B></td> </table>
<center><h3>The <B>crash-me</B> comparisons</h3></center>
EOF
}
print "<TABLE BORDER=2><TR ALIGN=left>\n";
#
# printer server names
#
$columns=$#limits+2;
print "<th>Function</th>\n";
foreach $server (@limits)
{
print "<td>$server->[1]->{'server_version'}</td>";
$server->[1]->{'server_version'} =~ /^(\S*)/;
push(@server_names,$1);
}
find_match("server_version"); # Mark used
print "</tr>\n";
print_match("Crash-me information",'crash_me|operating_system|user_comment',undef(),1);
print_match("ANSI SQL 92 types","type_sql");
print_match("ODBC 3.0 types","type_odbc");
print_match("Other types","type_extra");
print_match("Constraints and type modifiers","constraint|foreign|primary|unique|default","alter|max_unique");
print_match("ANSI SQL 92 functions","func_sql","group");
print_match("ODBC 3.0 functions","func_odbc","group");
print_match("Other functions","func_extra","group");
print_match("Functions in WHERE","func_where","group");
print_match("ANSI SQL 92 group functions","group_func_sql");
print_match("Other group functions","group_func");
print_match("Function use","NEG|minus_neg|like|null.*expr");
print_match("Order by and group by","order|having|group");
print_match("Join methods",'join|subqueries|multi_table|select_table_update');
print_match("String handling","string|select_constant|quote_with|double_quotes|end_space");
print_match("Quoting","quote");
print_match("Name limits","name","alter");
print_match("Index limits",'index|primary|unique');
print_match("Type limits",'char|float|text_size|date|end_space','atomic');
print_match("Expressions",'expression|conditions|select_limit|binary|hex|cast|logical|true_false');
print_match("Comments",'comment');
print_match("ALTER TABLE",'alter');
print_match("CREATE and DROP",'create|drop|rowid|temporary|domains|truncate');
print_match("SELECT",'alias|compute|select|table_wildcard');
print_match("Sets",'intersect|minus|union|except');
print_match("INSERT",'insert');
print_options("Other features");
print_match("Other limits",'\S');
print "</table>\n";
if ($full_html)
{
print <<EOF;
<BR>
This information is provided by TCX so one can get the real limitations from
the database server (not the information from sales managers!). Hopefully the
above information will make it easier for you to find a database server that
has the functionality you need and that you can rely on!
<BR><BR>
TCX will continue to extend <b>crash-me</b> and add more database servers
to the above chart. We are also very interested in new tests so if you have
any suggestions, please mail us (or even better, send us code).
<BR>
We are also working on the <B>MySQL</B> <A HREF ="/benchmark.html">benchmark</A>
to help users see how fast a database is when doing different typical things.
<br>
<IMG SRC="images/eyesleft.gif" HEIGHT=9 WIDTH=582 ALT="==============================================">
<ADDRESS> You can direct questions about crash-me and the benchmark to the
<A HREF=\"http://www.tcx.se/mail.html\">MySQL mailing list</A>.
</ADDRESS>
</BODY></HTML>
EOF
} exit 0;
sub read_config_data
{
my ($server,$file)=@_;
my (%limits,%prompts);
open(CONFIG_FILE,"<$file") ||
die "Can't open configure file $file\n";
while (<CONFIG_FILE>)
{
chomp;
if (/^(\S+)=([^\#]*[^\#\s])\s*(\# .*)*$/)
{
$all_limits{$1}=1;
$limits{$1}=$2;
$prompts{$1}=length($3) ? substr($3,2) : "";
}
elsif (!/^\s*$/ && !/^\#/)
{
die "Wrong config row: $_\n";
}
}
close CONFIG_FILE;
return ([$server,\%limits,\%prompts]);
}
sub find_match
{
my ($find,$find_not)=@_;
my ($key,@res);
foreach $key (@global_limits)
{
if ($key =~ /$find/ && (!defined($find_not) || !($key =~ /$find_not/)))
{
push(@res,$key);
$key="";
}
}
return @res;
}
sub print_match
{
my ($header,$match,$not_match,$no_server_names)=@_;
my ($key);
if ($opt_txt)
{
print "\n$header\n";
}
else
{
print "<tr><th colspan=$columns ALIGN=center>$header</th></tr>\n";
}
print_server_names() if (!$no_server_names);
foreach $key (find_match($match,$not_match))
{
print_key($key,$key eq "crash_me_safe" ? 1: 0);
}
}
sub print_options
{
my ($header)=@_;
if ($opt_txt)
{
print "\n$header\n";
}
else
{
print "<tr><th colspan=$columns ALIGN=center>$header</th></tr>\n";
}
print_server_names();
foreach $key (@global_limits)
{
if ($key && !($limits[0]->[1]{$key} =~ /^\d+$/))
{
print_key($key,0);
$key="";
}
}
}
sub print_key
{
my ($key,$fatal)=@_;
my ($i,$server,$option,$tmp);
$option=$key;
for ($i=0 ; $i < $columns ; $i++)
{
if ($limits[$i]->[2]{$key})
{
$option=$limits[$i]->[2]{$key};
last;
}
}
$option =~ s/>/>\;/g;
$option =~ s/</<\;/g;
if ($opt_txt)
{
print "\n$option\t";
foreach $server (@limits)
{
$tmp=$server->[1]->{$key};
$tmp="yes" if ($tmp eq "yes");
$tmp="no" if ($tmp eq "no" && !$fatal);
$tmp="warning" if ($tmp eq "no" && $fatal);
$tmp="error" if ($tmp eq "error");
$tmp="" if (!defined($tmp) || $tmp eq "");
print "\t$tmp";
}
}
else
{
$option =~ s/ / /g;
print "<tr><td>$option</td>";
foreach $server (@limits)
{
$tmp=$server->[1]->{$key};
$tmp="<IMG SRC=\"images/ok.gif\" WIDTH=20 HEIGHT=16 ALT=\"yes\">" if ($tmp eq "yes" && !$fatal);
$tmp="<IMG SRC=\"images/thumbs_up.gif\" ALT=\"yes\">" if ($tmp eq "yes" && $fatal);
$tmp="<IMG SRC=\"images/no.gif\" WIDTH=14 HEIGHT=14 ALT=\"no\">" if ($tmp eq "no" && !$fatal);
$tmp="<IMG SRC=\"images/warning.gif\" WIDTH=28 HEIGHT=28 ALT=\"warning\">" if ($tmp eq "no" && $fatal);
$tmp="<IMG SRC=\"images/error.gif\" WIDTH=20 HEIGHT=16 ALT=\"error\">" if ($tmp eq "error");
$tmp=" " if (!defined($tmp) || $tmp eq "");
print "<td>$tmp</td>";
}
print"</tr>\n";
}
}
sub print_server_names
{
my ($server);
if ($opt_txt)
{
my $tab;
$tab="";
foreach $server (@server_names)
{
print "$tab$server";
$tab="\t";
}
print "\n";
}
else
{
print "<tr><th></th>";
foreach $server (@server_names)
{
print "<th>$server</th>";
}
print "</tr>\n";
}
}
|
