|
|
| System | : | Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686 |
|---|
| Software | : | Apache. PHP/5.3.6-13ubuntu3.10 |
|---|
| ID | : | uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
|
|---|
|
| Safe Mode | : | OFF |
|---|
| Open_Basedir | : | OFF |
|---|
| Freespace | : | 25.59 GB of 70.42 GB (36.34%) |
|---|
|
|
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON |
|
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
|
[ System Info ]
[ Processes ]
[ SQL Manager ]
[ Eval ]
[ Encoder ]
[ Mailer ]
[ Back Connection ]
[ Backdoor Server ]
[ Kernel Exploit Search ]
[ MD5 Decrypter ]
[ Reverse IP ]
[ Kill Shell ]
[ FTP Brute-Force ]
|
|
/
usr/
src/
courier-0.66.1/
webmail/
- drwxrwxrwx
|
Viewing file:  cleancache.pl (1.74 KB) -rw-rw-r--Select action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#! /usr/bin/perl
#
#
# Copyright 1998 - 2000 Double Precision, Inc. See COPYING for
# distribution information.
#
# This script is only used when sqwebmail is compiled with the option to
# use a cache to store login information (saving a getpw lookup for each
# HTTP request, which can be very expensive on large sites).
#
# If the login cache option is used, this script must be regularly executed
# by cron to remove stale cache entries.
$cachedir="/usr/var/webmail-logincache";
$timeout=7200; # DO NOT CHANGE UNDER PENALTY OF LAW!!!
# If you change the hard timeout as described in
# INSTALL, you'll have to fix this, and you'll have
# to delete the contents of cachedir.
# YOU'VE BEEN WARNED.
chdir($cachedir) || exit 0;
#
# timeout is hardcoded at configure time. Cached entries are created in
# subdirs named after int( time / $timeout). Therefore, the oldest possibly
# valid login would be in ( (time-$timeout) / $timeout ), or:
#
$oldestdir=int(time / $timeout)-1;
#
# So, our task is simply to remove all directories older than that.
#
opendir(TOPDIR, ".") || exit 0;
while (defined ($name=readdir(TOPDIR)))
{
next unless $name =~ /^[0-9]+$/;
next unless $name < $oldestdir;
push @DIRS, $name;
}
closedir(TOPDIR);
while ( defined ($name=shift @DIRS) )
{
chdir($name) && &rmrf && chdir("..") && rmdir($name) && next;
chomp(($pwd=`pwd`)); die "$pwd/$name: $!\n";
}
sub rmrf {
my(@dir);
my($name);
opendir(DIR, ".") || return 0;
while (defined ($name=readdir(DIR)))
{
next if $name eq "." || $name eq "..";
push @dir, $name;
}
closedir(DIR);
while ( defined ($name=shift @dir))
{
next if unlink($name);
chdir($name) && &rmrf && chdir("..") && rmdir($name) && next;
chomp(($pwd=`pwd`)); die "$pwd/$name: $!\n";
}
return 1;
}
|
