On Sat, Mar 15, 2008 at 02:44:42PM -0700, Jakub Narebski wrote:
> Petr Baudis <pasky@xxxxxxx> writes:
> This could be much simplified with perl-cache (perl-Cache-Cache).
> Unfortunately this is non-standard module, not distributed (yet?)
> with Perl.
I think somebody who actually needs this can be bothered to install a
CPAN perl module. This should probably not enabled by default anyway.
> Warning: not tested in gitweb!
>
> + use Cache::FileCache;
> +
> + my $cache;
> + my $projects;
> +
> + if ($cache_lifetime) {
> + $cache = new Cache::FileCache(
> + { namespace => 'gitweb',
> + default_expires_in => $cache_lifetime
> + });
> + $projects = $cache->get('projects_list');
> + }
> + if (!defined $projects) {
> + $projects = [ git_get_projects_details($projlist, $check_forks); ];
> + $cache->set('projects_list', $projects)
> + if defined $cache;
> + }
Gruesse,
--
Frank Lichtenheld <frank@xxxxxxxxxxxxxx>
www: http://www.djpig.de/
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
