[HTTP::Daemon::Clientconn]: method send_headers(*%headers)

[kopipasta]: redirect on paste
masak · Apr 18, 2009 · a9b7dce · a9b7dce
1 parent 3f520b3
commit a9b7dce
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/bin/kopipasta.pl b/bin/kopipasta.pl
@@ -69,6 +69,10 @@ ($c, $r)
 sub paste($c, $r) {
     my $id = save_paste($r.query);
 
+    $c.send_status_line(303, 'See Other');
+    $c.send_headers(:Location("/$id"));
+    $c.send_crlf;
+    $c.close;
     # TODO Send a redirect instead of 200 OK
     $c.send_response: show {
         html {

diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
@@ -184,6 +184,13 @@ class HTTP::Daemon::ClientConn {
         $.socket.send("<h1>$status $message</h1>");
         $.socket.close();
     }
+
+    method send_headers(*%headers) {
+        for %headers.kv -> $k, $v {
+            $.socket.send("$k: $v");
+            self.send_crlf;
+        }
+    }
 }
 
 grammar HTTP::headerline {