-
-
Save anonymous/e076f46cbc49dc352632 to your computer and use it in GitHub Desktop.
way2sms code
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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]; | |
$text = $ARGV[2]; | |
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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment