mirror of
https://bitbucket.org/smil3y/kde-playground.git
synced 2025-02-24 02:42:51 +00:00
18 lines
265 B
Perl
18 lines
265 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
# Convert pre-2.0.2 General section settings.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my @lines;
|
||
|
|
while (<>)
|
||
|
|
{
|
||
|
|
chomp;
|
||
|
|
if (/^(EmailFrom|EmailBccAddress)=\@ControlCenter$/) {
|
||
|
|
push @lines, "$1=\@SystemSettings\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (@lines) {
|
||
|
|
print "[General]\n";
|
||
|
|
print @lines;
|
||
|
|
}
|