diff options
Diffstat (limited to 'korn/kconf_update/korn-3-5-metadata-update.pl')
| -rw-r--r-- | korn/kconf_update/korn-3-5-metadata-update.pl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/korn/kconf_update/korn-3-5-metadata-update.pl b/korn/kconf_update/korn-3-5-metadata-update.pl new file mode 100644 index 000000000..95723c4ee --- /dev/null +++ b/korn/kconf_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"; + } +} |