diff options
author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 01:05:15 -0600 |
---|---|---|
committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 01:05:15 -0600 |
commit | 64df902cf71a8ee258fb85f6be26248f399aa01f (patch) | |
tree | dba58f705042c22cea26b678d5b0e4e9a34bf202 /korn/tdeconf_update/korn-3-5-metadata-update.pl | |
parent | de53c98cab07e9c4b0f5e25dab82830fb6fc67ec (diff) | |
download | tdepim-64df902cf71a8ee258fb85f6be26248f399aa01f.tar.gz tdepim-64df902cf71a8ee258fb85f6be26248f399aa01f.zip |
Rename a number of libraries and executables to avoid conflicts with KDE4
Diffstat (limited to 'korn/tdeconf_update/korn-3-5-metadata-update.pl')
-rw-r--r-- | korn/tdeconf_update/korn-3-5-metadata-update.pl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/korn/tdeconf_update/korn-3-5-metadata-update.pl b/korn/tdeconf_update/korn-3-5-metadata-update.pl new file mode 100644 index 000000000..95723c4ee --- /dev/null +++ b/korn/tdeconf_update/korn-3-5-metadata-update.pl @@ -0,0 +1,43 @@ +my $input; +my $group; +my $auth = ""; +my $tls = ""; +my $metadata = ""; + +while( $input = <STDIN> ) +{ + chop $input; + if( $input =~ /^\[.*\]$/ ) + { + if( $metadata ) + { + print "[$group]\n"; + print "metadata=$metadata\n"; + $metadata=""; + } + + if( $input =~ /^\[(korn-(\d+)-\d+)\]$/ ) + { + $group = $1; + } + else + { + $group = ""; + } + $auth=""; + $tls=""; + } + + if( $input =~ /^auth\=(.*)/ ) + { + $metadata=$tls ? "auth=$1,tls=$tls" : "auth=$1"; + $auth=$1; + print "# DELETE [$group]auth\n"; + } + elsif( $input =~ /^tls\=(.*)/ ) + { + $metadata=$auth ? "auth=$auth,tls=$1" : "tls=$1"; + $tls=$1; + print "# DELETE [$tls]tls\n"; + } +} |