use Debbugs::Common;
use Digest::MD5 qw(md5_hex);
use File::LibMagic;
-use File::Temp qw(tempfile);
use Debbugs::Libravatar qw(:libravatar);
use Libravatar::URL;
-use HTTP::Request;
-
use CGI::Simple;
use Cwd qw(abs_path);
# figure out what the md5sum of the e-mail is.
my $email_md5sum = md5_hex(lc($param{email}));
-my $cache_location = cache_location(email => lc($param{email}));
+my ($cache_location, $is_valid) = cache_location(email => lc($param{email}));
# if we've got it, and it's less than one hour old, return it.
-if (cache_valid($cache_location)) {
+if ($is_valid) {
serve_cache($cache_location,$q);
exit 0;
}