crdata.txt

a very userful email managing service

#!/usr/bin/perl -w

dbmopen(%cdata,"/etc/httpddata/passdata.dat",0600);
open(PF,"/etc/passwd");
while(<PF>)
{
chomp;
($user,$pass,$uid)=split(':',$_);
$cdata{"$user"}="$uid";
}
close(PF);
open(AF,"/etc/aliases");
while(<AF>)
{
chomp;
if((/\:/))
{
($alias,$extra)=split(':',$_);
$cdata{"$alias"}='A';
}
}
close(AF);
dbmclose %cdata;