File indexing completed on 2024-03-24 16:41:46

0001 #!/usr/bin/perl
0002 use POSIX qw(floor);
0003 foreach (<>) 
0004 {
0005     if(/^CleanUpFileExtensions(.*)/)
0006     {
0007         $values=$1;
0008         $values =~ s/,/ /g;
0009         print "CleanUpFileExtensions$values\n";
0010     }
0011     elsif (/^AutosaveInterval\s*=\s*(.*)\s*/)
0012     {
0013         $interval=floor($1/60000);
0014         if ( $interval < 1 ) { $interval=1; }
0015         print "AutosaveInterval=$interval\n";
0016     }
0017     elsif (/^use\s*=\s*(.*)\s*/)
0018     {
0019         $boolres=$1;
0020         $intres=0;
0021         if ( $boolres eq "true" ) { $intres = 1; }
0022         elsif ( $boolres eq "false" ) { $intres = 0; }
0023         print "use=$intres\n";
0024     }
0025     else
0026     {
0027         print $_;
0028     }
0029 }