- make urls unique in perl already, 1m win for media info

Changed files:
    pldnotify.awk -> 1.95

diff --git a/pldnotify.awk b/pldnotify.awk
index 70fa742b6e65e2dddba2dc720e092aabad6042be..9085c6f8f04d2b9ae20479945f63f2e9be8a503f 100644 (file)
--- a/pldnotify.awk
+++ b/pldnotify.awk
@@ -200,10 +200,14 @@ function extract_links_cmd(tmpfile) {
        my $content = join q//, <>; \
        my $root = new HTML::TreeBuilder; \
        $root->parse($content); \
-       my $links_r = $root->extract_links(); \
        \
+       my %links = (); \
        for (@{$root->extract_links(qw(a iframe))}) { \
                my($link, $element, $attr, $tag) = @$_; \
+               $links{$link} = $tag; \
+       } \
+       \
+       while (my($link, $tag) = each %links) { \
                print $tag, q/ /, $link, $/; \
        } \
        ' " tmpfile