dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
sms.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
41dcbd5
)
Sync with new Orange.pl website.
author
Rafał Długołęcki
<kontakt@dlugolecki.net.pl>
Mon, 9 Dec 2013 20:54:42 +0000
(21:54 +0100)
committer
Rafał Długołęcki
<kontakt@dlugolecki.net.pl>
Mon, 9 Dec 2013 20:54:42 +0000
(21:54 +0100)
sms.pl
patch
|
blob
|
history
diff --git
a/sms.pl
b/sms.pl
index 4104fbc92f781364ada8468a6fb50dd20d39d280..a4db93a866dba2636e147a7344f2b23a255f45a1 100755
(executable)
--- a/
sms.pl
+++ b/
sms.pl
@@
-36,12
+36,13
@@
$mech->submit_form(
'/tp/core/profile/login/ProfileLoginFormHandler.value.password' => $config{password}
}
);
'/tp/core/profile/login/ProfileLoginFormHandler.value.password' => $config{password}
}
);
-$mech->follow_link( text => 'SMS');
+$mech->follow_link( text => 'Multi Box' );
+$mech->follow_link( text => 'SMS' );
my $dom = Mojo::DOM->new;
$dom->parse($mech->content());
my $dom = Mojo::DOM->new;
$dom->parse($mech->content());
-my $send_url = $dom->find('div[id="top-buttons"] a')->[1]->attr
s
('href');
+my $send_url = $dom->find('div[id="top-buttons"] a')->[1]->attr('href');
$mech->get($send_url);
# Using $mech->submit_form instead is not working, so don't change
$mech->get($send_url);
# Using $mech->submit_form instead is not working, so don't change