SVN: toys/rsget.pl/Link/YouTube

[sparky]

Author: sparky
Date: Thu Feb 25 01:30:14 2010
New Revision: 11176

Modified:
   toys/rsget.pl/Link/YouTube
Log:
- uniq uris on the list


Modified: toys/rsget.pl/Link/YouTube
==============================================================================
--- toys/rsget.pl/Link/YouTube	(original)
+++ toys/rsget.pl/Link/YouTube	Thu Feb 25 01:30:14 2010
@@ -1,5 +1,5 @@
 # $Id$
-# Link::YouTube - Link decrypter plugin for rsget.pl
+# Link::YouTube - Link retriever plugin for rsget.pl
 #
 # 2010 (c) Przemysław Iskra <sparky at pld-linux.org>
 #		This program is free software,
@@ -20,12 +20,21 @@
 	GET( $-{_uri} );
 
 stage_morelinks:
-	push @{$-{list}}, $1 while s#<a class="video-thumb-120" href="(/watch\?v=.*?)\&feature=PlayList##;
+	push @{$-{list}}, $1 while s# href="(/watch\?v=.*?)\&feature=PlayList##;
 
 	if ( m{class="pagerCurrent".*<a href='(.*/view_play_list\?p=.{16}&page=\d+)' class="pagerNotCurrent" >}s ) {
 		GET_NEXT( stage_morelinks, $1 );
 	}
 
-	LINK( map "http://www.youtube.com$_", @{$-{list}} );
+	my @list = @{$-{list}};
+	my %list;
+	my @outlist;
+	foreach ( @list ) {
+		next if exists $list{ $_ };
+		push @outlist, "http://www.youtube.com$_";
+		$list{ $_ } = 1;
+	}
+
+	LINK( @outlist );
 
 # vim: filetype=perl:ts=4:sw=4