#!/usr/bin/perl -W
#zedi.pl the lord videl made by: ev1lut10n

our $direktori_chroot="/home/nginx/";

our $direktori_chroot_named="/var/named/chroot/var/named/";
our $old_ip="old_ip_here";
our $old_ip2="old_ip2_here";
our $new_ip="new_ip_here";

our $old_ns1="old ns 0";
our $old_ns2="old ns 1";



our $old_ns1b="old ns 2";
our $old_ns2b="old ns 3";

our $new_ns1="new_private_ns_here";
our $new_ns2="new private ns here";


our $old_soa_ktk="old email on soa";
our $new_soa_ktk="h4x0r.l33tb0x.org";


our $dir_old_cpanel_environment="/home/mywisdom/users/";

our $direktori_sites_nginx="/home/nginx/usr/local/nginx/sites-enabled/";

sub readall_tgz_and_add_user
{


$direktori_file_tgz="/root/c/";
system("cd $direktori_file_tgz");
open(PROSES_MYSQL, "cd /root/c;ls *.tgz |");
while (<PROSES_MYSQL>)
           {
$file_tgz =  $_;
              $nama_user=~ s/^\s+//;
                      $nama_user=~ s/\s+$//;
             $file_tgz=~ s/^\s+//;
                    $file_tgz=~ s/\s+$//;

$nama_user=str_replace(".tgz","",$file_tgz);
$perintah_add_user="adduser -s /usr/sbin/nologin -d /home/".$nama_user." -M ".$nama_user;


          system($perintah_add_user);


$perintah_kopi_tgz="mkdir /home/".$nama_user.";cp ".$file_tgz." /home/".$nama_user.";cd /home/".$nama_user.";tar zxvf ".$file_tgz."";


        system($perintah_kopi_tgz);


$perintah_kopi_ke_chroot="cd ".$direktori_chroot."home/;mkdir ".$nama_user;
$perintah_kopi_ke_chroot.=";cp ".$direktori_file_tgz."/".$file_tgz." ".$direktori_chroot."home/".$nama_user;
$perintah_kopi_ke_chroot.=";cd ".$direktori_chroot."home/$nama_user;tar zxvf ".$file_tgz;


        system($perintah_kopi_ke_chroot);
       
         
       }
close(PROSES_MYSQL);
}
      

sub replace_all_var_chroot_named
{
open(PROSES_MYSQL, "cd /var/named/chroot/var/named/;ls *.db |");
while (<PROSES_MYSQL>)
           {
             $file_named =  $_;
                $file_named=~ s/^\s+//;
                     $file_named=~ s/\s+$//;
           
            $perintah_rep_ip="perl -p -i -e 's/$old_ip/$new_ip/' /var/named/chroot/var/named/".$file_named;

           
            system($perintah_rep_ip);
            print "\n";


            $perintah_rep_ip2="perl -p -i -e 's/$old_ip2/$new_ip/' /var/named/chroot/var/named/".$file_named;

           
            system($perintah_rep_ip2);
            print "\n";


            $perintah_rep_ns1="perl -p -i -e 's/$old_ns1/$new_ns1/' /var/named/chroot/var/named/".$file_named;

           

            system($perintah_rep_ns1);

            print "\n";

            $perintah_rep_ns2="perl -p -i -e 's/$old_ns2/$new_ns2/' /var/named/chroot/var/named/".$file_named;




   
            system($perintah_rep_ns2);
                        print "\n";

           
           
           
           
           
           
           
            $perintah_rep_ns1b="perl -p -i -e 's/$old_ns1b/$new_ns1/' /var/named/chroot/var/named/".$file_named;

            system($perintah_rep_ns1b);
            print "\n";


            $perintah_rep_ns2b="perl -p -i -e 's/$old_ns2b/$new_ns2/' /var/named/chroot/var/named/".$file_named;

            system($perintah_rep_ns2b);

           
                        print "\n";

           



            $perintah_soa_ktk="perl -p -i -e 's/$old_soa_ktk/$new_soa_ktk/' /var/named/chroot/var/named/".$file_named;








       
            system($perintah_soa_ktk);
            print "\n";



               

       }   
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; #Comment this if you what a global replace
        }
    }
    return $string;
}
}


replace_all_var_chroot_named();
 readall_tgz_and_add_user();