Dies ist der Titel

#! /usr/local/bin/perl use strict; use HTML::Restrict; my $value = qq| Dies ist der Titel

Hier kommt der Inhalt

|; my $hr = HTML::Restrict->new(); my $value = $hr->process($value); print "Ergebnis: ".$value."\n\n"; ##

##

#! /bin/false
# $Id: Null.pm,v 1.7.2.2 2009/03/26 11:15:04 guido Exp $ 
# vim: set autoindent shiftwidth=4 tabstop=8:

# Imperia AG is the sole owner and producer of its software "Imperia". For
# our software license and copyright information please refer to: License.txt
# Copyright (C) 1995-2012 Imperia AG.  All rights reserved.

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) = @_;

  ## fetch all variable names
  my @keylist = sort $metainfo->keys();
  my $count = 0;
  foreach my $key (@keylist) {

    ## only change certian variables
    next unless (
      $key =~ m/^eingabe_/ or
      $key =~ m/^ff_confirm_/ or
      $key =~ m/^ff_successful_/ or
      $key =~ m/^map_point/ or
      $key =~ m/^map_text_/ or
      $key =~ m/^map_transcript_/ or
      $key =~ m/^tube_text_/
    );

    ## test value
    my $value = qq|
  
    Dies ist der Titel
  
  
    Hier kommt der Inhalt
  

|;

    my $hr = HTML::Restrict->new() or die "Error at HTML::Restrict->new: $!";
    $value = $hr->process($value) or die "Error at process: $!";
    $metainfo->setValues($key."_DEBUG", $value);
  }
}


1;