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.
32 lines
772 B
32 lines
772 B
15 years ago
|
#!/usr/bin/perl
|
||
|
|
# David Faure <faure@kde.org>
|
||
|
|
# License: GPL
|
||
|
|
|
||
|
|
$currentGroup = "";
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
next if /^$/;
|
||
|
|
# recognize groups:
|
||
|
|
if ( /^\[(.+)\]$/ ) {
|
||
|
|
$currentGroup = $1;
|
||
|
|
if ( $currentGroup =~ /^Identity/ ) {
|
||
|
|
print "# DELETEGROUP [$currentGroup]\n";
|
||
|
|
print "[$currentGroup]\n";
|
||
|
|
}
|
||
|
|
next;
|
||
|
|
};
|
||
|
|
# Move over keys from the identity groups
|
||
|
|
if ( $currentGroup =~ /^Identity/ ) {
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
# Move over the key for the default identity
|
||
|
|
elsif ( $currentGroup eq 'General' ) {
|
||
|
|
($key,$value) = split /=/;
|
||
|
|
chomp $value;
|
||
|
|
if ( $key eq 'Default Identity' ) {
|
||
|
|
print "[$currentGroup]\n$key=$value\n";
|
||
|
|
print "# DELETE [$currentGroup]$key\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|