[go: up one dir, main page]

File: cgi-post.c

package info (click to toggle)
fnord 1.9-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 328 kB
  • ctags: 167
  • sloc: ansic: 1,889; makefile: 99; sh: 62; perl: 36
file content (55 lines) | stat: -rw-r--r-- 1,449 bytes parent folder | download | duplicates (3)
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
#include <stdlib.h>
#include <write12.h>

int main() {
  char* method=getenv("REQUEST_METHOD");
  if (!method) {
    __write1("Content-Type: text/plain\r\n\r\nFatal: $REQUEST_METHOD not set!\n");
    return 1;
  }
  if (!strcmp(method,"GET")) {
    char* c=getenv("QUERY_STRING");
    __write1("Content-Type: text/plain\r\n\r\n");
    if (c)
      write(1,c,strlen(c));
    else {
      __write1("Fatal: $QUERY_STRING not set!\n");
      return 1;
    }
  } else if (!strcmp(method,"POST")) {
    char* c=getenv("CONTENT_TYPE");
    char* d=getenv("CONTENT_LENGTH");
    int l;
    if (!c) {
      __write1("Content-Type: text/plain\r\n\r\nFatal: $CONTENT_TYPE not set!\n");
      return 1;
    }
    if (!d) {
      __write1("Content-Type: text/plain\r\n\r\nFatal: $CONTENT_LENGTH not set!\n");
      return 1;
    }
    {
      char* e;
      l=strtoul(d,&e,10);
      if (e==d || *e) {
	__write1("Content-Type: text/plain\r\n\r\nFatal: $CONTENT_LENGTH not a number: ");
	__write1(d);
	__write1("\n");
	return 1;
      }
    }
    __write1("Content-Type: "); __write1(c); __write1("\r\n");
    __write1("Content-Length: "); __write1(d); __write1("\r\n\r\n");
    while (l>0) {
      char buf[2048];
      int r;
      r=read(0,buf,sizeof(buf));
      if (r==-1) return 1;
      if (r==0) break;
      l-=r;
      write(1,buf,r);
    }
  } else {
    puts("Content-Type: text/plain\r\n\r\nFatal: $REQUEST_METHOD is neither GET nor POST!\n");
  }
}