Archive for mars, 2013

La minute geek : récupérer les remboursements de la sécu en Perl

vendredi, mars 22nd, 2013

Récupérer les derniers remboursement de la sécu, en perl…

use WWW::Mechanize;
use Crypt::SSLeay;

$mech = WWW::Mechanize->new();

$url = 'https://assure.ameli.fr/';
$result = $mech->get( $url );
die "GET failed\n" unless $result->is_success;
$result = $mech->submit_form(
form_name => 'connexionCompteForm',
fields => {
connexioncompte_2numSecuriteSociale => 'yyyyy',
connexioncompte_2codeConfidentiel => 'xxxxx',
connexioncompte_2actionEvt => 'connecter',
submit => 'Valider'
}
);
die "SUBMIT failed\n" unless $result->is_success;
$url = 'https://assure.ameli.fr/PortailAS/appmanager/PortailAS/assure?_nfpb=true&_pageLabel=as_dernier_paiement_page';
$result = $mech->get( $url );
$content = $result->as_string();
print $mech->res->decoded_content;
print "\n";

(largement inspiré de trucs trouvés sur internet)