1
by brian
clean slate |
1 |
#!@PERL@
|
2 |
# This is a utility for MySQL. It is not needed by any standard part
|
|
3 |
# of MySQL.
|
|
4 |
||
5 |
# Usage: mysql_fix_extentions datadir
|
|
6 |
# does not work with RAID, with InnoDB or BDB tables
|
|
7 |
# makes .frm lowercase and .MYI/MYD/ISM/ISD uppercase
|
|
8 |
# useful when datafiles are copied from windows
|
|
9 |
||
10 |
die "Usage: $0 datadir\n" unless -d $ARGV[0]; |
|
11 |
||
12 |
for $a (<$ARGV[0]/*/*.*>) { $_=$a; |
|
13 |
s/\.frm$/.frm/i; |
|
14 |
s/\.(is[md]|my[id])$/\U$&/i; |
|
15 |
rename ($a, $_) || warn "Cannot rename $a => $_ : $!"; |
|
16 |
}
|