diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/spin-rss | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/spin-rss b/bin/spin-rss index 94a4ddc..ad3c2e6 100755 --- a/bin/spin-rss +++ b/bin/spin-rss @@ -195,14 +195,18 @@ sub rss_review { die "$0: cannot find title and author in $file" unless ($title && $author); pop @page while (@page and $page[$#page] !~ /<p class=\"rating\">/); - my $buy; + my ($buy, $ebook); for my $i (0 .. $#page) { + if ($page[$i] =~ /<p class=\"ebook\">/) { + $ebook = $i; + } if ($page[$i] =~ /<p class=\"buy\">/) { $buy = $i; last; } } splice (@page, $buy, 2) if $buy; + splice (@page, $ebook, 4) if $ebook; my $page = join ('', @page); $page =~ s/^\s*<table[^>]+>/<table>/mg; $page =~ s/^\s*<tr/ <tr/mg; |