mirror of
https://bitbucket.org/smil3y/kde-playground.git
synced 2025-02-24 10:52:52 +00:00
17 lines
265 B
Perl
17 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;
|
|
}
|