You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
676 B
36 lines
676 B
package CMTD::Helpers; |
|
|
|
use strict; |
|
use warnings; |
|
use utf8; |
|
|
|
use Mojo::Base 'Mojolicious::Plugin'; |
|
|
|
sub register { |
|
my ($self, $app) = @_; |
|
|
|
$app->helper(referrer => sub { |
|
my ($c, $url) = @_; |
|
my $url = $c->req->headers->referrer || |
|
$c->req->param('url'); |
|
return $url; |
|
}); |
|
|
|
$app->helper(pageid => sub { |
|
my ($c, $url) = @_; |
|
return unless $url; |
|
|
|
my $u = Mojo::URL->new($url); |
|
my $site = $u->host; |
|
my $path = $u->path; |
|
$path =~ s{^/+}{}o; |
|
$path =~ s{/+$}{}o; |
|
$path =~ y{/.}{-}s; |
|
$path =~ s<\.[a-z0-9]{2,4}$><>io; |
|
my $md5 = md5_sum($path); |
|
|
|
return {site => $site, pid => $md5, path => $path}; |
|
}); |
|
} |
|
|
|
1;
|
|
|