1#!/usr/local/bin/perl
2use POSIX qw(floor);
3foreach (<>)
4{
5	if(/^CleanUpFileExtensions(.*)/)
6	{
7		$values=$1;
8		$values =~ s/,/ /g;
9		print "CleanUpFileExtensions$values\n";
10	}
11	elsif (/^AutosaveInterval\s*=\s*(.*)\s*/)
12	{
13		$interval=floor($1/60000);
14		if ( $interval < 1 ) { $interval=1; }
15		print "AutosaveInterval=$interval\n";
16	}
17	elsif (/^use\s*=\s*(.*)\s*/)
18	{
19		$boolres=$1;
20		$intres=0;
21		if ( $boolres eq "true" ) { $intres = 1; }
22		elsif ( $boolres eq "false" ) { $intres = 0; }
23		print "use=$intres\n";
24	}
25	else
26	{
27		print $_;
28	}
29}
30