Opened by skirnir at 2009-06-12 14:17
User since
2006-05-09
29 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-05-09
29 Artikel
BenutzerIn
Ok, ich hab's rausbekommen. Also für's Archiv:
Zeile 35 ersetzen durch folgende zwei Zeilen:
Zeilen 45 und 46 können weg und Zeile 47 sieht jetzt so aus:
Damit sehen nicht nur die Header des HTTP::Request Objekts so aus, wie sie es laut Doku sollten ;-), es ist auch wichtig, den Content-length Header des HTTP::Request Objekts zu setzen, damit der Body vom Controller gelesen werden kann.
Ärgerlicherweise legt da ein "echter" Server (auch der von Catalyst Mitgebrachte) keinen so großen Wert drauf.
Zeile 35 ersetzen durch folgende zwei Zeilen:
Code: (dl
)
1
2
my $obj = '{ "login": "testuser@skytel.de", "password": "testing"}' . "\n";
my $dummy = [ 'Content-type' => 'application/json', 'Content-Length' => length($obj) ];Zeilen 45 und 46 können weg und Zeile 47 sieht jetzt so aus:
Code: (dl
)
my $req = HTTP::Request->new('POST', 'http://localhost:3000/rest/login/login', $dummy, $obj);Damit sehen nicht nur die Header des HTTP::Request Objekts so aus, wie sie es laut Doku sollten ;-), es ist auch wichtig, den Content-length Header des HTTP::Request Objekts zu setzen, damit der Body vom Controller gelesen werden kann.
Ärgerlicherweise legt da ein "echter" Server (auch der von Catalyst Mitgebrachte) keinen so großen Wert drauf.