# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225469668 -28800
# Node ID 00a21f73e9063acd75044c5386c4ec90a9206e9f
# Parent  9fb18f3d6e2622c9a1de10574150f8aa739be44a
we don't use DOM API of HTML::TagParser

diff -r 9fb18f3d6e26 -r 00a21f73e906 Ikariam.pm
--- a/Ikariam.pm	Fri Oct 31 16:13:36 2008 +0800
+++ b/Ikariam.pm	Sat Nov 01 00:14:28 2008 +0800
@@ -95,7 +95,6 @@
 use LWP;
 use HTTP::Cookies;
 use WWW::Mechanize;
-use HTML::TagParser;
 use XML::LibXML qw(:encoding);
 use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
 use POSIX;
@@ -913,43 +912,5 @@
     }
 }
 
-sub getElementsByTagName {
-    my $element = shift;
-    my $tagname = lc(shift);
-    my ( $flat, $cur ) = @$element;
-
-    my $out = [];
-    for( ; $cur <= $#$flat ; $cur++ ) {
-        last if ($flat->[ $cur + 1 ]->[001] eq $element->tagName() );
-        next if ($flat->[$cur]->[001] ne $tagname );
-        next if $flat->[$cur]->[000]; # close
-
-        my $elem = HTML::TagParser::Element->new( $flat, $cur );
-        return $elem unless wantarray;
-        push( @$out, $elem );
-    }
-    return unless wantarray;
-    @$out;
-}
-
-sub getElementsByAttribute {
-    my $element = shift;
-    my $key  = lc(shift);
-    my $val  = shift;
-    my ( $flat, $cur ) = @$element;
-
-    my $out  = [];
-    for ( ; $cur <= $#$flat ; $cur++ ) {
-        next if $flat->[$cur]->[000];    # close
-        my $elem = HTML::TagParser::Element->new( $flat, $cur );
-        my $attr = $elem->attributes();
-        next unless exists $attr->{$key};
-        next if ( $attr->{$key} ne $val );
-        return $elem unless wantarray;
-        push( @$out, $elem );
-    }
-    return unless wantarray;
-    @$out;
-}
 
 1;