commit 015ecdc29396a72795d2e34aa3158e84b0199321
Author: seasharp <seasharp@libre.audio>
Date:   Sun Apr 26 15:27:28 2020 -0400

     On branch master
    
     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

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..726c3ca
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+.*.sw*
diff --git a/youtube-feed-to-rss.pl b/youtube-feed-to-rss.pl
new file mode 100755
index 0000000..cbd78fd
--- /dev/null
+++ b/youtube-feed-to-rss.pl
@@ -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";}
+