Re^2: HTML::Restrict works on the command line, but not the web server

Thanks for the immediate ansswer!

I have changed the program like you suggested, but now no error shows up and the $value always comes out empty.

If no rules are passed, all the HTML is filtered in my test script.

Comment on Re^2: HTML::Restrict works on the command line, but not the web server

Replies are listed 'Best First'.
Re^3: HTML::Restrict works on the command line, but not the web server by Corion (Patriarch) on Apr 28, 2016 at 10:44 UTC
Then maybe something is wrong with either how HTML::Restrict works or with how you inspect the results. Have you made sure that Perl loads the correct versions of HTML::Restrict in both cases? `print $INC{'HTML/Restrict.pm'}; print HTML::Restrict->VERSION;` [download] Are you certain that your loop even gets entered? You loop over various (submitted form) values, but maybe they are not even there? Maybe retest with a more minimal test package: package Dynamic::Transform::zim_iwe_filtern; use strict; use warnings; use HTML::Restrict; use Carp; sub new { my ($proto, $config) = @_; my $class = ref($proto) \|\| $proto; bless {}, $class; } sub transform { my ($self, $metainfo) = @_; ## test value my $value = qq\|<html> <head> <title>Dies ist der Titel</title> </head> <body> <p>Hier kommt der Inhalt</p> </body> </html> \|; my $hr = HTML::Restrict->new() or die "Error at HTML::Restrict->ne +w: $!"; $value = $hr->process($value) or die "Error at process: $!"; #$metainfo->setValues($key."_DEBUG", $value); warn "Have [$value] after HTML::Restrict"; } 1; [download] Also, how certain are you that your CMS actually has reloaded the modified version of your code? The safest way is to restart the HTTP server, but also consider having a version number in your package that you output into a log file to make certain that the code you're looking at is also the code you are running.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: HTML::Restrict works on the command line, but not the web server
by Corion (Patriarch) on Apr 28, 2016 at 10:44 UTC

Then maybe something is wrong with either how HTML::Restrict works or with how you inspect the results.

Have you made sure that Perl loads the correct versions of HTML::Restrict in both cases?

print $INC{'HTML/Restrict.pm'};
print HTML::Restrict->VERSION;
[download]

Are you certain that your loop even gets entered? You loop over various (submitted form) values, but maybe they are not even there? Maybe retest with a more minimal test package:

package Dynamic::Transform::zim_iwe_filtern;

use strict;
use warnings;
use HTML::Restrict;
use Carp;

sub new {
    my ($proto, $config) = @_;
    my $class = ref($proto) || $proto;

    bless {}, $class;
}

sub transform {
    my ($self, $metainfo) = @_;

    ## test value
    my $value = qq|<html>
  <head>
    <title>Dies ist der Titel</title>
  </head>
  <body>
    <p>Hier kommt der Inhalt</p>
  </body>
</html>
|;

    my $hr = HTML::Restrict->new() or die "Error at HTML::Restrict->ne
+w: $!";
    $value = $hr->process($value) or die "Error at process: $!";
    #$metainfo->setValues($key."_DEBUG", $value);
warn "Have [$value] after HTML::Restrict";
}

1;
[download]

Also, how certain are you that your CMS actually has reloaded the modified version of your code? The safest way is to restart the HTTP server, but also consider having a version number in your package that you output into a log file to make certain that the code you're looking at is also the code you are running.

[reply]
[d/l]
[select]