{"id":638,"date":"2012-07-26T08:51:00","date_gmt":"2012-07-26T08:51:00","guid":{"rendered":"http:\/\/zensonic.dk\/?p=638"},"modified":"2017-04-09T10:03:04","modified_gmt":"2017-04-09T10:03:04","slug":"version-2-of-small-perl-mechanize-script-to-send-sms-from-danish-telco-provider-bibob","status":"publish","type":"post","link":"https:\/\/zensonic.dk\/?p=638","title":{"rendered":"Version 2 of small perl mechanize script to send sms from danish telco provider Bibob"},"content":{"rendered":"

A year ago I wrote a small perl Mechanize script to send sms<\/a> from the command line (very useful for scripts) utilizing the web-sms service you get as a Bibob customer.<\/p>\n

Now a year later I actually found some use for it, but it didn’t work anymore due to the fact that Bibob had changed their website since then. And not just the graphics and layout, but the whole shebang.<\/p>\n

I have made some very small changes to the perl script to make it work again and I appriciate the versatility of perl and that the Bibob webmasters obviously thought a great deal about the upgrade.<\/p>\n

The new code can be downloaded here<\/a>, hbut is also included verbatim in this post<\/p>\n

\n
#!\/usr\/bin\/perl -w <\/span><\/p>\n

##############################################################################<\/span>
\n#<\/span>
\n# File:         bibob_sms.pl<\/span>
\n# Type:         bot<\/span>
\n# Description:  Send an SMS using bibob websms and perl mechanize<\/span>
\n# Language:     Perl<\/span>
\n# Version:      2.0<\/span>
\n# License:      BeerWare – Thomas S. Iversen wrote this file. As long as you <\/span>
\n#               retain this notice you can do whatever you want with this <\/span>
\n#               stuff. If we meet some day, and you think this stuff is worth<\/span>
\n#               it, you can buy me a beer in return. Thomas<\/span>
\n# History:<\/span>
\n#               2.0 – 2011.07.26 – New version due to total bibob.dk relayout<\/span>
\n#               1.0 – 2011.07.28 – Intial version<\/span>
\n#<\/span>
\n# (C) 2011,2012 Thomas S. Iversen (zensonic@zensonic.dk)<\/span>
\n#<\/span>
\n##############################################################################<\/span><\/p>\n

use<\/span> strict;<\/span>
\nuse<\/span> WWW::<\/span>Mechanize<\/span>;<\/span>
\nuse<\/span> File::<\/span>Basename<\/span>;<\/span><\/p>\n

# Variables controlling bot behaviour <\/span><\/p>\n

my<\/span> $sms_url<\/span>=<\/span>‘https:\/\/www.bibob.dk\/min-konto\/web-sms’<\/span>;<\/span>
\nmy<\/span> $login_url<\/span>=<\/span>‘https:\/\/www.bibob.dk\/’<\/span>;<\/span><\/p>\n

my<\/span> $script<\/span>=<\/span>basename(<\/span>$0<\/span>)<\/span>;<\/span>
\ndie<\/span><\/a> "$script <bibob mobile number> <bibob password> <recipeient number> <message>"<\/span> if<\/span>(<\/span>!<\/span>(<\/span>$#ARGV<\/span>+<\/span>1 ==<\/span> 4)<\/span>)<\/span>;<\/span><\/p>\n

my<\/span> $username<\/span>=<\/span>$ARGV<\/span>[<\/span>0]<\/span>;<\/span>
\nmy<\/span> $password<\/span>=<\/span>$ARGV<\/span>[<\/span>1]<\/span>;<\/span>
\nmy<\/span> $recipients<\/span>=<\/span>$ARGV<\/span>[<\/span>2]<\/span>;<\/span>
\nmy<\/span> $message<\/span>=<\/span>$ARGV<\/span>[<\/span>3]<\/span>;<\/span><\/p>\n

\n#<\/span>
\n# You should not need to alter anything below this line<\/span>
\n#<\/span><\/p>\n

#<\/span>
\n# Main code.<\/span>
\n#<\/span><\/p>\n

# Create mechanize instance<\/span>
\nmy<\/span> $mech<\/span> =<\/span> WWW::<\/span>Mechanize<\/span>-><\/span>new<\/span>(<\/span> autocheck =><\/span> 1 )<\/span>;<\/span> #Create new browser object<\/span>
\n$mech<\/span>-><\/span>agent_alias<\/span>(<\/span> ‘Windows IE 6′<\/span> )<\/span>;<\/span> #Create fake headers just in case<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Accept’<\/span> =><\/span> ‘text\/xml,application\/xml,application\/xhtml\\+xml,text\/html,text\/plain,image\/png’<\/span> )<\/span>;<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Accept-Language’<\/span> =><\/span> ‘en-us,en’<\/span> )<\/span>;<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Accept-Charset’<\/span> =><\/span> ‘ISO-8859-1,utf-8′<\/span> )<\/span>;<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Accept-Language’<\/span> =><\/span> ‘en-us,en’<\/span> )<\/span>;<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Keep-Alive’<\/span> =><\/span> ’300′<\/span> )<\/span>;<\/span>
\n$mech<\/span>-><\/span>add_header<\/span>(<\/span> ‘Connection’<\/span> =><\/span> ‘keep-alive’<\/span> )<\/span>;<\/span><\/p>\n

# Get login page<\/span>
\n$mech<\/span>-><\/span>get<\/span>(<\/span>$login_url<\/span>)<\/span>;<\/span>
\n$mech<\/span>-><\/span>success<\/span> or<\/span> die<\/span><\/a> "Can’t get the login page"<\/span>;<\/span><\/p>\n

# Submit the login form with username (mobilnumber) and password<\/span>
\n$mech<\/span>-><\/span>submit_form<\/span>(<\/span>with_fields =><\/span> {<\/span> ‘phoneNumber’<\/span> =><\/span> $username<\/span>,<\/span> ‘password’<\/span> =><\/span> $password<\/span> }<\/span>)<\/span>;<\/span>
\n$mech<\/span>-><\/span>success<\/span> or<\/span> die<\/span><\/a> "Could not login"<\/span>;<\/span><\/p>\n

# Get sms page<\/span>
\n$mech<\/span>-><\/span>get<\/span>(<\/span>$sms_url<\/span>)<\/span>;<\/span>
\n$mech<\/span>-><\/span>success<\/span> or<\/span> die<\/span><\/a> "Could not get sms page"<\/span>;<\/span><\/p>\n

# Send sms by submitting sms form<\/span>
\n$mech<\/span>-><\/span>submit_form<\/span>(<\/span>with_fields =><\/span> {<\/span> ‘recipients’<\/span> =><\/span> $recipients<\/span>,<\/span> ‘message’<\/span> =><\/span> $message<\/span> }<\/span>)<\/span>;<\/span>
\n$mech<\/span>-><\/span>success<\/span> or<\/span> die<\/span><\/a> "Could not send sms"<\/span>;<\/span><\/p>\n

# Figure out status<\/span>
\nmy<\/span> $html<\/span> =<\/span> $mech<\/span>-><\/span>content<\/span>(<\/span>)<\/span>;<\/span>
\ndie<\/span><\/a> "Form submitted, but message does not appear to be sent"<\/span> if<\/span>(<\/span>!<\/span>$html<\/span>=~\/<\/span>Beskeden blev afsendt\/<\/span>ig)<\/span>;<\/span>
\nexit<\/span><\/a> 0<\/span>;<\/span><\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

A year ago I wrote a small perl Mechanize script to send sms from the command line (very useful for scripts) utilizing the web-sms service you get as a Bibob customer. Now a year later I actually found some use for it, but it didn’t work anymore due to the fact that Bibob had changed […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,5,6],"tags":[],"class_list":["post-638","post","type-post","status-publish","format-standard","hentry","category-fun-projects","category-personal-ramblings","category-unix"],"_links":{"self":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/posts\/638"}],"collection":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=638"}],"version-history":[{"count":0,"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/posts\/638\/revisions"}],"wp:attachment":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=638"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=638"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=638"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}