Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl

...
@files = grep readfile($_) =~ /^Uid:\s*33\b/m, @files;
@files = grep readfile($_) =~ /^VmData:\s*(\d+)/m && $1 > 16384, @file
+s;
/(\d+)/ and print("Killing $1\n") and kill 15, $1 for @files;
  2. or download this
    * * * * * perl /root/apachekill.pl 2>/dev/null