← Back to branch summary

~clint-fewbar/ubuntu/precise/squid3/ignore-sighup-early

« back to all changes in this revision

Viewing changes to scripts/check_cache.pl

  • Committer: Bazaar Package Importer
  • Author(s): Luigi Gangitano
  • Date: 2006-11-11 10:32:06 UTC
  • Revision ID: james.westby@ubuntu.com-20061111103206-f3p0r9g0vq44rp3r
Tags: upstream-3.0.PRE5
Import upstream version 3.0.PRE5

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/check_cache.pl
 
1
#!/usr/local/bin/perl
 
2
 
 
3
# check_cache.pl 
 
4
#
 
5
# Squid-1.0 version by martin hamilton <m.t.hamilton@lut.ac.uk>
 
6
# Squid-1.1 version by Bertold Kolics <bertold@tohotom.vein.hu>
 
7
#
 
8
# Check the Squid-1.1.x cache directory for stale objects - i.e. those
 
9
# which exist on disk but aren't listed in cached's log file.
 
10
 
 
11
# $Id: check_cache.pl,v 1.5 2003/01/23 00:37:06 robertc Exp $
 
12
 
 
13
require "getopts.pl";
 
14
&Getopts("c:drt:vh");
 
15
# -c            : the full path to squid.conf
 
16
# -d            : turn on debugging
 
17
# -r            : actually remove stale files
 
18
# -t tmpdir     : temporary directory
 
19
# -v            : list stale files
 
20
# -h            : print the help
 
21
 
 
22
if ($opt_h) {
 
23
        print "Usage: check_cache.pl -drvh -c squid.conf\n";
 
24
        print "\t-c the full path to squid.conf\n";
 
25
        print "\t-d turn on debugging\n";
 
26
        print "\t-r actually remove stale files\n";
 
27
        print "\t-t temporary directory\n";
 
28
        print "\t-v list stale files\n";
 
29
        print "\t-h print the help\n";
 
30
        exit;
 
31
}
 
32
 
 
33
$squidconf = $opt_c || "/usr/local/squid/etc/squid.conf";
 
34
open (squidconf) || die "$squidconf: $!\n";
 
35
$no_cachedir = 0;
 
36
$swaplog = '';
 
37
$level1dirno = 16;
 
38
$level2dirno = 256;
 
39
while (<squidconf>) {
 
40
        chop;
 
41
        if (/^cache_dir\s+(.*)/) {
 
42
                push (@cachedir, $1);
 
43
        } elsif (/cache_swap_log\s+(.*)/) {
 
44
                $swaplog = $1;
 
45
        } elsif (/swap_level1_dirs/) {
 
46
                $level1dirno = $1;
 
47
        } elsif (/swap_level21_dirs/) {
 
48
                $level2dirno = $1;
 
49
        }
 
50
}
 
51
close (squidconf);
 
52
push (@cachedir, '/usr/local/squid/cache') unless ($#cachedir > $[-1);
 
53
$swaplog = $cachedir[0] . '/log' unless ($swaplog);
 
54
$no_cachedir = $#cachedir + 1;
 
55
print "$no_cachedir CACHE DIRS: ", join(' ', @cachedir), "\n" if ($opt_d);
 
56
print "SWAP LOG: $swaplog\n" if ($opt_d);
 
57
 
 
58
$tmpdir = $opt_t || $ENV{TMPDIR} || "/var/tmp";
 
59
chdir($tmpdir);
 
60
 
 
61
# snarf file numbers from Squid log & sort em
 
62
system("cut -f1 -d' ' $swaplog |tr [a-z] [A-Z] >pl$$");
 
63
system("sort -T $tmpdir pl$$ >spl$$; rm pl$$");
 
64
 
 
65
# get list of files in cache & sort em
 
66
for ($i = 0 ; $i < $no_cachedir; $i++) {
 
67
        chdir($cachedir[i]);
 
68
        system("find ./ -print -type f > $tmpdir/fp$$");
 
69
        chdir($tmpdir);
 
70
# this cut prints only the lines with 4 fields so unnecessary lines
 
71
# are supressed
 
72
        system("cut -d'/' -f4 -s fp$$ >> cd$$ ; rm fp$$")
 
73
}
 
74
system("sort -T $tmpdir cd$$ >scd$$; rm cd$$");
 
75
 
 
76
# get list of objects on disk (scd$$) but not in the log (spl$$)
 
77
system("comm -13 spl$$ scd$$ >comm$$; rm spl$$ scd$$");
 
78
 
 
79
chdir($tmpdir);
 
80
# iterate through it
 
81
open(IN, "comm$$") || die "Can't open temporary file $tmpdir/comm$$: $!";
 
82
unlink("comm$$");
 
83
while(<IN>) {
 
84
        chop;
 
85
        $filename = $_;
 
86
 
 
87
# calculate the full path of the current filename
 
88
        $fileno = hex($filename);
 
89
        $dirno = $fileno % $no_cachedir;
 
90
        $a = $fileno / $no_cachedir;
 
91
        $level1 = sprintf("%02X", $a % $level1dirno);
 
92
        $level2 = sprintf("%02X", $a / $level1dirno % $level2dirno);
 
93
        $filename = "$cachedir[dirno]/$level1/$level2/$filename";
 
94
 
 
95
        next if -d "$filename"; # don't want directories
 
96
 
 
97
        print "$filename\n" if $opt_v; # print filename if asked
 
98
 
 
99
        # skip if cached file appeared since script started running
 
100
        if (-M $filename < 0) {
 
101
                print STDERR "skipping $filename\n" if $opt_d;
 
102
                next;
 
103
        }
 
104
        print "Orphan: $filename\n";
 
105
        unlink($filename) if $opt_r; # only remove if asked!
 
106
}
 
107
close(IN);