Send Free sms in India via Way2Sms login from Terminal using perl code

Prerequisites : WWW:Mechanize and it dependencies and perl. Require way2sms user account .

——————————————ScriptName: perlSMS.pl——————————-

#!/usr/bin/perl

use WWW::Mechanize;
use Compress::Zlib;

my $mech = WWW::Mechanize->new();

my $username = “way2sms login username“; #fill in username here
my $keyword = “password“;  #fill in password here

my ($text,$mobile,$option);
my @mobilenos;
$option = $ARGV[0];

if ( $option == “-f”) {
# reading file and collecting the nos

#my $smslistfile = $ARGV[1]; # I am using following file format for storing all mobile no. per line one mobile no.
my $smslistfile = “/root/abc”;
$text = “this is test mail using perl script-Any Message”;
open(FILE,$smslistfile) or die “Can not open file\n”;
@mobilenos = <FILE>;
close FILE;
}
else{
my $morenos = $ARGV[0];
if (length($morenos) > 10) {
# splitting nos with comma seperated in the first arg
@mobilenos = split(‘,’,$morenos);
}
else {
# for single phone no
@mobilenos = $morenos;
}
# collecting message to send
$text = $ARGV[1];
}

$deb = 1;

print “Total Character of message is “.length($text).”\n” if($deb);

$text = $text.”\n\n\n\n\n” if(length($text) < 135);

$mech->get(“http://wwwl.way2sms.com/content/index.html”);
unless($mech->success())
{
exit;
}
$dest = $mech->response->content;

print “Fetching…\n” if($deb);

if($mech->response->header(“Content-Encoding”) eq “gzip”)
{
$dest = Compress::Zlib::memGunzip($dest);
$mech->update_html($dest);
}

# Commented the below line from version 1b. Uncomment it for version 1a.
#$dest =~ s/<form name=”loginForm”/<form action=’..\/auth.cl’ name=”loginForm”/ig;

# Added the below updated line to replace the above line in the version 1b.
$dest =~ s/<form name=”loginForm”/<form action=’..\/Login1.action’ name=”loginForm”/ig;

$mech->update_html($dest);
$mech->form_with_fields((“username”,”password”));
$mech->field(“username”,$username);
$mech->field(“password”,$keyword);

print “Loggin…\n” if($deb);

$mech->submit_form();

$dest= $mech->response->content;

if($mech->response->header(“Content-Encoding”) eq “gzip”)
{
$dest = Compress::Zlib::memGunzip($dest);
$mech->update_html($dest);
}
foreach $mobile (@mobilenos){
# for loop begins
chomp($mobile);
print “\nMessage sending to “.($mobile).”\n”;
$mech->get(“http://wwwl.way2sms.com//jsp/InstantSMS.jsp?val=0″);
$dest= $mech->response->content;
if($mech->response->header(“Content-Encoding”) eq “gzip”)
{
$dest = Compress::Zlib::memGunzip($dest);
$mech->update_html($dest);
}
print “Sending … \n” if($deb);
$mech->form_with_fields((“MobNo”,”textArea”));
$mech->field(“MobNo”,$mobile);
$mech->field(“textArea”,$text);
$mech->submit_form();
if($mech->success())
{
print “Done \n” if($deb);
}
else
{
print “Failed \n” if($deb);
exit;
}
$dest =  $mech->response->content;
if($mech->response->header(“Content-Encoding”) eq “gzip”)
{
$dest = Compress::Zlib::memGunzip($dest);
#print $dest if($deb);
}
if($dest =~ m/successfully/sig)
{
print “Message sent successfully \n” if($deb);
}
# foreach loop ends
}
print “Message sent to all the numbers\n Bye.\n”;
exit;
#EOF
——————————End ————————————

Go to Linux Command prompt and type following command

#perl perlSMS.pl       (here you need to enter absolute path of perl script)

Total Character of message is 53
Fetching…
Loggin…
Message sending to <yourNumber>
Sending …
DoneMessage sent successfully
Message sent to all the numbers
Bye.

Its working very nicely.