jpm
/
ytyt-legacy
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add 'handle' support for new subscriptions 

These are not logged in the database, but will be added to the new
version
This commit is contained in:
John Mertz 2023-03-22 18:14:55 -04:00
parent 6d2d8169a6
commit e3dc3578a4
Signed by: jpm
GPG Key ID: E9C5EA2D867501AB
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/add_youtube_subscription.pl
View File

@ -27,7 +27,7 @@ if ($ARGV[0] =~ m%^UC[a-zA-Z0-9\-\_]{22}$%) {
#print "Found raw channelId " . $params{channelId} . "\n"; #print "Found raw channelId " . $params{channelId} . "\n";
} elsif ($ARGV[0] =~ m%^(?:(?:https://)?(?:www\.|m\.)?youtube\.com/)?\@([^\/]+)%) { } elsif ($ARGV[0] =~ m%^(?:(?:https://)?(?:www\.|m\.)?youtube\.com/)?\@([^\/]+)%) {
$params{channelHandle} = $1; $params{channelHandle} = $1;
die("Handles are not yet supported. Found \@$params{channelHandle}\n"); #die("Handles are not yet supported. Found \@$params{channelHandle}\n");
} elsif ($ARGV[0] =~ m%^(https://)?(www\.|m\.)?youtube\.com/channel/UC[a-zA-Z0-9\-\_]{22}%) { } elsif ($ARGV[0] =~ m%^(https://)?(www\.|m\.)?youtube\.com/channel/UC[a-zA-Z0-9\-\_]{22}%) {
$params{channelId} = $ARGV[0]; $params{channelId} = $ARGV[0];
$params{channelId} =~ s%(https://)?(www\.|m\.)?youtube\.com/channel/(UC[^/]{22})(/.*)?%$3%; $params{channelId} =~ s%(https://)?(www\.|m\.)?youtube\.com/channel/(UC[^/]{22})(/.*)?%$3%;

5
lib/YTYT.pm
View File

@ -52,6 +52,11 @@ sub get_videos_page {
$get = $self->{location} . '/' . $get = $self->{location} . '/' .
'channel/' . $params{channelId} . 'channel/' . $params{channelId} .
'/videos'; '/videos';
} elsif (defined $params{channelHandle}) {
$target = $params{channelHandle};
$get = $self->{location} . '/' .
'@' . $params{channelHandle} .
'/videos';
} elsif (defined $params{channelName}) { } elsif (defined $params{channelName}) {
$target = $params{channelName}; $target = $params{channelName};
$get = $self->{location} . '/' . $get = $self->{location} . '/' .