From 994b3a5b97e6f464f8df0874cdd039fb8a4396fc Mon Sep 17 00:00:00 2001
From: Silverwizard <silver@callysto.com>
Date: Thu, 9 Oct 2014 20:58:06 -0400
Subject: [PATCH] Deleted old file

---
 Podcast Create.pl | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100755 Podcast Create.pl

diff --git a/Podcast Create.pl b/Podcast Create.pl
deleted file mode 100755
index 100b2bc..0000000
--- a/Podcast Create.pl	
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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>";