From e773324c3013cd9c0336db2f346f760d6c3a95cb Mon Sep 17 00:00:00 2001
From: Igor Sysoev <igor@sysoev.ru>
Date: Tue, 12 Dec 2006 20:59:24 +0000
Subject: $r->sleep()

---
 src/http/modules/perl/nginx.xs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'src/http/modules/perl/nginx.xs')

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index a32c85e73..734f7bac8 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -845,6 +845,27 @@ variable(r, name, value = NULL)
     ST(0) = TARG;
 
 
+void
+sleep(r, sleep, next)
+    CODE:
+
+    dXSTARG;
+    ngx_http_request_t   *r;
+    ngx_http_perl_ctx_t  *ctx;
+
+    ngx_http_perl_set_request(r);
+
+    ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module);
+
+    ctx->sleep = SvIV(ST(1));
+    ctx->next = SvRV(ST(2));
+
+    ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
+                   "perl sleep: %d", ctx->sleep);
+
+    XSRETURN_EMPTY;
+
+
 void
 log_error(r, err, msg)
     CODE:
-- 
cgit