#!/usr/athena/bin/perl
while(<>){
chop;
if(/^#/){next;}
if(/^(.*?):\s*(.*)$/){
 ($alias,$dest)=($1,$2);
 if($dest=~/^\"(.*?)\"$/){$dest=$1;}
 print "Alias $alias -> $dest\n";
 open(FOO,">.qmail-$alias");
 print FOO $dest."\n";
 close(FOO);
}
}