pkit_startup — Class method called at server startup.
sub pkit_startup {
my ($class, $pkit_root, $server, $config) = @_;
my $pic_cache_dir = $config->get_global_attr('my_picture_cache') || '';
my $unlink_sub = sub {
-f && unlink;
};
File::Find::find(sub { -f && unlink }, $pic_cache_dir);
}
Called at server startup with PageKit root, server, and configuration object passed as parameters. Note that the configuration API may change.