kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 01:26:58 +00:00
Code Issues Projects Releases Wiki Activity

add mod_rss

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@1551 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale
2006-06-06 23:07:37 +00:00
parent cd3e5e83c2
commit 9a43ccab24
12 changed files with 425 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
scripts/rss/rss2ivr.pl Executable file
View File

@@ -0,0 +1,80 @@
#!/usr/local/bin/perl
##########################################################################
# rss2ivr.pl -- A Script to turn an RSS feed into audio files.
#
# Copyright (C) 2006, Anthony Minessale
#
# Anthony Minessale <anthmct@yahoo.com>
#
# This program is free software, distributed under the terms of
# Perl itself
##########################################################################
use XML::RSS;
require LWP::UserAgent;
################################################################################
my $swift = "/opt/swift/bin/swift";
################################################################################
my $rss = new XML::RSS;
my $root = shift;
my $target = shift;
my $dir = shift;
my $saytxt;
my $voice = shift || "David";
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
unless($root and $target and $dir) {
die("Usage: $0 <root dir> <target url> <ivr name>\n");
}
unless(-d $root) {
mkdir($root);
}
chdir($root) or die("where is $root");
if ($target =~ /http/) {
my $response = $ua->get($target);
if ($response->is_success) {
$in = $response->content;
} else {
die $response->status_line;
}
my $x = 1;
$rss->parse($in);
system("rm -fr $$");
mkdir($$);
die unless(-d $$);
chdir($$);
open(I,">00.txt");
print I "$dir main index.\n";
foreach my $item (@{$rss->{'items'}}) {
my $xx = sprintf("%0.2d", $x);
my $title .= "entry $xx, " . $item->{'title'} . ".\n";
print I $title;
my $desc = $item->{'description'};
$desc =~ s/\<[^\>]+\>//g;
my $content = "entry $xx.\n" . $item->{'title'} . ".\n". $desc;
open(X,">$xx.txt");
$content =~ s/[^\w\d\s \.\,\-\n]//smg;
print X $content;
close X;
my $do = "$swift -p audio/deadair=2000,audio/sampling-rate=8000,audio/channels=1,audio/encoding=pcm16,audio/output-format=raw -o ${xx}.raw -f ${xx}.txt -n $voice";
system $do;
$x++;
}
my $do = "$swift -p audio/deadair=2000,audio/sampling-rate=8000,audio/channels=1,audio/encoding=pcm16,audio/output-format=raw -o 00.raw -f 00.txt -n $voice";
system $do;
close(I);
chdir("..");
system("/bin/rm -fr $dir");
system("/bin/mv -f $$ $dir");
}