PAL.C.T MINI SHELL
# mod_disk_cache.pl
# Disk-caching related functions
sub mod_disk_cache_directives
{
local $rv;
$rv = [ [ 'CacheRoot', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheSize', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheGcInterval', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheDirLevels', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheDirLength', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheMinFileSize', 0, 13.1, 'virtual', 2.0 ],
[ 'CacheMaxFileSize', 0, 13.1, 'virtual', 2.0 ] ];
return &make_directives($rv, $_[0], "mod_disk_cache");
}
require 'cache.pl';
sub edit_CacheMinFileSize
{
return (1, $text{'cache_minfs'},
&opt_input($_[0]->{'value'}, "CacheMinFileSize", $text{'default'}, 8));
}
sub save_CacheMinFileSize
{
return &parse_opt("CacheMinFileSize", '^\d+$', $text{'cache_eminfs'});
}
sub edit_CacheMaxFileSize
{
return (1, $text{'cache_maxfs'},
&opt_input($_[0]->{'value'}, "CacheMaxFileSize", $text{'default'}, 8));
}
sub save_CacheMaxFileSize
{
return &parse_opt("CacheMaxFileSize", '^\d+$', $text{'cache_emaxfs'});
}
# XXX new stuff in mod_proxy
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`