summaryrefslogtreecommitdiff
path: root/Xerl/Page
diff options
context:
space:
mode:
authorChuck Norris (mars.fritz.box) <paul@buetow.org>2014-08-28 09:36:37 +0200
committerChuck Norris (mars.fritz.box) <paul@buetow.org>2014-08-28 09:36:37 +0200
commit11b1896cf142b490323a91b04344a20e7a25c9f4 (patch)
tree35ebdc0392d143029d3d9bea01a7325a8107022f /Xerl/Page
parentb16cca8b3944c071a15ba57820804cfb6da9cbdb (diff)
un perltig
Diffstat (limited to 'Xerl/Page')
-rw-r--r--Xerl/Page/Content.pm9
-rw-r--r--Xerl/Page/Templates.pm9
2 files changed, 9 insertions, 9 deletions
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index 05a206d..c091c70 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -72,10 +72,10 @@ sub insertrules {
}
sub _insertrules {
- my $self = $_[0];
- my $rules = $_[1];
- my $element = $_[2];
- my $config = $self->get_config();
+ my $self = $_[0];
+ my $rules = $_[1];
+ my $element = $_[2];
+ my $config = $self->get_config();
my $nonewlines = 0;
# Don't interate through the XML childs if we have a leaf node.
@@ -109,6 +109,7 @@ sub _insertrules {
}
elsif ( lc $name eq 'inject' ) {
+
# Fetch via LWP::Simple
my $got = get($text);
$got =~ s/</&lt;/g;
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index a2b2880..341e0dc 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -24,8 +24,8 @@ use Xerl::Tools::FileIO;
use constant RECURSIVE => 1;
sub parse {
- my $self = $_[0];
- my $config = $self->get_config();
+ my $self = $_[0];
+ my $config = $self->get_config();
my $site = $config->get_site();
@@ -138,8 +138,8 @@ sub parse {
}
sub parsetemplate {
- my $self = $_[0];
- my $config = $self->get_config();
+ my $self = $_[0];
+ my $config = $self->get_config();
my $deepnesslevel = $_[2] || 0;
return $self if $deepnesslevel == 100;
@@ -195,7 +195,6 @@ sub print {
$line =~ s/!!GT!!/>/g;
$line =~ s#!!URL\((.+?)\)!!#<a href="$1">$1</a>#g;
-
print $line;
}