summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/txt.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-06-24 20:38:41 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-06-24 20:38:41 -0400
commit7fbbcc1615510b622e2d2947e07d9acbb56fbb1c (patch)
tree5a88e7602a2c581d1107c9b7786b64da1d9550e9 /IkiWiki/Plugin/txt.pm
parenta4d693f659b901557e596c41d3ab48bce804d7f6 (diff)
only convert urls if the module is installed
Diffstat (limited to 'IkiWiki/Plugin/txt.pm')
-rw-r--r--IkiWiki/Plugin/txt.pm23
1 files changed, 15 insertions, 8 deletions
diff --git a/IkiWiki/Plugin/txt.pm b/IkiWiki/Plugin/txt.pm
index 2670e9b63..22c9ac903 100644
--- a/IkiWiki/Plugin/txt.pm
+++ b/IkiWiki/Plugin/txt.pm
@@ -10,11 +10,17 @@ use warnings;
use strict;
use IkiWiki 2.00;
use HTML::Entities;
-require URI::Find;
+
+my $findurl=0;
sub import {
hook(type => "filter", id => "txt", call => \&filter);
hook(type => "htmlize", id => "txt", call => \&htmlize);
+
+ eval q{use URI::Find};
+ if (! $@) {
+ $findurl=1;
+ }
}
# We use filter to convert raw text to HTML
@@ -23,14 +29,15 @@ sub filter (@) {
my %params = @_;
my $content = $params{content};
- if ($pagesources{$params{page}} =~ /.txt$/) {
+ if ($pagesources{$params{page}} =~ /\.txt$/) {
encode_entities($content);
- my $finder = URI::Find->new(
- sub {
- my ($uri, $orig_uri) = @_;
- return qq|<a href="$uri">$orig_uri</a>|;
- });
- $finder->find(\$content);
+ if ($findurl) {
+ my $finder = URI::Find->new(sub {
+ my ($uri, $orig_uri) = @_;
+ return qq|<a href="$uri">$orig_uri</a>|;
+ });
+ $finder->find(\$content);
+ }
$content = "<pre>" . $content . "</pre>";
}