Proxy 4 - Cache size keeps growing

Question

I may have a wrong cache setting somewhere, but I can't find it. I am running Proxy 4.0.2 (for windows).
Under Cache settings, I have "Cache Size" set to 800MB. Under "Cache Capacity" I have it set to 1GB (500 MB-2GB).
The problem is my physical cache size on the hard drive keeps growing and growing and is starting to fill the partition on the hard drive. At last count, the "cache" directory on the hard drive which holds the cache files is now using 5.7GB of space and still growing.
Am I mis-understanding something? I thought the max physical size would be a lot lower, and stop at a given size. But the cache directory on the hard drive is now close to 6GB and still growing day by day. When is it going to stop growing, or how do I stop it and put a cap on the physical size it can grow to on the hard drive?
Thanks

Answer 1

Until 4.03 is out, you can use this script..
Warning: experimental, run this on a copy of cache first to make sure that it works as you want it.
The firs argument is the size in MB's that you want to remove.
I assume your cachedir is "./cache" if it is not, then change the variable $cachedir to
the correct value.
==============cut-here==========
#!/bin/perl
use strict;
use File::stat;
my $cachedir = "./cache";
my $gc_size; #bytes
my $verbose = 0;
sub gc_file {
    my $file = shift;
    my $sb = stat($file);
    $gc_size -= $sb->size;
    unlink $file;
    print "$gc_size more after $file\n" if $verbose;
    exit 0 if $gc_size < 0;
sub main {
    my $size = shift;
    $gc_size = $size * 1024 * 1024; #in MB's
    opendir(DIR, $cachedir) || die "can't opendir $cachedir: $!";
    my @sects = grep {/^s[0-9]\.[0-9]{2}$/} readdir(DIR);
    closedir DIR;
    foreach my $sect (@sects) {
        chomp $sect;
        opendir (CDIR, "$cachedir/$sect") || die "cant opendir $cachedir/$sect: $!";
        my @ssects = grep {/^[A-F0-9]{2}$/} readdir(CDIR);
        closedir CDIR;
        foreach my $ssect (@ssects) {
            chomp $ssect;
            opendir (SCDIR, "$cachedir/$sect/$ssect") || die "cant opendir $cachedir/$sect/$ssect: $!";
            my @files = grep {/^[A-Z0-9]{16}$/} readdir(SCDIR);
            closedir SCDIR;
            foreach my $file (@files) {
                gc_file "$cachedir/$sect/$ssect/$file";
main $ARGV[0] if $ARGV[0];
=============cut-end==========On your second problem, the easiest way to recover a corrupted partition is to list out the sections in that partition, and delete those sections that seem like odd ones
eg:
$ls ./cache
s4.00 s4.01 s4.02 s4.03 s4.04 s4.05 s4.06 s4.07 s4.08 s4.09 s4.10 s4.11 s4.12 s4.13 s4.14 s4.15 s0.00
Here the s0.00 is the odd one out, so remove the s0.00 section. Also keep an eye on the relative sizes of the sections. if the section to be removed is larger than the rest of the sections combinde, you might not want to remove that.
WARNING: anything you do, do on a copy