blob: 94d1d4f914c1d21308982389a2c0d6d8e88bc516 (
plain)
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
|
#!/usr/bin/perl
my $logging = "false";
my $moduleLine;
while( my $line = <> )
{
if( $line =~ /LogAll/ )
{
$logging = "true";
}
if( $line =~ /^Modules=/ )
{
$moduleLine = $line;
}
}
$moduleLine =~ s/^Modules/Plugins/;
$moduleLine =~ s/\.plugin/\.desktop/g;
if ( $logging == "true" )
{
chomp $moduleLine;
$moduleLine = $moduleLine . ",history.desktop\n";
}
print $moduleLine;
print "# DELETE Modules\n";
|