626d16b74a
use escape "hyphen" at HTC templates to concatenate words by hyphens. This fill fix URLs with filenames generated from series or program title.
27 lines
436 B
Perl
27 lines
436 B
Perl
package HTML::Template::Compiled::Plugin::Hyphen;
|
|
use strict;
|
|
use warnings;
|
|
|
|
HTML::Template::Compiled->register(__PACKAGE__);
|
|
|
|
sub escape_whitespace {
|
|
my ($s) = @_;
|
|
$s =~ s/\s/-/g;
|
|
$s =~ s/\-+/-/g;
|
|
$s =~ s/\-$//g;
|
|
$s =~ s/^\-//g;
|
|
return $s;
|
|
}
|
|
|
|
sub register {
|
|
my ($class) = @_;
|
|
my %plugs = (
|
|
escape => {
|
|
HYPHEN => \&escape_whitespace
|
|
},
|
|
);
|
|
return \%plugs;
|
|
}
|
|
|
|
return 1;
|