parent
35bb61f576
commit
52113308e2
@ -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…
Reference in new issue