/usr/share/perl5/Template/Plugin/Clickable.pm is in libtemplate-plugin-clickable-perl 0.06-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | package Template::Plugin::Clickable;
use strict;
our $VERSION = 0.06;
require Template::Plugin;
use base qw(Template::Plugin);
use vars qw($FILTER_NAME);
$FILTER_NAME = 'clickable';
use UNIVERSAL::require;
sub new {
my($class, $context, @args) = @_;
my $name = $args[0] || $FILTER_NAME;
$context->define_filter($name, $class->filter_factory());
bless { }, $class;
}
sub filter_factory {
my $class = shift;
my $sub = sub {
my($context, @args) = @_;
my $config = ref $args[-1] eq 'HASH' ? pop(@args) : { };
return sub {
my $text = shift;
my $finder_class = $config->{finder_class} || 'URI::Find';
$finder_class->require or die $UNIVERSAL::require::ERROR;
my $finder = $finder_class->new(
sub {
my($uri, $orig_uri) = @_;
my $target = $config->{target} ? qq( target="$config->{target}") : '';
my $rel = $config->{rel} ? qq( rel="$config->{rel}") : '';
return qq(<a href="$uri"$target$rel>$orig_uri</a>);
},
);
$finder->find(\$text);
return $text;
};
};
return [ $sub, 1 ];
}
1;
__END__
=head1 NAME
Template::Plugin::Clickable - Make URLs clickable in HTML
=head1 SYNOPSIS
[% USE Clickable %]
[% FILTER clickable %]
URL is http://www.tt2.org/
[% END %]
this will become:
URL is <a href="http://www.tt2.org/">http://www.tt2.org/</a>
=head1 DESCRIPTION
Template::Plugin::Clickable is a plugin for TT, which allows you to
filter HTMLs clickable.
=head1 OPTIONS
=over 4
=item target
[% FILTER clickable target => '_blank' %]
[% message.body | html %]
[% END %]
C<target> option enables you to set target attribute in A links. none
by default.
=item finder_class
C<finder_class> option enables you to set other URI finder class
rather than URI::Find (default). For example,
[% FILTER clickable finder_class => 'URI::Find::Schemeless' %]
Visit www.example.com/join right now!
[% END %]
this will become:
Visit <a href="http://www.example.com/join">www.example.com/join</a> right now!
=back
=head1 NOTE
If you use this module with C<html> filter, you should be careful not
to break tags or brackets around the URLs. For example if you have a
following URL form,
<http://www.example.com/>
Clickable plugin will filter this into:
<a href="http://www.example.com/"><http://www.example.com/></a>
which is bad for HTML viewing. However, if you HTML filter them first
and then clickable filter, you'll get:
<<a href="http://www.example.com/>">http://www.example.com/></a>;
which href part is wrong.
You'd better try L<Template::Plugin::TagRescue> in this case.
[% USE Clickable -%]
[% USE TagRescue -%]
[% FILTER html_except_for('a') -%]
[% FILTER clickable -%]
<http://www.example.com/>
[%- END %]
[%- END %]
will give you the right format.
=head1 AUTHOR
Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L<Template>, L<URI::Find>, L<Template::Plugin::TagRescue>
=cut
|