blob: 1fba4eaeb5c2d82b8b24320692a869c757cca798 (
plain)
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
|
#!/usr/bin/perl
while (<>)
{
($key, $sizeSetting) = ($_ =~ /([^=]+)=[ \t]*([^\n]+)/);
if ($key eq "Size")
{
print "[General]\n";
if ($sizeSetting == '24')
{
print "Size=0\n";
}
elsif ($sizeSetting == '30')
{
print "Size=1\n";
}
elsif ($sizeSetting == '46')
{
print "Size=2\n";
}
elsif ($sizeSetting == '58')
{
print "Size=3\n";
}
elsif ($sizeSetting > 10)
{
print "Size=4\n";
print "CustomSize=" . $sizeSetting . "\n";
}
exit(0);
}
}
|