You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
661 B
35 lines
661 B
#!/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);
|
|
}
|
|
}
|
|
|