diff options
| -rw-r--r-- | Xerl/Page/Content.pm | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm index c091c70..6cadd9a 100644 --- a/Xerl/Page/Content.pm +++ b/Xerl/Page/Content.pm @@ -109,13 +109,17 @@ sub _insertrules { } elsif ( lc $name eq 'inject' ) { - # Fetch via LWP::Simple - my $got = get($text); - $got =~ s/</</g; - $got =~ s/>/>/g; - push @content, $got; - + #my $got = get($text); + # Bug in FreeBSD Perl and LWP Module + my $got = `curl "$text"`; + if ($!) { + push @content, "$text: $!"; + } else { + $got =~ s/</</g; + $got =~ s/>/>/g; + push @content, $got; + } } elsif ( lc $name eq 'includerun' ) { my $scriptpath = $config->get_contentpath() . $text; @@ -145,8 +149,8 @@ sub _insertrules { } else { push @content, - "<$name" . ( $succ->params_str() || '' ) . '>', - $self->_insertrules( $rules, $succ ), $text, "</$name>\n"; + "<$name" . ( $succ->params_str() || '' ) . '>', + $self->_insertrules( $rules, $succ ), $text, "</$name>\n"; } } } @@ -181,21 +185,21 @@ sub _insertrules { } $text .= $params->{addback} - if exists $params->{addback}; + if exists $params->{addback}; $text = $params->{addfront} . $text - if exists $params->{addfront}; + if exists $params->{addfront}; } my $oadd = - exists $ruleparams->{addfront} - ? '<' . $ruleparams->{addfront} - : ''; + exists $ruleparams->{addfront} + ? '<' . $ruleparams->{addfront} + : ''; my $cadd = - exists $ruleparams->{addback} ? $ruleparams->{addback} . '>' : ''; + exists $ruleparams->{addback} ? $ruleparams->{addback} . '>' : ''; push @content, $orule, $oadd, $self->_insertrules( $rules, $succ ), - $text, $cadd, $crule; + $text, $cadd, $crule; } } |