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.
44 lines
642 B
44 lines
642 B
15 years ago
|
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";
|
||
|
|
}
|
||
|
|
}
|