You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
644 B
21 lines
644 B
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
open(my $fh, ">>$ARGV[0].rss") or die "File:$!";
|
|
my $i = 2;
|
|
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://$ARGV[1]$ARGV[$i]</link>\n";
|
|
print $fh "\t\t\t<guid>http://$ARGV[1]$ARGV[$i]</guid>\n";
|
|
my $length = `ls -l $ARGV[$i] |cut -d ' ' -f 5`;
|
|
chomp($length);
|
|
print $fh "\t\t\t<enclosure url=\"http://$ARGV[1]$ARGV[$i]\" length=\"$length\" type=\"audio/mpeg\" />\n";
|
|
|
|
$i++;
|
|
print $fh "\t\t</item>\n";
|
|
}
|
|
print $fh "\t</channel>\n";
|
|
print $fh "</rss>";
|
|
|