0 Replies - 6279 Views - Last Post: 26 August 2012 - 12:24 PM

#1 cupidvogel  Icon User is offline

  • D.I.C Addict

Reputation: 31
  • View blog
  • Posts: 593
  • Joined: 25-November 10

Automating sms sending by through Way2sms in Perl

Posted 26 August 2012 - 12:24 PM

I am trying to send sms through Way2sms using Perl LWP. The login part is being successful, after which I save the cookies to a local file. The welcome page after being logged in shows a Send SMS link, clicking on which one is redirected to another page with two inputs for mobile number and sms text and a button for submitting and sending the sms. Firebug reveals the page structure as shown in the figure. From the Iframe url and the form's action attribute, I constructed the form action's absolute URL and submit the form accordingly, with the cookie stored in the file. However, the sms isn't sent. What I am doing wrong here? The code is as follows. (The name attributes for the two text inputs are correct, taken by observing the source code in Firebug, although that's not included in the image)

    use LWP::UserAgent;
    open f, "> way2sms.txt";
    use HTTP::Cookies;
    my $cookie_jar = HTTP::Cookies->new(
    file => "cookies.txt",
    autosave => 1,
    );
    my $ua = LWP::UserAgent->new(
    agent =>
    'Mozilla/5.0 (X11; Linux x86_64; rv:14.0) Gecko/20100101 Firefox/14.0.1',
    cookie_jar => $cookie_jar,
    );
    my $response = $ua->post(
    'http://site2.way2sms.com/contentt/bar/Login1.action',
    {
    username => $user,
    password => $pass,
    }
    );
    if ( $response->is_redirect ) {
    $response = $ua->get( $response->header('Location') );
    print 5 if $response->decoded_content =~ /Kaustav Mukherjee/i; #prints it, howing that the login is successful
    }
    my $smsresp = $ua->post("http://site5.way2sms.com/jsp/quicksms.action",[MobNo=>$mob,textArea=>'Hello World']);

Attached image(s)

  • Attached Image


Is This A Good Question/Topic? 0
  • +

Page 1 of 1