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.
tdepim/korn/kconf_update/korn-3-5-metadata-update.pl

44 lines
642 B

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";
}
}