projekt kivitendo

      while ($line =~ m/\[\%            # Template-Start-Tag

                        [\-~#]          # Whitespace-Unterdr?ckung

                        \s*             # Optional beliebig viele Whitespace

                        [\'\"]          # Anfang des zu ?bersetzenden Strings

                        (.*?)           # Der zu ?bersetzende String

                        [\'\"]          # Ende des zu ?bersetzenden Strings

                        \s*\|\s*        # Pipe-Zeichen mit optionalen Whitespace davor und danach

                        \$T8            # Filteraufruf

                        .*?             # Optionale Argumente f?r den Filter und Whitespaces

                        [\-~#]          # Whitespace-Unterdr?ckung

                        \%\]            # Template-Ende-Tag

                       /ix) {

        print "Found filter >>>$1<<<\n";

        $cached{$_[0]}{all}{$1}  = 1;

        $cached{$_[0]}{html}{$1} = 1;

        $plugins{needed}->{T8}   = 1;

        substr $line, $-[1], $+[0] - $-[0], '';

      }

  map { $alllocales{$_} = 1 } keys %{$cached{$_[0]}{all}};

  map { $htmllocale{$_} = 1 } keys %{$cached{$_[0]}{html}};

  map { $submit{$_} = 1 }     keys %{$cached{$_[0]}{submit}};