sourcecode
jcwren
<code>
#!/usr/local/bin/perl -w
#
# Invoke with './monkyack.pl'
#
# This script delivers the chatterbox as MP3 encoded streaming audio. It
# uses the festival/MBROLA text-to-speech (TTS) system to create the audio
# on the fly.
#
# The audio quality is a little funky, since there's a lot of special symbols
# and 'odd words' (like user names) that the TTS has to contend with. On top
# of that, I encode at 8K bits per second because of my limited bandwidth.
# Nonetheless, it's kind of amusing to listen to the chatterbox.
#
# Requires that the festival/MBROLA server be installed, preferrably on a
# local machine. Needs lame 3.88beta or higher (8K bits requires MPEG III
# Layer 2.5) for the MP3 encoding. Also needs libshout and Shout.pm. Last,
# but not least, you'll need a ShoutCast/IcyCast server to connect to. I
# I suggest the ShoutCast server.
#
# festival/MBROLA - http://www.cstr.ed.ac.uk/projects/festival/
# lame - http://www.lame.org
# ShoutCast server - http://www.shoutcast.com/download/
# IcyCast server - http://www.icecast.org/download.html
# libshout - http://developer.icecast.org/libshout/
# Shout.pm - http://developer.icecast.org/libshout/
# LWP::Simple - http://cpan.org
# XML::Twig - http://cpan.org (yay, mirod! Great stuff!)
# HTML::Entities - http://cpan.org
#
# Notes and aimless meanderings through my thoughts:
#
# I started out using mp3stream from http://www.prilnari.com/mp3stream/ I
# wrote a complete Inline wrapper set for it, only to find that while it
# would often work, it would frequently disconnect from the ShoutCast
# server for no apparent reason. Found the Shout.pm reference in the
# [Internet Radio] node, switched to that. Much better success.
#
# I've been using festival/MBROLA for a good while (I use it to TTS my
# weather station), and just kept reusing my old socket code. Works, but
# it's not good enough to publish. So I decided that I would move into
# the 90's, and use Speech::Synthesizer. It's not very good, and I'm being
# really nice. It didn't have a couple of necessary methods, and the way
# it's written, there was no decent way to subclass them. The main problem
# was that give input with 2 or 3 sentences in it, it would only speak the
# last sentence. What the heck good is that? Wasn't this ever tested?
# So, instead I just call festival-client, and pass a temp file with the
# text (supposed to be able to read from STDIN, but when kicking it off
# with an open statement, it hangs.
#
# Now I decided to look for that cute bit of code someone write a while
# back for embedding images in the __DATA__ section of a script, and
# decoding them on the fly. I find the reference to it at [Hex Embedded
# Images], but the code is on his no-longer-up webserver. In passing, I
# find that [httptech] has done something similiar, about 10 months ago.
# It speaks the chatterbox, but only to the local machine. It took the
# shininess off a bit, because I didn't think this had been done before.
# It's at [MonkTalk], which, oddly enough, this script was called when I
# first started. I changed the name, of course.
#
# I've been using WinAmp 2.74 and XMMS 1.2.4. WinAmp sounds far better
# but periodically disconnects from the server, for no apparent reason
# (gotta love error messages. Or lack thereof...) XMMS, on the other,
# stays connect through hell and high water, but sounds like crap on a
# 8K stream.
#
# Copyright 2000,2001(c) J.C.Wren jcwren@jcwren.com
# A production of Twitching Monk Software
# No rights reserved, use as you see fit.
# I'd like to know about it, though, just for kicks.
#
# Version 1.00.00 - 2001/04/11 - Initial incarnation
# Version 1.00.10 - 2001/04/12 - Fix for XML with high bit set
#
use strict;
use LWP::Simple;
use XML::Twig;
use HTML::Entities;
use POSIX ":sys_wait_h";
use Shout;
#
# This to change to tailor the system
#
use constant cSCIP => 'localhost';
use constant cSCPort => 8001;
use constant cSCPassword => 'montyhall';
use constant cSCBitRate => 8;
use constant cSCName => 'Chatterbox';
use constant cSCGenre => 'Talk Radio';
use constant cSCURL => 'http://www.tinymicros.com:8000';
use constant cSCDescription => 'Perlmonks Chatterbox encoded by Festival/MBROLA';
use constant cFestivalSever => 'localhost';
use constant cTTS => '/usr/bin/festival_client --prolog mt.parms --output _temp.wav --otype wav --ttw _temp.txt';
use constant cMP3Encoder => '/usr/local/bin/lame --silent -a -m m -b 8 -s 16 _temp.wav _temp.mp3 >/dev/null';
use constant cSilence => 'silence8m.mp3';
use constant cPerlMonks => 'http://www.perlmonks.org/index.pl?node=chatterbox+xml+ticker';
#
# Pretty simplistic main...
#
{
createParmsFile () or die "Can't create Festival parameter file: $!";
my $result = fork ();
die ("Can't fork off a child") if !defined ($result);
$result ? playTalkies ($result) : makeTalkies ();
}
#
# The parent. Scans the directory every 3 or more seconds (depending on the
# length of the playlist), and sends the files to the server to be played.
#
sub playTalkies
{
@_ >= 1 || die "Incorrect number of arguments";
my $kidpid = shift;
my $conn = new Shout;
$conn->ip (cSCIP);
$conn->port (cSCPort);
$conn->password (cSCPassword);
$conn->name (cSCName);
$conn->bitrate (cSCBitRate);
$conn->genre (cSCGenre);
$conn->description (cSCDescription);
$conn->url (cSCURL);
$conn->icy_compat (1);
$conn->ispublic (0);
die "Can't connect to server" if (!$conn->connect);
while (1)
{
opendir (DIR, ".") or die "Can't read directory: $!";
my @playlist = sort grep { /\d{14}\.mp3/ && -f "./$_" } readdir (DIR);
close (DIR);
if (!scalar (@playlist))
{
playFile ($conn, cSilence) or die "Error while playing: " . $conn->error . "\n";
}
else
{
foreach (@playlist)
{
playFile ($conn, $_) or die "Error while playing $_: " . $conn->error . "\n";
unlink $_ or die "Can't unlink file: $!";
}
}
die "Child died!\n" if (waitpid ($kidpid, &WNOHANG) == -1);
}
}
#
# Send a file to the Shoutcast/Icycast server
#
sub playFile
{
@_ >= 2 || die "Incorrect number of arguments";
my ($conn, $file) = @_;
my ($buff, $len);
print scalar localtime, " Playing $file\n";
open (MP3, "< $file") or return 0;
while (($len = sysread (MP3, $buff, 1024)) > 0)
{
if (!$conn->sendData ($buff, $len))
{
close MP3;
return 0;
}
$conn->sleep;
}
close MP3;
return 1;
}
#
# Child thread that looks for new XML, and runs the text through festival
#
sub makeTalkies
{
my %hcbxml = ();
while (1)
{
getChatterXML (\%hcbxml) or die;
chatterXmlToSpeech (\%hcbxml);
sleep (10);
}
}
#
# Run through the list return by getChatterXML(), and create MP3 files with the authors
# name and text. The file name is the timestamp of the xml node. If all the comments
# are already encoded, simply return (avoid overhead of opening unnecessary festival
# connections)
#
sub chatterXmlToSpeech
{
@_ >= 1 || die "Incorrect number of arguments";
my $hcbxml = shift;
my $encoded = 1;
$encoded &= $hcbxml->{$_}->{encoded} foreach keys (%$hcbxml);
return if $encoded;
foreach my $line (sort keys %$hcbxml)
{
if (!$hcbxml->{$line}->{encoded})
{
my $text;
#
# Some minor hacking to get rid of the more problematic characters.
# Some rule based logic would be nice, but too much work.
#
$text = $hcbxml->{$line}->{text};
$text =~ s/[\[\]\(\)\{\}"]//g;
$text =~ s/[:;\|\/]/ /g;
$text .= '.';
print scalar localtime, " Encoding $line\n";
open (TEMPFILE, ">_temp.txt") or die "Can't open _temp.txt: $!";
print TEMPFILE $hcbxml->{$line}->{author} . ", " . $text;
close TEMPFILE;
system (cTTS) and die "Can't run TTS encoder: $!";
system (cMP3Encoder) and die "Can't run MP3 encoder: $!";
rename ("_temp.mp3", "$line.mp3") or die;
unlink ("_temp.txt");
$hcbxml->{$line}->{encoded} = 1;
}
}
}
#
# Fetch the chatterbox XML page, and return a hash, keyed by time, with the
# author, user_id, and text fields from the XML as an anon-hash.
#
sub getChatterXML
{
@_ >= 1 || die "Incorrect number of arguments";
my $rhcbxml = shift;
my $xml;
$LWP::Simple::FULL_LWP = 1;
if ((my $xml = get (cPerlMonks)))
{
#
# Survive an [epoptai] DoS attack
#
$xml =~ s/[\r\n\t]//g;
$xml =~ tr/\x80-\xff/_/;
$xml =~ tr/\x00-\x1f/_/;
my $twig = new XML::Twig (TwigRoots =>
{ message => sub { my ($t, $node) = @_;
my $text = decode_entities ($node->text ());
$text =~ s/'/'/g;
$text =~ tr/[\r\n]//d;
$rhcbxml->{$node->att ('time')} = {'author' => $node->att ('author'),
'user_id' => $node->att ('user_id'),
'text' => $text,
'encoded' => (defined ($rhcbxml->{$node->att ('time')}) ? $rhcbxml->{$node->att ('time')}->{encoded} : 0)
};
$t->purge;
}
});
$twig->parse ($xml);
return (1);
}
return 0;
}
#
# festival_clients won't take the parms as a string, so we have to
# create a temp file. Rather than lose the data somewhere, it's
# at the end of the program.
#
sub createParmsFile
{
local $/ = undef;
my $prolog = <DATA>;
open (TEMPFILE, ">mt.parms") or return 0;
print TEMPFILE $prolog;
close TEMPFILE;
return 1;
}
__DATA__
(voice_kal_diphone)
(Parameter.set 'Duration_Stretch 1.1)
</code>
<hr>
<p>You'll also need this uuencoded file. This is the 3 seconds of silence that gets streamed when no one is talking.</p>
<code>
begin 644 silence8m.mp3
M_^,8Q``,TA6$`8H0`/\31T+P%'^+8\=?\G&Y`W_XSD(I___'),46.W__^+.0
M@A[E%____C@G3__^\WA]W__RYI75]T,6U*B,_^,8Q`<,."HL`8\0`#HUH+`1
M'F13KI4A?DZM!]7SCS+59</H_K+J=;:&%'_Z=Z'UI>,E__1_U@3IPT97'6]:
M\[:7L<ES4;4W_^,8Q!$,8"XD`<\8`%M530,Z`R_MZ*/9;0*,<\5L+%Z]V,:U
M8!EK%Z[+U9BRN@:$;,TG<R)6B.*BK!,9F0$3<]%A+5F:]$W1_^,8Q!H,2$8D
M`'A$`#T4A'O*JL[&,%"2*._&Q_UF;+G7,Z65U0DK:OUBU&8Z``:-!U*DM0QE
M!IY9GO6^JDW/0RLO*DQT96@J_^,8Q",-X"(D`'B&`,-AIEAOK;Q<ZS:O?6QA
M#MH\ZA?:E0'BDH*2_I`;ZN1J/*%BP(%#0?0HTU@IR,/CR[%:6`V]JON37L/&
M_^,8Q"8.X$8@`,#&`,/[ZQ">'.<_:6;Q56%S>+O2A=MC(E4#-:A'^U@`4"*A
M.L\X-O,*$]M5CNI96A]M(LZ9>5I0Q8V=E(9T_^,8Q"4,Z!8D`,#&`#\>MD_I
MS6F]G]&ZVE?N2@8CPP<1;*)@.J-+8/)YLX+./M>2KJ<P#*,*W'6'!]G2QMVR
MY".]C0&@M)^P_^,8Q"P-<"HD`&#``-KU=M5)[WIFN%(,9.V;M!@D'!X?-Y1Q
M\:K:%GK/W,LL=M0Q:+UN+N'*H:Q;#6Y*;][I];*=6K3HH3B]_^,8Q#$-6!H@
M`,#$`([0K5'U*&MY-S]-99PP48(GR#AY,>X/AI!!B7(G4,?=M,1=QO<-4]B_
M.V[&.BZ-M:W]%PSZMZKX&=W<_^,8Q#8-L"XD`,"&`%D9K8Q;@A(5(!-^9FA=
M9"XVQ2%U^AZEDMJRS]J6*)%;[D]KYI]WO+V6.6Y*E4M>Q$U5UK>E$!>>6+@$
M_^,8Q#H,\!8D`'@```8+,6*34&YE"SE]=(UBT8X]#L<&GH[R"SFMB5M6BD_Y
M(LK51<>6Y"+D[-2R7,T);*H'LR*1JDBFE89=_^,8Q$$-J!H@`'@``%A,CVD#
M[J7+94\J*"K$,RE0H[G\OQ,E6O*KV"$ZE^HRE9]:R"ND#/5?=>A%^1H2)8KU
M[_7D%B&=X@YP_^,8Q$4-X!X@`'A$`&&9<XHJ>?)41YJ?T4MC74#[$H>8D"<Y
MQIW?H>^8<^O^O]/3JL2!:`Z1_L41CL$8)C0*009+%PX(C9<5_^,8Q$@-`$8D
M`,"$`'T%LA88*!1B[6(DV,R>?DR3J[_`*3!:Q9I+5`12%(>[8X7):GMJWCZU
MWN15$2&G3\6KU6<8U-W8=EE"_^,8Q$\/R#HD`'A&`&"#BCE-9.E:'B)WD'J6
M$6;!W@8#'+X5)GZ&)MH(*1=H4941<`?]TJ*=E5T4&^NI#M/?IA3*#=8T6,"-
M_^,8Q$H.P$8@`,#$``\T.<QQ9NX":++!&[<8ZK%Y343/E+,/(J>QEKGWI:EA
M`S6[MBNM2@5F<JU(]H'#"3EPLUA<X'$-N8EM_^,8Q$H-@#XD`,#$`&I`YAK6
MUJM'.*7[>[NH>960T]CE*%J(8V=RKVZKT@SI&E`Z!,0XHP=47%$.4E:DTL>J
MMR6#-*WKC#XN_^,8Q$\-`"XD`,"&`+6]AH@D705.@CWL*.<$D(N1UL9UW)7<
ME*QP21[4-W[5*@1S1`E@QCBH:&*."LJ]6O"F/;5M497<LHYS_^,8Q%8.R"(@
M`##&`!@PB9298E[VI<QI$R42IB!6+RQ^!'%VG<FMH$UO<DQ_M54'X\U2-<11
M:'D&%"`(OWU1B5:$WKD7.VG\_^,8Q%4.V"8@`'B&``'ZT"Z>=40[IA)\`10^
M,Z1>^NEVR\N@Y=L:+AXF<LI:EX.(M%J?$Y>YZP$7%T-F`,C8C2RT_I0L;IF4
M_^,8Q%0,^"(D`'C&`%!T^Y3MZ71A584`R"*9U[W\Q9JUO',D+$)GZ6J1*&/K
M+]V;!`T*&Q9Q@XXTP7FSRQZP)I'IL^AA3RC>_^,8Q%L/.#(@`,#``,J2D7IJ
M1:?GFNJJ[JM]CWU=VO12(BO]24V\50U4,.IHZ9&4+/BQ++C2-5SQQN]3'#5&
M*FJ8`*L>6>JH_^,8Q%D,>"8D`,#&`&T%106OUH62N2=WF#H?]69)NRY=FCIJ
M&*SS1WG@Y@)`\E`OI.ATBT/$23[*T*IH8]!1)-+(HYYH2+9[_^,8Q&(/4#H@
M`,#&`$JF*G#.N)EZ)W<\J@B;K5UV93I9.EH0@N#;=FAJA,'"Z'E%#%%T+K;+
M*-F3@NR0M4E34O[4%]3V)/#Q_^,8Q%\.<"(D`'C``,ZS8NI_,!E>YGNM)J=_
M[+'6(@52Z``9!("K$@:(I$9IRQ(?N&J%C"WZ"+%Y^C=-T[W)]2`I:E>?NW64
M_^,8Q&`-L"X@`'C``+NSO_O<FZLC<^@>1+[-BW?.$AV(#(XJI]9IZ%'XH$8R
MID]<F@TEB1?D$;C3DWH2A`'U#$#SJE]B+U*B_^,8Q&0,P`HD`(#``%_E*%-:
MQSD!+C8:Q*X>[6NAPX,J$(/--C2`$H%%%,Y1#[7+[[U10-44'7'(J[74A@N_
M#<XBBU(`%=B;_^,8Q&P.L"H@`,"``-")06ZF(6[<G;IJ!61FN`]BH%SD?R.M
MDI8&PY8Y3AS3VBQ1AM%0?;M'/F0:.KX<A`_>//H%7N1><4A+_^,8Q&P.T"(D
M`,"&`(>]G,#<S-_%51SN?915!`1GW<\!H\'<3`Z$6/38PE0=-JNH:BUHMU`U
M>P^><Q!*V-L)O1'VN(W#EW/)_^,8Q&L/2'(@`'C$!*.+M14O=M29-.%XS:XB
M`$I.FM[*]'4E%&=#<`%R!U*@D(E"RQ=UQ]I)*;%F4EDJT-.ZVPHRZ55JC:;2
M_^,8Q&@.N"X@`'C&`!,/=?O4.0;H$M%IA(JS^5M'U0Y#'^XHT1.GS`A&#@&X
M"UC>6%NJNQZ$$6-0=N%<ZLE9N:A`Y:HN]!"*_^,8Q&@/B#(@`'C&`#'L,33J
MM'4S5I]I[:#1I0>TVWS28\$`L$1@N74>"3F'9G,MN=H4E+6_XQUO>QZ=ROWM
M4],:B0N='+EK_^,8Q&0-X!8@`'A&`";JW]E>I0)1ZXTAY67'$$J'PLX6Y5QP
M>KDH^^[8*L-$]UL67%QM#1B%!IC'L/SB#]/IO0VA6ZMAY_WZ_^,8Q&<,8!(D
M`'@``)4,:]4]A*NHA)T).CZVF#"A8L\\!14*EC5<6;(#Q8.AQ%J^Z*'&15W,
MK2\43?<]1V1:RQOL&,JG%N8[_^,8Q'`-4!HD`'B``&_YH7K5#PWZ8^PTX-!Y
MZ4-)=(LU<E6E#HX],UD5M216MSU!)Q`9-3;;Q4>S7J$4W#@^I6A*M;"#N?8V
M_^,8Q'4/D%(@`,&&`+V%E0\H:YVF>-!\N<%VM/TECR<@FXNSN8!5ET+VZ4%Q
M=G"Q<LUXJ];;`(^.M82KO5>;W.'>GKE152Z9_^,8Q'$.$`XD`'@``#4J`XN!
M_7CP6`!1L1$@&4(DPZ</VDWM3'L>^O4ME8:;L%5'SRT':$)7IS[C1J*F""TK
MNA+MO=5<A"K[_^,8Q',.2!X@`'A``,3U%$4,3&*:E^2-0%C'"2<@-+,JFY$=
M%_VAU#:VKI;+66V,O1U.%[C:WEZ$%[::*E$$E:K6(U_=%QKE_^,8Q'0/*"8D
M`'B&`*H&JB'S;II8L=8>&L!H+F]Q0RJ@I")#N8_XNV\V/+'*<%T%;67D9_\_
MZ=)["6.0^0_T)@9%(NFK(PG,_^,8Q'(-R#8D`,#"`#"`9'))&2=ZA6'!(ZFI
M19=3Z&.IFB`_((#:T-:0*I%1NM9^FE+&RKG,A1^38*V4H"RGR\UTKA>(JK/K
M_^,8Q'4,<!8D`'B&`$8DD(6T$&LL3)OV/Z94QN6?-$G+FSB]V]SH+/8@>CI6
MXX?>8Y1&Q7R-9QY>+C^M#TT(S,3<UC:8+'$U_^,8Q'X/<#(@`(#&`""A0*@=
M@),#FD69&NRBFB'+VJ&R*3;!E;;VNGD"VM"T*$TX;N6E*%#85NJ&]RD6_[VW
M+1F1]LSGIA3D_^,8Q'L-:#8@`'A$``PH<\P&@,Y3RSFQH&>Q]8U04?U1[I)@
M&%!81DUR1ZH\7"R2#6ZT'$_TL#YE3':.*_.11T6K!=<MG&&<_^,8Q(`/,$(@
M`,#&`/%R0L/:,I?'.0OG+,M2IQ&I8QZ;Q5+%J:A\<Z%)A:!XX]*YJUJ)0N*9
M:[;23BC:*ZT:@W]/%Z6^H(30_^,8Q'X/0"8@`'B&`,YX?'GP,N./OF'];Y]0
M25A`N(HG4,8FQPS,J*1I%\#KT\8J06:I`*V(;JK-,,,WNZ?"J19-B*0-8Z8P
M_^,8Q'P-L#(@`&B``-1A@+A\@T2#EWYDX':G(VOO@)3L:7%+JM;3A:PA:M2D
M\>VS0OKW_YQE:OGEJ@/B2>5A`8-G`2$:R`(6_^,8Q(`/0"X@`,#``%"#5;D5
M,O56_E;2R4/:A'>NVACF*ZGS2AE]%+"],@BV[WT,3_AN)JO?+;,SH`5#K,08
M($6H;%33B#$(_^,8Q'X-""XD`,#&`*"#&+L<D8NU>E6S&2W<Q(&04TFSCDL7
M$GUH<]%C*-\BB.\HB@L8J@4UGH@-40)#Z@6'7!UAV)1=@J@%_^,8Q(0,\!8D
M`'@``$N@#WHFS1,9L0D).N)2RB8=?BSV)<XNM>WF&\GO1[GK=T5$4J)\5A*1
M'[<D"!A`'YA7*3KR^A52:SEW_^,8Q(L.(#XD`,#&`,N*Q4#,,,%+!@,T$45)
M?1ZE4+<AS9&SK>S<6^CUU0H&+4,3`1C%"IRHB56UZ1(TS4VJI-CG\8Z*.(O8
M_^,8Q(T/<"X@`'B$`*6&R#"S)AB"0]8O/W3CS3TM0YK.Z]Y'VV(HYER$JB+,
MAA=-264P16N><(69#RR(J8.`05"8N\Y>7M2U_^,8Q(H,2!(D`'A$``R9N!-S
M4"G552DV5':J%JSISO732/>66P^Y"F:?J.-5Z`B&YS2D\["`3"<I%VHFSRGB
MP^VI`=`TRNQY_^,8Q),.B!X@`&!``"R[].9I<*:W:PZH/C:`2FDLB:-;>TJA
M2BRK^M@AK$WW2S%U(HYN1'?NC&0MC=(D!%@^7L;>P,D#V&E9_^,8Q),/@$(@
M`,&&`"+'14E8Y!HZUK=;>%&E[#]^U:MHLZ@;I&UE=;'J32QCK]W4`<(C(I&J
M`80#6Z`,#6L>('!`0BA%$P:>_^,8Q)`/&"H@`'B$`)=9V8:>+/OT]@TE0@@]
MPW%4')_E?BBU;RS:6,ZJWL8A5NH2;`T,TN5A'``@$1*E99"`H*C*'D$1SG'E
M_^,8Q(X.N$(@`,#$`*5V.6@!,/%!9K!H0=W.9[4/N##5\>%J=^%YZO:IFBMJ
M#&L4#:T5#B5Y^U3Y@`QV!PX4"-SQ=%EXG64&_^,8Q(X.@#(@`'F&`"0LY#%"
MV:`PX5N[20XK%RUUZ6DYG"+]%E[,\>?B)IQIAB)AVG\2:0#$UE3:%S"QH.BH
M3#YTZXBXL+#!_^,8Q(\/F"8D`,#&`$1&6WG&4.RI2%3=$V\@\X+,%:'DV_/O
MI9>J4(DRR>V/J6ON43?WO075$DPN!<,ZP6#.?*:0$Z4>M`-=_^,8Q(L/`#(D
M`,"``&:NG9N]#\,['N<)'GW(+9BH=IJ?C_]=T[^6:VS574H:(_DLKY8CJE<@
M*8<<W)N3NBXM%+&A0F)>FFE+_^,8Q(H/$"H@`'B&`(D*YZXBYVPC0SL1,;9R
MJY]SNY$WOF%5D@.FC#KRQ0A0,$D`05;'98B#;KJP$A%ZX\JD;0UB'8H7`[5.
M_^,8Q(@,&"HD`,"``$*H+=A$6M-)*I79W7IK/TO*(H!IG2V^ZBHB907JENE=
M11#2AP8ZV4!`HQ36HLN>]4`O$5L0W4`A8M%E_^,8Q)(-`"(D`,#$`*X*G2E[
MUHB,H0A]%0TO:UQ^+/>4HV*3LLC0-RT2B\N5^YH$)"'14I!:T.MBPN=2DA8C
M=0;*0.BNW&7"_^,8Q)D.T"(@`&#&`+<:1QAJ;A_B@Q[WAP7,A`_IG`U)K&O<
MUZR*H"56E.IE"QT/VV(]V)4)!Q0XV9:`"A@4J.7N6=',%JMZ_^,8Q)@/>"H@
M`,#$`%,V++(F`(FZMD@D5O\.)/6K=7"+,TNJFHGM0Y]AB._8M03KV%+;F%02
M"0E`2#H4'AMC7.&M(LY!46UW_^,8Q)40`$8D`,#&``"[?2.N+,H)4L8U@K;J
M=)RIE?1<E=*>-CF-M9I0@54-Q"G;:"9\C1/%;VGCS'BCW5NYE+`<G;BSVKH3
M_^,8Q)`.H"(@`'C``"W?94]2RY53WAQ*$'113[&[:;(>*1$-7E4I(+?>YE`+
M%]73>T>.J<X`&D'R[F_8BRD9=8G',&/'NG$P_^,8Q)`.("HD`'C``/3*I2]]
M!%R4-IL8979'NHT!A^RJEK;5R!^D6@&9`S^T_:`0##(/F5")8,%@T]`Z8J"!
M*<(3E:@),I%R_^,8Q)(.N!(@`'@``&LZXC+[6>?2FJXD7E6_'.$K\?U%44E6
M=-;[:LK5`<46^;K@H@H@5:%0&D")$QQ+%XM6Q^F+$8&]Z:6&_^,8Q)(-L!8D
M`'@``%"_*56L[EZ+=_;6]K!;0ZBS%M&M!S*)NLR.Y6&P=*)/)"@I,,'$VSFU
M[K';T[:S682@>I(SJ>@\O//>_^,8Q)8/""(@`,B``%2B3<ZWJJ0^O743OJ1T
M*@<270-5EEG`A#'0H?R;Z*6Z48M:_1<E4UIH.K*:SV*W,4+74R#6,N[PMV/T
M_^,8Q)0,<!8D`'B&`#G['^OWH34/%CN4U0XFXF`C'%*2#0/S>IE4:FY_9K6F
MA(YET0.^Q2Y?2BC;M%OI:L\[[.U.G:GI%@2\_^,8Q)T-2#HD`'B&`--D7)`D
M;<M3UFL1>.0EPQ>TJ4KHOFTD%(=V-`I!VQ#GH3[$RQC9B_K0A>FE.@]3J0.*
M%*N%1^3*#'GQ_^,8Q*(,F"XD`,"``%0D/I:P^3NY1D?]B0QJ75KCJQ6\TZI:
M7/>ZP7>NDLZY9AKA?Z+BHWUZE1*CQVK%!3@"+%JE--PU:.VR_^,8Q*H,0#XD
M`,C&``=:Q:GAG8MMMRB#@HQAA&>EX47&OJN*[FZ*W,4A!FB93`I&TEZ]*@(@
MN",HQQ__JE(E`"I"@>=`!&F7_^,8Q+0,L!8D`'C``+D+Q'A_8Y`9:(Q4(/5*
MK(=EJ\H]R&'11#BY(S'U)&-1$U[5[6JT7V1?4BI,04U%,RXX."`H8F5T82FJ
M_^,8Q+P-$"HD`'C``*JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ_^,8Q,(-V"H@`$C&`*JJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJ_^,8Q,4/D#H@`4\``*JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
DJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
`
end
</code>
<p>Hear monks talk! Listen to your favorite monks battle it out in the chatterbox, as streaming audio! Make your co-workers think you're a basket case!</p>
<p>This script delivers the chatterbox as MP3 encoded streaming audio. It uses the festival/MBROLA text-to-speech (TTS) system to create the audio on the fly.</p>
PerlMonks.org Related Scripts
J.C. Wren<br>
Twitching Monk Software Productions<br>
jcwren@jcwren.com