You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
425 B
28 lines
425 B
#!/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";
|
|
|