crdata.txt

来自「a very userful email managing service」· 文本 代码 · 共 25 行

#!/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;