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-ssl-update.pl

40 lines
512 B

my $input;
my $group;
my $protocol;
while( $input = <STDIN> )
{
chop $input;
if( $input =~ /^\[.*\]$/ )
{
if( $input =~ /^\[(korn-(\d+)-\d+)\]$/ )
{
$group = $1;
}
else
{
$group = "";
}
}
if( $input =~ /^protocol\=(.*)/ )
{
$protocol=$1;
print "[$group]\n";
if( $protocol eq "imaps" )
{
print "protocol=imap\n";
print "ssl=true\n";
}
elsif( $protocol eq "pop3s" )
{
print "protocol=pop3\n";
print "ssl=true\n";
}
else
{
print "ssl=false\n";
}
}
}