blob: 3925a52ff4158d02b9be4f72ce6542b6801d1fa1 (
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
|
#!/usr/bin/perl -w
# Olivier Goffart <ogoffart @ tiscalinet.be>
# License: GPL
use strict;
# This script rename old plugin datas key.
# It remove the PlguinData_PLUGINID_ prefix from keys.
# read the whole config file
my $currentGroup = "";
my %configFile;
while ( <> ) {
chomp; # eat the trailing '\n'
next if ( /^$/ ); # skip empty lines
next if ( /^\#/ ); # skip comments
if ( /^\[/ ) { # group begin
$currentGroup = $_;
next;
} elsif ( $currentGroup =~ /^\[Account_/ and /^PluginData\_.+_(.+)=(.+)$/ )
{
print "$currentGroup\n$1=$2\n";
my ($key,$value) = split /=/;
print "# DELETE $currentGroup$key\n";
}
}
|