#!/bin/ch
  /* 
     Report in the form of html format in UNICODE version.
  */
  
  include <wcgi.h>
  
  int main() {
    int i, num;
    chstrarray name, value;
    class CResponse Response;
    class CRequest Request;
  
    Response.begin();
    Response.title(L"CGI FORM results");
    printf("<H1>CGI FORM test script reports:</H1>\n");
  
    num = Request.getFormNameValue(name, value); 
    if(num == 0) {
      printf("No name/value has been submitted<p>\n");
      exit(0);
    }
    else if(num < 0) {
      printf("Error: in Request.getFormNameValue() <p>\n");
      exit(0);
    }
    printf("The following \%d name/value pairs are submitted<p>\n",num);
    printf("<ul>\n");
    for(i=0; i < num; i++) {
      printf("<li> <code>");
      fputws(name[i], stdout);
      fputws(L" = ", stdout);
      if(value[i])
        fputws(value[i], stdout);
      printf("</code>\n");
    }
    printf("</ul>\n");
    Response.end();
  }