From dad4b1ee53faf1c20c8085c286634b44ec00b4f2 Mon Sep 17 00:00:00 2001 From: Christian Walde Date: Sat, 30 Mar 2013 01:26:15 +0100 Subject: [PATCH] remove youtube restrictions --- lib/Web/Scenefinity/Import.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lib/Web/Scenefinity/Import.pm b/lib/Web/Scenefinity/Import.pm index 2ac1106..9f28228 100644 --- a/lib/Web/Scenefinity/Import.pm +++ b/lib/Web/Scenefinity/Import.pm @@ -12,6 +12,7 @@ with "Web::Scenefinity::Role::Configuration"; sub run { my ( $self ) = @_; + my @ids = map $self->yt_ids_for_account( $_ ), $self->yt_accounts; my $db = $self->db; @@ -25,7 +26,7 @@ sub run { return; } -sub yt_accounts { qw( Annikras ) } # demosceneM0d TMCrole ReclusiveLemming +sub yt_accounts { qw( Annikras demosceneM0d TMCrole ReclusiveLemming ) } sub jget { my ( $url ) = @_; @@ -44,9 +45,7 @@ sub yt_ids_for_account { my $entries = $all->{feed}{entry}; last if !$entries or !@{$entries}; push @videos, @{$entries}; - last; - - # $i += 50; + $i += 50; } my @ids = map $_->{id}{'$t'}, @videos; $_ =~ s/.*\/([\w\-]+)$/$1/ for @ids;