TrxShell [ woocommerce.addifypro.com ]

Name	Size	Permission
1	23 B	-rwxr-xr-x
11	11 B	-rwxr-xr-x
12	44 B	-rwxr-xr-x
2	35 B	-rwxr-xr-x
22	464 B	-rwxr-xr-x
25	76 B	-rwxr-xr-x
25bl	775 B	-rwxr-xr-x
3	39 B	-rwxr-xr-x
33	31 B	-rwxr-xr-x
4	42 B	-rwxr-xr-x
5	125 B	-rwxr-xr-x
6	10 B	-rwxr-xr-x
7	45 B	-rwxr-xr-x
80	76 B	-rwxr-xr-x
88	39 B	-rwxr-xr-x
99	15 B	-rwxr-xr-x
bl	777 B	-rwxr-xr-x
c	18 B	-rwxr-xr-x
dai	2.52 KB	-rwxr-xr-x
logs	4.96 KB	-rwxr-xr-x
mqkill	480 B	-rwxr-xr-x
portchk	163 B	-rwxr-xr-x
restrict	2.62 KB	-rwxr-xr-x
ukill	60 B	-rwxr-xr-x

Code Editor : dai

#!/usr/bin/perl
sub manual{
        print ".....Na: \n";
        print "-u -> report user from domain request \n";
        print "Example dai -u sentry \n";
        print "-d -> report domain from user \n";
        print "Example dai -d sentry.com \n";
        print "-ms -> mail size \n";
        print "Example dai -ms sentry \n";
        print "-p -> user processes \n";
        print "Example dai -p sentry \n";
        print "-ds -> DB size \n";
        print "Example: dai -ds sentry \n";
        print "-cr -> CRON jobs \n";
        print "Example: dai -cr sentry \n";
        print "-slog -> check last 200 lines of mysql slow log\n";
        print "Example: dai -slog sentry \n";
        print "-hs -> check home folder size in /root/admin/acc_size_old\n";
        print "Example: dai -hs sentry \n";
}
sub dai{
        ($option, $variable) = @_;
        if($option eq "-u"){
                $reply = `grep $variable /var/cpanel/users/*`;
                my @line = split /:/, $reply;
                $line[0] =~ s/(.*)\/(.*)/$2/;
                $line[1] =~ s/(.*)=(.*)/$2/;
                print "User: $line[0]\t\tDomain: $line[1]\n";
        }elsif($option eq "-d"){
                my $i=1;
                open USER, '<', "/var/cpanel/users/$variable" or die "Unable to open file(/var/cpanel/users/$variable): $!\n";
                while (<USER>) {
                        if ($_ =~ /DNS/) {
                                $_ =~ s/(.*)=(.*)/$2/;
                                print "$i: $_";
                                $i++;
                        }
                }
                close USER;
                $i--;
                print "All count: $i\n";
        }elsif($option eq "-ms"){
                $reply = `du -s /home/$variable/mail`;
                print "$reply";
        }elsif($option eq "-p"){
                $reply = `ps -elf | grep $variable`;
                print "$reply";
        }elsif($option eq "-ds"){
                $reply = `du -s /var/lib/mysql/$variable*`;
                print "$reply";
        }elsif($option eq "-cr"){
                $reply = `cat /var/spool/cron/$variable`;
                print "$reply"; 
        }elsif($option eq "-slog"){
                $reply = `tail -n 200 /var/lib/mysql/mysql-slow.log | grep -A2 -B1 $variable`;
                print "$reply";      
        }elsif($option eq "-hs"){
                $reply = `grep $variable /root/admin/acc_size_old`;
                print "Approx. home folder size: $reply";
        } else{
                manual;
        }
}
dai($ARGV[0], $ARGV[1]);

${this.title}

Code Editor : dai