{"id":545,"date":"2011-07-28T21:52:00","date_gmt":"2011-07-28T21:52:00","guid":{"rendered":"http:\/\/zensonic.dk\/?p=545"},"modified":"2017-04-09T10:03:43","modified_gmt":"2017-04-09T10:03:43","slug":"small-perl-mechanize-script-to-send-sms-from-danish-telco-provider-bibob","status":"publish","type":"post","link":"https:\/\/zensonic.dk\/?p=545","title":{"rendered":"Small perl mechanize script to send sms from danish telco provider Bibob"},"content":{"rendered":"

It can be handy to send sms’es from scripts. In old time you could do that in Telia by sending a mail to <mobile number>@gsm1800.telia.dk. But that service was closed. Now that I am leaving Telia in favor of Bibob I saw that they had a websms service.<\/p>\n

And so I combined their fine web service with my perl scripting skillz. The script can be downloaded here<\/a><\/p>\n

Do not forget the agreement between you and bibob. You are only allowed to use the websms service (and thus this script) for personal use. I am not to blame if bibob closes your bibob account because you spam-smsed a lot of people.<\/p>\n

The code is also included here:<\/p>\n

 <\/p>\n

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

#####################################################################<\/span>
\n#<\/span>
\n# File:\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 bibob_sms.pl<\/span>
\n# Type:\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 bot<\/span>
\n# Description:\u00c2\u00a0 Send an SMS using bibob websms and perl mechanize<\/span>
\n# Language:\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Perl<\/span>
\n# Version:\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 1.0<\/span>
\n# License:\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 BeerWare – Thomas S. Iversen wrote this file.<\/span>
\n#\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 As long as you retain this notice you can<\/span>
\n#\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 do whatever you want with this stuff.<\/span>
\n#\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If we meet some day, and you think this stuff is<\/span>
\n#\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 worth it, you can buy me a beer in return. Thomas<\/span>
\n#<\/span>
\n# History:<\/span>
\n#\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 1.0 – 2011.07.28 – Intial version<\/span>
\n#<\/span>
\n# (C) 2011 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\/bibob\/bibob?cmd=websmssender’<\/span>;<\/span>
\nmy<\/span> $login_url<\/span>=<\/span>‘https:\/\/www.bibob.dk\/bibob\/bibob?cmd=loginFrame’<\/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

#<\/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> ‘loginmsisdn’<\/span> =><\/span> $username<\/span>,<\/span> ‘login-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><\/p>\n

exit<\/span><\/a> 0<\/span>;<\/span><\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

It can be handy to send sms’es from scripts. In old time you could do that in Telia by sending a mail to <mobile number>@gsm1800.telia.dk. But that service was closed. Now that I am leaving Telia in favor of Bibob I saw that they had a websms service. And so I combined their fine web […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,8,5,6],"tags":[],"class_list":["post-545","post","type-post","status-publish","format-standard","hentry","category-fun-projects","category-mobile-phone","category-personal-ramblings","category-unix"],"_links":{"self":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/posts\/545"}],"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=545"}],"version-history":[{"count":0,"href":"https:\/\/zensonic.dk\/index.php?rest_route=\/wp\/v2\/posts\/545\/revisions"}],"wp:attachment":[{"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=545"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=545"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/zensonic.dk\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=545"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}