Das Werkstatt

[small function for following a frameset]

------------------------------------------------------------------
sub followFrameSet {
my ($content, $frameName) = @_;

print "Checking for frameset... ";
if ($content =~ /<FRAME.*name=$frameName.*src="(.*)"/) {
print "found. - ";
print "following frame-src: $1\n";
return $1;
}
print "negative.";
return;
}
------------------------------------------------------------------

[Speaking text using 'festival']

------------------------------------------------
sub say_something {
my $text = shift;
open(FESTIVAL, '| festival --tts --pipe');
print FESTIVAL $text;
}
------------------------------------------------