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, 0 insertions, 43 deletions
diff --git a/korn/kconf_update/korn-3-5-metadata-update.pl b/korn/kconf_update/korn-3-5-metadata-update.pl deleted file mode 100644 index 95723c4ee..000000000 --- a/korn/kconf_update/korn-3-5-metadata-update.pl +++ /dev/null @@ -1,43 +0,0 @@ -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"; - } -} |