+<?php
+
+function dump_message($stream, http\Message $msg, $parent = false) {
+ if (!is_resource($stream)) {
+ $stream = fopen("php://output", "w");
+ }
+ fprintf($stream, "%s\n", $msg->getInfo());
+ $headers = $msg->getHeaders();
+ ksort($headers);
+ foreach ($headers as $key => $val) {
+ fprintf($stream, "%s: %s\n", $key, $val);
+ }
+ fprintf($stream, "\n");
+ $msg->getBody()->toStream($stream);
+
+ if ($parent && ($msg = $msg->getParentMessage())) {
+ dump_message($stream, $msg, true);
+ }
+}
+
+?>
\ No newline at end of file