Line # Revision Author
1 37 dpavlin #!/usr/bin/perl -w
2
3 use strict;
4 use WWW::Mechanize;
5 use Data::Dumper;
6
7 my $mech = WWW::Mechanize->new();
8
9 my $args = join(" ",@ARGV);
10
11 $args =~ s/^0/+385/;
12
13 my ($prefix,$number,$message);
14 if ($args =~ m/(\+385\d\d)(\d+)\s+(.+)/) {
15 ($prefix,$number,$message) = ($1,$2,$3);
16 } else {
17 die "can't parse '$args' into number and message!";
18 }
19
20 my $url = 'http://www.vip.hr/sp/d_sendSMS?';
21 $mech->get( $url );
22
23 $mech->submit_form(
24 form_name => 'isplogform',
25 fields => {
26 SMSusername => 'login',
27 SMSpassword => 'password',
28 },
29 button => 'SMSsubmit'
30 );
31
32
33 sub dump_forms {
34 my $mech = shift;
35
36 for my $form ( $mech->forms() ) {
37 print $form->dump;
38 print "\n";
39 }
40 }
41
42 $mech->submit_form(
43 form_name => 'smsform',
44 fields => {
45 netpref => $prefix,
46 phoneno => $number,
47 mess => $message
48 }
49 );
50
51 dump_forms($mech);