files structure reorganization

git-svn-id: http://svn.miranda-ng.org/main/trunk@492 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 38 deletions

diff --git a/plugins/MirOTR/ekhtml/testsuite/plparser.pl b/plugins/MirOTR/ekhtml/testsuite/plparser.pl
deleted file mode 100644
index f7ee4a150b..0000000000
--- a/plugins/MirOTR/ekhtml/testsuite/plparser.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-use HTML::Parser();
-use strict;
-sub start_handler
-{
-    my ($tag, $self) = @_;
-    print "START: \"".$tag."\"\n";
-}
-
-sub end_handler
-{
-    my ($tag, $self) = @_;
-    print "END: \"".$tag."\"\n";
-}
-
-sub text_handler
-{
-    my ($text, $self) = @_;
-    print $text;
-}
-
-sub comment_handler
-{
-    my ($text, $self) = @_;
-    print "COMMENT: \"";
-    foreach my $cur_comment (@$text) {
-        print $cur_comment;
-    }
-    print "\"\n";
-}
-
-my $p = HTML::Parser->new(api_version => 3);
-$p->handler( start => \&start_handler, "tagname,self");
-$p->handler( end => \&end_handler, "tagname,self");
-$p->handler( text => \&text_handler, "dtext, self");
-$p->handler( comment => \&comment_handler, "tokens, self");
-$p->parse_file(shift || die) || die $!;
-