Commit e773324c3013cd9c0336db2f346f760d6c3a95cb - nginx

$r->sleep() Igor Sysoev 14 years ago

3 changed file(s) with 40 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all

+21

-0

src/http/modules/perl/nginx.xs less more

845	845
846	846
847	847	void
	848	sleep(r, sleep, next)
	849	CODE:
	850
	851	dXSTARG;
	852	ngx_http_request_t *r;
	853	ngx_http_perl_ctx_t *ctx;
	854
	855	ngx_http_perl_set_request(r);
	856
	857	ctx = ngx_http_get_module_ctx(r, ngx_http_perl_module);
	858
	859	ctx->sleep = SvIV(ST(1));
	860	ctx->next = SvRV(ST(2));
	861
	862	ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
	863	"perl sleep: %d", ctx->sleep);
	864
	865	XSRETURN_EMPTY;
	866
	867
	868	void
848	869	log_error(r, err, msg)
849	870	CODE:
850	871

+17

-0

src/http/modules/perl/ngx_http_perl_module.c less more

40	40	ngx_http_ssi_ctx_t ssi_ctx, ngx_str_t *params);
41	41	#endif
42	42
	43	static void ngx_http_perl_sleep_handler(ngx_http_request_t *r);
43	44	static char ngx_http_perl_init_interpreter(ngx_conf_t cf,
44	45	ngx_http_perl_main_conf_t *pmcf);
45	46	static PerlInterpreter *

244	245	ctx->filename.data = NULL;
245	246	ctx->redirect_uri.len = 0;
246	247
	248	if (ctx->sleep) {
	249	ngx_add_timer(r->connection->write, (ngx_msec_t) ctx->sleep);
	250	r->write_event_handler = ngx_http_perl_sleep_handler;
	251	ctx->sleep = 0;
	252	}
	253
247	254	if (ctx->done \|\| ctx->next) {
248	255	return;
249	256	}

259	266	}
260	267
261	268	ngx_http_finalize_request(r, rc);
	269	}
	270
	271
	272	static void
	273	ngx_http_perl_sleep_handler(ngx_http_request_t *r)
	274	{
	275	ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
	276	"perl sleep handler");
	277
	278	ngx_http_perl_handle_request(r);
262	279	}
263	280
264	281

-0

src/http/modules/perl/ngx_http_perl_module.h less more