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