[Perl] Dancer2 et Native React
Patrice Karatchentzeff
patrice.karatchentzeff at gmail.com
Ven 9 Juin 06:25:54 CEST 2023
Merci de ta réponse.
Je ne me souviens plus d'où j'ai récupéré ce code, mais je crois qu'il
est dans la doc officielle de Dancer2.
Avec ta modif, j'ai exactement le même comportement, sauf que cela
ajoute une erreur côté Dancer en cas de chaîne vide :
% curl --header "Content-Type: application/json" --request POST
http://localhost:5000/connect
{"title":"Error 500 - Internal Server
Error","status":500,"exception":"Can't use string (\"\") as a HASH ref
while \"strict refs\" in use at...
confirmée dans les logs :
[xx:704249] error @2023-06-09 06:21:38> Route exception: Can't use
string ("") as a HASH ref while "strict refs" in use at /home/pk/...
line 94. in /home/pk/perl5/lib/perl5/Dancer2/Core/App.pm l. 1516
[xx:704249] core @2023-06-09 06:21:38> Entering hook core.error.init
in (eval 245) l. 1
[xx:704249] core @2023-06-09 06:21:38> Entering hook core.error.before
in (eval 245) l. 1
[xx:704249] core @2023-06-09 06:21:38> Entering hook core.error.after
in (eval 245) l. 1
127.0.0.1 - - [09/Jun/2023:06:21:38 +0200] "POST /connect HTTP/1.1"
500 256 "-" "curl/7.81.0"
Donc, ça me dégrade plutôt les choses. Avec le code initial, j'ai :
% curl --header "Content-Type: application/json" --request POST
http://localhost:5000/connect
{"ConnectionState":"unconnected"}
ce qui est le comportement attendu.
Merci en tout cas d'avoir essayé de m'indiquer une piste.
Je pense désormais à un bogue, côté React. J'ai déposé un bug request
dans le github de React Native. Je verrais bien...
Merci
PK
Le jeu. 8 juin 2023 à 21:47, Sébastien Feugère <sebastien at feugere.net> a écrit :
>
> Les messages d'erreur de Firefox et de Chrome semblent indiquer que les navigateurs essaient de parser du JSON qui n'en est pas, ou qui n'est pas valide... Peut être une page 404 ?
>
> J'ai mis la même route dans une application Dancer crée avec le générateur par défaut.
>
> params('body')->{login};
>
> params('body')->{password};
>
>
> sont tous les deux undef, car dans cette situation, params('body') retourne un hash vide... Je ne vois pas comment ce code peut fonctionner avec cURL. Donc dans une application React, encore moins.
>
> my $post = from_json( request->body );
> my $login = $post->{login};
> my $password = $post->{password};
>
> Avec ceci, j'ai pu me "connecter" avec cURL, pas de soucis et le JSON est bien valide, en utilisant :
>
> curl --header "Content-Type: application/json" --request POST --data '{"login":"PK","password":"PK"}' http://localhost:5000/connect
>
> En espérant que cela puisse aider...
>
> On 08/06/2023 09:10, Patrice Karatchentzeff wrote:
>
> Salut,
>
> Je poste ici, un peu en désespoir de cause...
>
> J'ai isolé mon problème, donc ce sera plus facile. Je cherche à me
> connecter à un back-end Dancer2 avec un simple login+mot de passe
> depuis une appli en Native React. Tout est hard-codé pour plus de
> simplicité. Je poste une requête json (login+mot de passe) et le
> serveur répond en json (connecté ou pas connecté selon la valeur de la
> requête initiale).
>
> J'ai un résultat bizarre. Je n'arrive pas à incriminer exactement le
> responsable. Ça marchotte avec Firefox, mais foire avec Chrome.
>
> Le problème identifié : la valeur de retour du json (donc côté
> Dancer2) serait mal formattée. Firefox gueule, mais récupère le json
> pourtant correctement. Chrome ne négocie rien du tout et s'arrête en
> cours.
>
> Voici le code isolé en react native (désolé, GMail ne veut pas
> d'attaché en javascript) :
>
> % cat App.js
> import React, { useState, useEffect } from 'react';
> import {
> View,
> Text,
> } from 'react-native';
>
> const ipAddress = "192.168.1.103";
> const portAddress ="5000";
> const httpProtocol = "http";
> const uriBase = httpProtocol + "://" + ipAddress + ":" + portAddress ;
>
>
> function App() {
>
> const jsonReader = { 'login':"PK", 'password':"PK" };
> let string = JSON.stringify(jsonReader);
>
> const [message, setMessage] = useState("disconnected");
>
> const submitConnectAsync2 = async () => {
> return fetch(
> uriBase + '/connect', {
> //'http://jsonplaceholder.typicode.com/posts', {
> mode: 'no-cors', // beurk...
> method: 'POST',
> headers: {
> 'Accept' : 'application/json',
> 'Content-Type' : 'application/json',
> },
> body: JSON.stringify(jsonReader),
> })
> .then( (response) => {
> //response.text();
> response.json();
> //console.log("Response:", response.text());
> console.log("Response:", response.json());
> console.log("Fin de l'envoi");
> })
> .then(text => {
> console.log(`Received ${JSON.stringify(text)}`);
> console.log("text :", text);
> //let json = JSON.parse(text);
> //setMessage(json);
> console.log("Coucou2");
> })
> .then( (json) => {
> setMessage("Connecté à la main");
> console.log("(1) connection state:", message);
> console.log("Fin de la réception");
> })
> .catch( error => {
> console.log("Transaction error:", error);
> //console.log("body:", JSON.stringify(jsonReader));
> //console.log("response:", response.son());
> //console.log("json:", json);
> });
> };
> console.log("(2) connection state:", message);
>
> useEffect(() => {
> submitConnectAsync2();
> }, []);
>
>
> return (
> <View style={{flex:1,backgroundColor:"white"}}>
> <Text>
> {message}
> </Text>
> </View>
> );
>
>
> }
>
> export default App;
>
> Voici le code côté Dancer2 :
>
> % cat server.pm
> package server;
> use Dancer2;
>
> set session => "Simple";
> set serializer => 'JSON';
>
> hook 'before' => sub {
> response_header 'Access-Control-Allow-Origin' => '*';
> };
>
> post '/connect' => sub {
> my $post = from_json( request->body );
> debug request->body;
> my $login = params('body')->{login};
> my $password = params('body')->{password};
> debug "\t\t login : $login password : $password";
> if ( ($login eq 'PK') && ($password eq 'PK') ) {
> # nothing possible to add after sending a request
> debug "\t\t Valid login and password : state connected\n";
> session user => $login;
> debug "\t\t", ({"ConnectionState" => "connected"});
> my %state = ( ConnectionState => "connected" );
> debug "\t\t", %state;
> #send_as JSON => ({"ConnectionState" => "connected"});
> send_as JSON => \%state;
> }
> else {
> debug "\t\t Invalid login and password : state unconnected\n";
> debug "\t\t", ({"ConnectionState" => "unconnected"});
> send_as JSON => ({"ConnectionState" => "unconnected"});
> };
> };
>
> true;
>
> (le hook ne sert à rien, puisque je désactive le CORS dans l'envoi)
> Il faut aussi ajouter dans le fichier de conf
>
> % cat config.yml
> logger: Console
>
> engines:
> logger:
> Console:
> log_level: core
>
> pour activer les debug, sinon remplacer par des print perl suffit.
>
> Le serveur « semble » fonctionner correctement :
>
> % curl --header "Content-Type: application/json" \
> --request POST \
> --data '{"login":"PK","password":"PK"}' \
> http://localhost:5000/connect
> {"ConnectionState":"connected"}
>
> % curl --header "Content-Type: application/json" --request POST --data
> '{"login":"PK","password":""}' http://localhost:5000/connect
> {"ConnectionState":"unconnected"}
>
> % curl --header "Content-Type: application/json" --request POST
> http://localhost:5000/connect
> {"ConnectionState":"unconnected"}
>
> % curl http://localhost:5000/connect
> {"status":404,"title":"Error 404 - Not Found","message":"/connect"}
>
> % curl --header "Content-Type: application/json" --request POST
> http://localhost:5000/connect
> {"ConnectionState":"unconnected"}
>
> Le débogueur de Firefox gueule sur le retour de json :
>
> 08:44:52,153 (2) connection state: disconnected App.js:58
> 08:44:52,407 Response:
> Promise { <state>: "pending" }
> App.js:36
> 08:44:52,408 Fin de l'envoi App.js:37
> 08:44:52,408 Received undefined App.js:40
> 08:44:52,408 text : undefined App.js:41
> 08:44:52,408 Coucou2 App.js:44
> 08:44:52,409 (1) connection state: disconnected App.js:48
> 08:44:52,409 Fin de la réception App.js:49
> 08:44:52,409 (2) connection state: Connecté à la main App.js:58
> 08:44:52,413 Uncaught (in promise) SyntaxError: JSON.parse: unexpected
> end of data at line 1 column 1 of the JSON data
>
> La promesse n'est pas tenue, le response.json semble mal formaté.
> Pourtant, dans l'onglet Réseau, j'ai bien la négociation correcte et
> il lit correctement la réponse ! Ça fonctionne en changeant les
> valeurs des logins/mot de passe.
>
> Le log de Dancer2 est en phase : tout semble se passer correctement...
> sauf que je ne peux pas récupérer en interne la valeur de
> response.json comme le montre la sortie console de FF. L'erreur est
> donc « exacte » si je puis m'exprimer ainsi.
>
> Chrome est plus brutal.
>
> (2) connection state: disconnected
> App.js:36 Response: Promise {<rejected>: SyntaxError: Unexpected end of input
> at http://localhost:19006/static/js/bundle.js:54:43}
> App.js:37 Fin de l'envoi
> App.js:40 Received undefined
> App.js:41 text : undefined
> App.js:44 Coucou2
> App.js:48 (1) connection state: disconnected
> App.js:49 Fin de la réception
> App.js:58 (2) connection state: Connecté à la main
> App.js:34 Uncaught (in promise) SyntaxError: Unexpected end of input
> (at App.js:34:1)
> at App.js:34:1
> App.js:36 Uncaught (in promise) SyntaxError: Unexpected end of input
> (at App.js:36:1)
> at App.js:36:1
>
> et il y a plus logiquement aucun échange dans l'onglet Réseau. Dancer2
> renvoie alors bien un 404.
>
> Je nage complètement. Le code native semble correct et a l'air de
> fonctionner chez les autres. J'ai réinstallé node/nvm/native... et
> Dancer2 semble fonctionner correctement. J'ai même essayé avec un
> serveur en ligne, sans plus de succès, ce qui me laisse penser que
> Dancer2 n'est pas en cause. J'ai aussi essayé toutes les versions de
> nvm :(
>
> Bref, je ne sais plus qui incriminer, à part moi !
>
> Un œil neuf serait aussi bienvenu qu'un conseil...
>
> Merci
>
> PK
>
>
> PS : pour installer mon exemple en native :
>
> % npx install expo-cli
> % npx create-expo-app App
> % cd App
> Remplacer App.js par mon exemple
> % nps expo install react-dom react-native-web @expo/webpack-config
> % npx expo start -- -c
> taper w pour le serveur
>
> Changer la valeur des IP pour adapter à votre réseau !
>
> --
> Sébastien Feugère
>
> _______________________________________________
> Perl mailing list
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
> Attention, les archives sont publiques
--
|\ _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com
|,4- ) )-,_. ,\ ( `'-'
'---''(_/--' `-'\_)
Plus d'informations sur la liste de diffusion Perl