Reply to thread

Message

<blockquote data-quote="dumasrc" data-source="post: 6738664" data-attributes="member: 242705">Hi There,Here you Go,#!/usr/bin/perl# Scipt: email2sms.pl# Author: Lee Engel, [EMAIL PROTECTED]# Date: 14-03-2006use Email::Simple;use Net::SMS::Clickatell;my $logfile = &quot;/usr/local/smsc/incoming.log&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # The log filemy $raw_mail;my %headers = ();my $API_CODE = '123456';&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # You'll get this&nbsp; when you&nbsp; sign up my $URL = '';&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # If you wanna send it&nbsp;&nbsp; somewhere else... my $USERNAME = 'easitext';&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Your Clickatell usernamemy $PASSWORD = 'very_secret_password';&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # ...and the passwordwhile(&lt;&gt;){ $raw_mail .= $_; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Put&nbsp; the entire mail&nbsp; into a variable my $mailobj = Email::Simple-&gt;new($raw_mail);$headers{Subject} = $mailobj-&gt;header(&quot;Subject&quot;);&nbsp; &nbsp; &nbsp; &nbsp; #&nbsp; Get the number&nbsp; from the subject line $headers{From} = $mailobj-&gt;header(&quot;From&quot;);&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Get&nbsp; the senders&nbsp; address for logging $headers{Subject} =~ s/[^\d]//g;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Strip away non-digits$headers{Subject} =~ s/\s//g;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Strip away whitespaceif($headers{Subject} =~ /^0(8|7)(2|3|4|6|9)/){&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; #&nbsp; Check if&nbsp; it's a SA cell number&nbsp; &nbsp; $headers{Subject} =~ s/^0/27/;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # and prepend&nbsp; the 27&nbsp; to the front }if($headers{Subject} eq ''){&nbsp;&nbsp; die &quot;Subject line is empty. Exiting!\n&quot;;&nbsp; &nbsp; &nbsp; &nbsp; # You might&nbsp; wanna&nbsp; call it quits if there is no number }my $msg = $mailobj-&gt;body();&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Put the&nbsp; body into a&nbsp; variable $msg = substr($msg, 0, 160);&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; # Just grab the&nbsp; first&nbsp; 160 characters # Here follows all the Clickatell API stuff.# Don't worry about this too much, you can read about it at&nbsp; www.clickatell.com my $catell = Net::SMS::Clickatell-&gt;new( API_ID =&gt;&nbsp; $API_CODE, UseSSL =&gt;&nbsp; 0, BaseURL =&gt; $URL ); $catell-&gt;auth( USER =&gt; $USERNAME, PASSWD =&gt; $PASSWORD );$catell-&gt;sendmsg( TO =&gt; $headers{Subject} , MSG =&gt; $msg);if(my $error = $catell-&gt;error){&nbsp;&nbsp; if($error == 1) {&nbsp; &nbsp; &nbsp;&nbsp; die(&quot;Clickatell Username or password not defined\n&quot;);&nbsp;&nbsp; }elsif($error == 2) {&nbsp; &nbsp; &nbsp;&nbsp; die(&quot;Clickatell Username or password invalid\n&quot;);&nbsp;&nbsp; } else {&nbsp; &nbsp; &nbsp;&nbsp; die(&quot;Clickatell: Unexpected fault\n&quot;);&nbsp;&nbsp; }}# Keep a log, you may need it later.open(FH,&quot;&gt;&gt;$logfile&quot;) || die &quot;ERROR: $!\n&quot;;print FH $headers{From} . ' ' . $headers{Subject} . ' ' . $msg . &quot;\n&quot;;close(FH);Cheers~uppalp.s. got it from the way back machine at archive.orgAlvaro Cornejo wrote:Hi

Does anyone has this script ? and some instructions on how to use it?
I've been googling arround and it is not available anymore on the web
www.easitext.com in not longer available... as far as I could found
... well NOT found <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite2" alt=";-)" title="Wink&nbsp; &nbsp; ;-)" loading="lazy" data-shortname=";-)" />

Regards

Alvaro


</blockquote>

[QUOTE="dumasrc, post: 6738664, member: 242705"] Hi There, Here you Go, #!/usr/bin/perl # Scipt: email2sms.pl # Author: Lee Engel, [EMAIL PROTECTED] # Date: 14-03-2006 use Email::Simple; use Net::SMS::Clickatell; my $logfile = "/usr/local/smsc/incoming.log"; # The log file my $raw_mail; my %headers = (); my $API_CODE = '123456'; # You'll get this when you sign up my $URL = ''; # If you wanna send it somewhere else... my $USERNAME = 'easitext'; # Your Clickatell username my $PASSWORD = 'very_secret_password'; # ...and the password while(<>){ $raw_mail .= $_; } # Put the entire mail into a variable my $mailobj = Email::Simple->new($raw_mail); $headers{Subject} = $mailobj->header("Subject"); # Get the number from the subject line $headers{From} = $mailobj->header("From"); # Get the senders address for logging $headers{Subject} =~ s/[^\d]//g; # Strip away non-digits $headers{Subject} =~ s/\s//g; # Strip away whitespace if($headers{Subject} =~ /^0(8|7)(2|3|4|6|9)/){ # Check if it's a SA cell number $headers{Subject} =~ s/^0/27/; # and prepend the 27 to the front } if($headers{Subject} eq ''){ die "Subject line is empty. Exiting!\n"; # You might wanna call it quits if there is no number } my $msg = $mailobj->body(); # Put the body into a variable $msg = substr($msg, 0, 160); # Just grab the first 160 characters # Here follows all the Clickatell API stuff. # Don't worry about this too much, you can read about it at www.clickatell.com my $catell = Net::SMS::Clickatell->new( API_ID => $API_CODE, UseSSL => 0, BaseURL => $URL ); $catell->auth( USER => $USERNAME, PASSWD => $PASSWORD ); $catell->sendmsg( TO => $headers{Subject} , MSG => $msg); if(my $error = $catell->error){ if($error == 1) { die("Clickatell Username or password not defined\n"); }elsif($error == 2) { die("Clickatell Username or password invalid\n"); } else { die("Clickatell: Unexpected fault\n"); } } # Keep a log, you may need it later. open(FH,">>$logfile") || die "ERROR: $!\n"; print FH $headers{From} . ' ' . $headers{Subject} . ' ' . $msg . "\n"; close(FH); Cheers ~uppal p.s. got it from the way back machine at archive.org Alvaro Cornejo wrote:[INDENT]Hi Does anyone has this script ? and some instructions on how to use it? I've been googling arround and it is not available anymore on the web www.easitext.com in not longer available... as far as I could found ... well NOT found ;-) Regards Alvaro [/INDENT] [/QUOTE]

Verification

Asuwa dahayen wadi kalama keeyada?

Search

Latest ads

Reply to thread