Tag Archives | Perl

Perl – Send Email via Secure Mail Server

#!/usr/bin/perl -w # Modules Needed: # apt-get install libssl-dev # perl -MCPAN -e shell # install Net::SSLeay # install IO::Socket::SSL # install Authen::SASL # install Net::SMTP::SSL use Net::SMTP::SSL; sub send_mail { my $to = $_[0]; my $subject = $_[1]; my $body = $_[2]; open(MYINPUTFILE, “<$ARGV[$0]“); # open for input my(@lines) = ; # read file […]

Continue Reading 0

Text to Speech AGI

#!/usr/bin/perl #————————- #Text to Speech AGI #Mod by V #ver 0.03 #http://www.deepthought.ws #————————————————————————— #Standard Usage # Usage: exten => s,n,AGI(tts.pl,TEXT,VOICEENGINE,BACKGROUND,DELFILE) #Background Usage # exten => s,n,AGI(tts.pl,TEXT,VOICEENGINE,1,1) # exten => s,3,Background(${MY_VOICEFILE}) #-Optional: # exten => s,n,System(rm /var/lib/asterisk/sounds/tts/${MY_VOICEFILE}) #————————————————————————— use Asterisk::AGI; use File::Basename; use Digest::MD5 qw(md5_hex); $AGI = new Asterisk::AGI; my %input = $AGI->ReadParse(); my ($text)=$ARGV[0]; my […]

Continue Reading 0

Powered by recycled bites and bytes.