Selects highest non-iphone bitrate video, fallback to highest iphone

bitrate, shun akamaihd.net as it leads to split videos and madness.

Added plugin version

1 files changed, 10 insertions, 15 deletions

diff --git a/lib/FlashVideo/Site/Adultswim.pm b/lib/FlashVideo/Site/Adultswim.pm
index 604e840..1ad2943 100644
--- a/lib/FlashVideo/Site/Adultswim.pm
+++ b/lib/FlashVideo/Site/Adultswim.pm
@@ -4,6 +4,9 @@ package FlashVideo::Site::Adultswim;
 use strict;
 use FlashVideo::Utils;
 
+our $VERSION = '0.02';
+sub Version() { $VERSION; }
+
 sub find_video {
 	my($self, $browser, $embed_url) = @_;
 
@@ -64,25 +67,17 @@ sub find_video {
 	$browser->get($videoURL);
 
 	$xml = from_xml($browser);
-	my $pick;
-	my $bitrate;
+	my $bitrate=-1;
 	my $file_url;
 	foreach(@{$xml->{entry}}){
-		if(!($_->{ref}->{href} =~ m/iPhone/)){
-			$file_url=$_->{ref}->{href};
-			$pick = $1; last;
-		}
+		next if(ref($_) ne 'HASH');
+		next if ($_->{ref}->{href} =~ m,\.akamaihd\.net\/,); 
+		next if ($_->{param}->{bitrate} < $bitrate && $_->{ref}->{href} =~ m/iPhone/);
+		$file_url=$_->{ref}->{href};
+		$bitrate=$_->{param}->{bitrate};
+		#print STDERR $_->{param}->{bitrate}."\t".$_->{ref}->{href}."\n";
 	}
 
-#	grep { $_->{name} eq "mimeType" } @{$_->{param}})[0]->{value} 
-#	my $pick = (grep { $_->{param}->{value}->[3] eq "video/x-flv" } @{$xml->{entry} } )[0];
-
-#	my $pick = $xml->{entry}[4];
-
-#	my $file_url = $pick->{ref}->{href};
-
-	# $prefs->{quality}
-
 	return $file_url, title_to_filename($title);
 }