summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/spin-rss6
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;