Perl

[Perl] Demande authentification avec le script mais pas avec Firefox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Demande authentification avec le script mais pas avec Firefox

Gavrinis

Open your mind

Bonjour,

Je cherche à récupérer les pharmacies de garde sur ce site (qui était dans une iframe), afin de les publier sur le site de mon village.
Le problème est que si je tente d'y accéder via mon script ci dessous, je me fais remballer à cause d'une demande d'identification.
Cette authentification m'est aussi demandée avec Chromium, mais pas avec Firefox. J'ai tenté en modifiant l'useragent mais pas de changement.

Voici le début de mon script Perl :

Code :

#!$(which perl) -w
use strict;
use warnings;
use HTML::Form;
use LWP::Simple;
use LWP::UserAgent;
sub recupPharm {
# Code postal, lieu, date, heure, version.
my ($cp, $lieu, $jour, $heure, $version) = qw(5030 Lonzée 26 20h00 2);
# URL du site.
my $base = 'http://admin.ringring.be/';
# Initialise l'user-agent.
my $ua = LWP::UserAgent->new(agent => "Mozilla/5.0 (X11; U; Linux x86_64; fr-BE; rv:1.9.2.13) Gecko/20101211 Firefox/3.6.13" );
# Crée la requête
my $req = HTTP::Request->new(GET => "${base}apb/public/duty_geo2.asp?lan=2" );
# Exécute la requête et reçoit la réponse.
my $res = $ua->request($req);
die $res->status_line if not $res->is_success;
# Sélectionne le premier formulaire de la page.
my $form = (HTML::Form->parse($res->content, $base))[0];
# Remplit les champs.
$form->find_input('zip_code')->value($cp);
$form->find_input('city')->value($lieu);
$form->find_input('T_dag')->value($jour);
$form->find_input('T_hour')->value($heure);
$form->find_input('textv')->value($version);
# Exécute le formulaire.
my $validate = $ua->request($form->click);
# Récupère la page.
my $content = $validate->content;
&write($content);
}
sub write {
open(WRITER, "> test.txt" ) or die("Le fichier ne peut être édité !\n" );
# Écrit le paramètre dans le fichier.
print WRITER @_;
close(WRITER);
return 0;
}
&recupPharm();

L'erreur :

You are not authorized to view this page
You do not have permission to view this directory or page using the credentials you supplied.

Please try the following:

* Click the Refresh button to try again with different credentials.
* If you believe you should be able to view this directory or page, please contact the Web site administrator by using the e-mail address or phone number listed on the home page.

HTTP 401.2 - Unauthorized: Logon failed due to server configuration
Internet Information Services

Technical Information (for support personnel)

* Background:
This is usually caused by a server-side script not sending the proper WWW-Authenticate header field. Using Active Server Pages scripting this is done by using the AddHeader method of the Response object to request that the client use a certain authentication method to access the resource.

* More information:
Microsoft Support

Pouvez-vous m'aider, je n'y comprends rien ?

Message édité par Gavrinis le 29-12-2010 à 10:28:26

Publicité

Gavrinis

Open your mind

Je viens de remarquer que j'avais oublié de linker la page ...

pataluc

peut être parce que le formulaire est en POST et non en GET...

PS: je ne suis pas sur que ce soit très légal de récupérer des infos automatiquement si tu n'as pas l'accord de l'éditeur du site...

Message édité par pataluc le 29-12-2010 à 11:13:13

Gavrinis

Open your mind

Le formulaire est peut-être en POST mais le GET de mon code fait référence à la requête de la page, je ne pense pas qu'il atteigne le formulaire vu qu'une authentification est demandée (en tout cas c'est le comportement que j'ai avec Chromium).
Je vais leur demander la permission et je collerai leur réponse ici pour preuve .

Merci.

Message édité par Gavrinis le 29-12-2010 à 13:45:50

FORUM HardWare.fr

Programmation

Perl

[Perl] Demande authentification avec le script mais pas avec Firefox

Sujets relatifs
[RCH] script menu de la semaine	script pour
Script Accès Distant	Casse-tête Script sauvegarde server
Système de cache pour script de liens changeant le contenu d'une div.	Script pour lancer un programme si le ping ne répond plus
onChange champ formulaire avec affichage de script	Script qui vérifie si un .exe est déjà lancé
script de download ftp	Script shell scripting bash/Linux
Plus de sujets relatifs à : [Perl] Demande authentification avec le script mais pas avec Firefox

Page générée en 0.029 secondes