summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/c-modules/echo_post/mod_echo_post.c
blob: ebda4d5cecb0c518ec83c2f954899bbea9f28b4a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#if CONFIG_FOR_HTTPD_TEST

<Location /echo_post>
   SetHandler echo_post
</Location>

#endif

#define APACHE_HTTPD_TEST_HANDLER echo_post_handler

#include "apache_httpd_test.h"

static int echo_post_handler(request_rec *r)
{
    int rc;
    long nrd, total = 0;
    char buff[BUFSIZ];

    if (strcmp(r->handler, "echo_post")) {
        return DECLINED;
    }
    if (r->method_number != M_POST) {
        return DECLINED;
    }

    if ((rc = ap_setup_client_block(r, REQUEST_CHUNKED_ERROR)) != OK) {
#ifdef APACHE1
        ap_log_error(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, r->server,
                     "[mod_echo_post] ap_setup_client_block failed: %d", rc);
#else
        ap_log_error(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, 0, r->server,
                     "[mod_echo_post] ap_setup_client_block failed: %d", rc);
#endif /* APACHE1 */
        return 0;
    }

    if (!ap_should_client_block(r)) {
        return OK;
    }

#ifdef APACHE1
    ap_send_http_header(r);
#endif
    
    if (r->args) {
#ifdef APACHE1
        ap_rprintf(r, "%ld:", r->remaining);
#else
        ap_rprintf(r, "%" APR_OFF_T_FMT ":", r->remaining);
#endif /* APACHE1 */
    }

#ifdef APACHE1
    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r,
                  "[mod_echo_post] going to echo %ld bytes",
                  r->remaining);
#else
    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                  "[mod_echo_post] going to echo %" APR_OFF_T_FMT " bytes",
                  r->remaining);
#endif /* APACHE1 */

    while ((nrd = ap_get_client_block(r, buff, sizeof(buff))) > 0) {
#ifdef APACHE1
        ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r,
                      "[mod_echo_post] read %ld bytes (wanted %d, remaining=%ld)",
                      nrd, sizeof(buff), r->remaining);
#else
        ap_log_rerror(APLOG_MARK, APLOG_TRACE2, 0, r,
                      "[mod_echo_post] read %ld bytes (wanted %" APR_SIZE_T_FMT 
                      ", remaining=%" APR_OFF_T_FMT ")",
                      nrd, sizeof(buff), r->remaining);
#endif /* APACHE1 */
        ap_rwrite(buff, nrd, r);
        total += nrd;
    }

    if (nrd < 0) {
        ap_rputs("!!!ERROR!!!", r);
#ifdef APACHE1
        ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r,
                      "[mod_echo_post] ap_get_client_block got error");
#else
        ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                      "[mod_echo_post] ap_get_client_block got error");
#endif /* APACHE1 */
    }

#ifdef APACHE1
    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r,
            "[mod_echo_post] done reading %ld bytes, %ld bytes remain",
            total, r->remaining);
#else
    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
            "[mod_echo_post] done reading %ld bytes, %" APR_OFF_T_FMT " bytes remain",
            total, r->remaining);
#endif /* APACHE1 */
    
    return OK;
}

APACHE_HTTPD_TEST_MODULE(echo_post);