00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 54 68 69 73 20 69
73 20 61 20 75 74 69 6C 69 74 79 20 66 6F 72 20 4D 79 53 51 4C 2E 20 49
74 20 69 73 20 6E 6F 74 20 6E 65 65 64 65 64 20 62 79 20 61 6E 79 20 73
74 61 6E 64 61 72 64 20 70 61 72 74 0A 23 20 6F 66 20 4D 79 53 51 4C 2E
0A 0A 23 20 55 73 61 67 65 3A 20 6D 79 73 71 6C 5F 66 69 78 5F 65 78 74
65 6E 74 69 6F 6E 73 20 64 61 74 61 64 69 72 0A 23 20 64 6F 65 73 20 6E
6F 74 20 77 6F 72 6B 20 77 69 74 68 20 52 41 49 44 2C 20 77 69 74 68 20
49 6E 6E 6F 44 42 20 6F 72 20 42 44 42 20 74 61 62 6C 65 73 0A 23 20 6D
61 6B 65 73 20 2E 66 72 6D 20 6C 6F 77 65 72 63 61 73 65 20 61 6E 64 20
2E 4D 59 49 2F 4D 59 44 2F 49 53 4D 2F 49 53 44 20 75 70 70 65 72 63 61
73 65 0A 23 20 75 73 65 66 75 6C 20 77 68 65 6E 20 64 61 74 61 66 69 6C
65 73 20 61 72 65 20 63 6F 70 69 65 64 20 66 72 6F 6D 20 77 69 6E 64 6F
77 73 0A 0A 64 69 65 20 22 55 73 61 67 65 3A 20 24 30 20 64 61 74 61 64
69 72 5C 6E 22 20 75 6E 6C 65 73 73 20 2D 64 20 24 41 52 47 56 5B 30 5D
3B 0A 0A 66 6F 72 20 24 61 20 28 3C 24 41 52 47 56 5B 30 5D 2F 2A 2F 2A
2E 2A 3E 29 20 7B 20 24 5F 3D 24 61 3B 0A 20 20 73 2F 5C 2E 66 72 6D 24
2F 2E 66 72 6D 2F 69 3B 0A 20 20 73 2F 5C 2E 28 69 73 5B 6D 64 5D 7C 6D
79 5B 69 64 5D 29 24 2F 5C 55 24 26 2F 69 3B 0A 20 20 72 65 6E 61 6D 65
20 28 24 61 2C 20 24 5F 29 20 7C 7C 20 77 61 72 6E 20 22 43 61 6E 6E 6F
74 20 72 65 6E 61 6D 65 20 24 61 20 3D 3E 20 24 5F 20 3A 20 24 21 22 3B
0A 7D 0A | #!/usr/bin/perl # This i
s a utility for MySQL. I
t is not needed by any s
tandard part # of MySQL.
# Usage: mysql_fix_ext
entions datadir # does n
ot work with RAID, with
InnoDB or BDB tables # m
akes .frm lowercase and
.MYI/MYD/ISM/ISD upperca
se # useful when datafil
es are copied from windo
ws die "Usage: $0 datad
ir\n" unless -d $ARGV[0]
; for $a (<$ARGV[0]/*/*
.*>) { $_=$a; s/\.frm$
/.frm/i; s/\.(is[md]|m
y[id])$/\U$&/i; rename
($a, $_) || warn "Canno
t rename $a => $_ : $!";
} |