Added basically everything, and added a tool to build headers

master
Silverwizard 10 years ago
parent 35bb61f576
commit 52113308e2
  1. 21
      AddItem.pl
  2. 22
      BuildCast.pl
  3. 3
      FormCast.sh
  4. 2
      README
  5. 46
      Title.rss

@ -0,0 +1,21 @@
#!/usr/bin/perl
use strict;
use warnings;
open(my $fh, ">>$ARGV[0].rss") or die "File:$!";
my $i = 1;
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/$ARGV[$i]</link>\n";
print $fh "\t\t\t<guid>http://offsite.obscuritus.ca/$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/$ARGV[$i]\" length=\"$length\" type=\"audio/mpeg\" />\n";
$i++;
print $fh "\t\t</item>\n";
}
print $fh "\t</channel>\n";
print $fh "</rss>";

@ -0,0 +1,22 @@
#!/usr/bin/perl
use strict;
use warnings;
use Time::localtime;
open(my $fh, ">>$ARGV[0].rss") or die "File:$!";
print $fh "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print $fh "<rss version=\"2.0\" xmlns:atom=\"http://www.w3.org/2005/Atom\">\n";
print $fh "\t<channel>\n";
print $fh "\t\t<title>$ARGV[0]</title>\n";
print $fh "\t\t<description>$ARGV[1]</description>\n";
print $fh "\t\t<link>$ARGV[2]<link>\n";
print $fh "\t\t<atom:link href=\"$ARGV[2]/$ARGV[0].rss\" rel=\"self\" type=\"application/rss+xml\" />\n";
my $monthday = localtime->mday();
my $month = localtime->mon() + 1;
my $year = localtime->year() + 1900;
my $hour = localtime->hour();
my $min = localtime->min();
my $sec = localtime->sec();
print $fh "\t\t<pubDate>$monthday $month $year $hour:$min:$sec </pubDate>\n";
print $fh "\t\t<lastBuildDate>$monthday $month $year $hour:$min:$sec </lastBuildDate>\n";

@ -0,0 +1,3 @@
#!/bin/sh
./BuildCast.pl $@
./AddItem.pl $1 `ls|tr '\n' ' '`

@ -0,0 +1,2 @@
This project exists to turn a set of files, typically mp3s, into a podcast. For this, the files will need to be correctly sorted or sortable. Typically, it should be run with:
Podcast\ Create.pl `ls /path/to/directory/*mp3|tr '\n' ' '` within the desired directory.

@ -0,0 +1,46 @@
<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
<channel>
<title>Title</title>
<description>This</description>
<link>is<link>
<atom:link href="is/Title.rss" rel="self" type="application/rss+xml" />
<pubDate>9 10 2014 20:34:27 </pubDate>
<lastBuildDate>9 10 2014 20:34:27 </lastBuildDate>
<item>
<title> AddItem.pl </title>
<description> AddItem.pl </description>
<link>http://offsite.obscuritus.ca/Arcology/AddItem.pl</link>
<guid>http://offsite.obscuritus.ca/Arcology/AddItem.pl</guid>
<enclosure url="http://offsite.obscuritus.ca/Arcology/AddItem.pl" length="713" type="audio/mpeg" />
</item>
<item>
<title> BuildCast.pl </title>
<description> BuildCast.pl </description>
<link>http://offsite.obscuritus.ca/Arcology/BuildCast.pl</link>
<guid>http://offsite.obscuritus.ca/Arcology/BuildCast.pl</guid>
<enclosure url="http://offsite.obscuritus.ca/Arcology/BuildCast.pl" length="882" type="audio/mpeg" />
</item>
<item>
<title> FormCast.sh </title>
<description> FormCast.sh </description>
<link>http://offsite.obscuritus.ca/Arcology/FormCast.sh</link>
<guid>http://offsite.obscuritus.ca/Arcology/FormCast.sh</guid>
<enclosure url="http://offsite.obscuritus.ca/Arcology/FormCast.sh" length="61" type="audio/mpeg" />
</item>
<item>
<title> README </title>
<description> README </description>
<link>http://offsite.obscuritus.ca/Arcology/README</link>
<guid>http://offsite.obscuritus.ca/Arcology/README</guid>
<enclosure url="http://offsite.obscuritus.ca/Arcology/README" length="266" type="audio/mpeg" />
</item>
<item>
<title> Title.rss </title>
<description> Title.rss </description>
<link>http://offsite.obscuritus.ca/Arcology/Title.rss</link>
<guid>http://offsite.obscuritus.ca/Arcology/Title.rss</guid>
<enclosure url="http://offsite.obscuritus.ca/Arcology/Title.rss" length="1860" type="audio/mpeg" />
</item>
</channel>
</rss>
Loading…
Cancel
Save