From 35bb61f576b71c92bd6b7c9f27285c46acaab43f Mon Sep 17 00:00:00 2001
From: Silverwizard <silver@callysto.com>
Date: Thu, 9 Oct 2014 14:54:10 -0400
Subject: [PATCH] Making sure things up to date

---
 Podcast Create.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 Podcast Create.pl

diff --git a/Podcast Create.pl b/Podcast Create.pl
new file mode 100755
index 0000000..100b2bc
--- /dev/null
+++ b/Podcast Create.pl	
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+open(my $fh, ">>Arcology.rss") or die "File:$!";
+my $i = 0;
+while($i < $#ARGV+1){
+	print $fh "\t\t<item>\n";
+	print $fh "\t\t\t<title> $ARGV[$i] </title>\n";
+	print $fh "\t\t\t<description> $ARGV[$i] </description>\n";
+	print $fh "\t\t\t<link>http://offsite.obscuritus.ca/Arcology/$ARGV[$i]</link>\n";
+	print $fh "\t\t\t<guid>http://offsite.obscuritus.ca/Arcology/$ARGV[$i]</guid>\n";
+	my $length = `ls -l $ARGV[$i] |cut -d ' ' -f 5`;
+	chomp($length);
+	print $fh "\t\t\t<enclosure url=\"http://offsite.obscuritus.ca/Arcology/$ARGV[$i]\" length=\"$length\" type=\"audio/mpeg\" />\n";
+	
+	$i++;
+	print $fh "\t\t</item>\n";
+}
+print $fh "\t</channel>\n";
+print $fh "</rss>";