src/kile1.6_upd.pl


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

#!/usr/bin/perl
use POSIX qw(floor);
foreach (<>) 
{
	if(/^CleanUpFileExtensions(.*)/)
	{
		$values=$1;
		$values =~ s/,/ /g;
		print "CleanUpFileExtensions$values\n";
	}
	elsif (/^AutosaveInterval\s*=\s*(.*)\s*/)
	{
		$interval=floor($1/60000);
		if ( $interval < 1 ) { $interval=1; }
		print "AutosaveInterval=$interval\n";
	}
	elsif (/^use\s*=\s*(.*)\s*/)
	{
		$boolres=$1;
		$intres=0;
		if ( $boolres eq "true" ) { $intres = 1; }
		elsif ( $boolres eq "false" ) { $intres = 0; }
		print "use=$intres\n";
	}
	else
	{
		print $_;
	}
}