#!/usr/bin/perl -W
#made by ev1lut10n
#sysadmin tool to match domain and cpanel user

open(PROSES_MYSQL, "ls /var/cpanel/users |");
while (<PROSES_MYSQL>)
	{
                $username =  $_;
           	       $username=~ s/^\s+//; 
		       $username=~ s/\s+$//;
		 
			open(PROSES_KU, "cat $username |");
			while (<PROSES_KU>)
				{
					$tampilan_proses2 =  $_;
					 $tampilan_proses2=~ s/^\s+//; 
						$tampilan_proses2=~ s/\s+$//;
					if($tampilan_proses2=~/DNS=/)
					  {
						  
						  print "\nusername : $username\n";
					          print "\ndomain : $tampilan_proses2\n";	
						  print "\n========================================\n";
					 }
				}
			close(PROSES_K);
       }
close(PROSES_MYSQL);

sub str_replace {
eval
 {
my $replace_this = shift;
    my $with_this  = shift;
    my $string   = shift;
 
    my $length = length($string);
    my $target = length($replace_this);
 
    for(my $i=0; $i<$length - $target + 1; $i++) {
        if(substr($string,$i,$target) eq $replace_this) {
            $string = substr($string,0,$i) . $with_this . substr($string,$i+$target);
            return $string; 
        }
    }
    return $string;
}	
}