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