apache防盗链（mod_perl试用三）

sub handler {
    my $r = shift;
    my $s = Apache2::ServerUtil->server;
    my $secret = $r->dir_config('Secret') || '';#这里可以写成$r->dir_config->{Secret}
    my $uri = $r->uri() || '';
    my $expire = 2 * 3600;
+    my $referer = $r->headers_in->{Referer} || '';#这里却不可以写成$r->headers_in(Referer)，会报错“argument is not a blessed reference (expecting an APR::Table derived object)，不知道为什么？
+    if ($referer =~ m#^http://music.test.com#oi){
    if ($uri =~ m#^/(d{4})(d{2})(d{2})(d{2})(d{2})/(w{32})(/S+.mp3)$#oi){
        my ($year, $mon, $mday, $hour, $min, $md5, $path) = ($1, $2, $3, $4, $5, $6, $7);
        my $str = md5_hex($secret . $year . $mon . $mday . $hour . $min . $path);
        my $reqtime = mktime(00, $min, $hour, $mday, $mon - 1, $year - 1900);
        my $now = time;
        if ( $now - $reqtime < $expire){
                if ($str eq $md5) {
                    $r->uri("$path");
                    return Apache2::Const::DECLINED;
                }
        }
   }
+}
}