seasharp/youtube-feed-to-rss
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

On branch master

Browse Source 
Initial commit

 Changes to be committed:
	new file:   .gitignore
 - Standard for vim files
	new file:   youtube-feed-to-rss.pl
 - Perl script initial working draft
This commit is contained in:
seasharp 2020-04-26 15:27:28 -04:00
commit 015ecdc293
2 changed files with 85 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
.*.sw*

84
youtube-feed-to-rss.pl Executable file
View File

@ -0,0 +1,84 @@
#!/usr/bin/perl
#
#
# Copyright (c)2020 seasharp@libre.audio
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# 1. Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions and the following disclaimer in the documentation
# and/or other materials provided with the distribution.
#
# Subject to the terms and conditions of this license, each copyright holder
# and contributor hereby grants to those receiving rights under this license a
# perpetual, worldwide, non-exclusive, no-charge, royalty-free, irrevocable
# (except for failure to satisfy the conditions of this license) patent license
# to make, have made, use, offer to sell, sell, import, and otherwise transfer
# this software, where such license applies only to those patent claims,
# already acquired or hereafter acquired, licensable by such copyright holder
# or contributor that are necessarily infringed by:
#
# (a) their Contribution(s) (the licensed copyrights of copyright holders and
# non-copyrightable additions of contributors, in source or binary form) alone;
# or
#
# (b) combination of their Contribution(s) with the work of authorship to which
# such Contribution(s) was added by such copyright holder or contributor, if,
# at the time the Contribution is added, such addition causes such combination
# to be necessarily infringed. The patent license shall not apply to any other
# combinations which include the Contribution.
#
# Except as expressly stated above, no rights or licenses from any copyright
# holder or contributor is granted under this license, whether expressly, by
# implication, estoppel or otherwise.
#
# DISCLAIMER
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
use strict;
use warnings;
my $YouTubeRSSFormat = "/feeds/videos.xml?";
my $ChannelFormat = "${YouTubeRSSFormat}channel_id=";
my $UserFormat = "${YouTubeRSSFormat}user=";
my $PlaylistFormat = "${YouTubeRSSFormat}playlist_id=";
print "Please enter the YouTube Channel URL: ","\n";
while (<>) {
my $YouTubeURL = $_ if $_ =~ m[http[s]?:\/\/.*\.youtube\.com\/(channel|user|[a-zA-Z=?]*[?&]list=PL).*$];
my $OutputURL;
if ($YouTubeURL =~ /.*\/channel\/.*$/) {
print "This is a Channel\n";
$OutputURL = $YouTubeURL =~ s/\/channel\//$ChannelFormat/r
} elsif ($YouTubeURL =~ /.*\/user\/.*$/) {
print "This is a User\n";
$OutputURL = $YouTubeURL =~ s/\/user\//$UserFormat/r
} elsif ($YouTubeURL =~ /.*\/[a-zA-Z?=]*[?&]list=PL.*$/) {
print "This is a Playlist\n";
$OutputURL = $YouTubeURL =~ s/\/[a-zA-Z=?]*[?&]list=/$PlaylistFormat/r
} else { print "No idea what this is.\n"; }
print $OutputURL;
}
#if ($YouTubeURL =~ m[http[s]?:\/\/.*\.youtube\.com\/(channel|user|playlist&list=pl).*$])
## Channel uuid match expression
# $YouTubeURL =~ s/channel/something/;
# print "Match: ",$YouTubeURL,"\n";
#} else { print "No match\n";}