#include #include #include #include "../fs.h" char *WhatFilename = "what-www.txt"; Field_Value *ID; Field_Value *Action; Field_Value *Key; Field_Value *Val; Field_Value *IP; FS_CGI_arg FSexpect[] = { { "ID", &ID, "0"}, { "Action", &Action, NULL}, { "Key", &Key, ""}, { "Val", &Val, ""}, { "REMOTE_ADDR", &IP, "01234456789"}, NULL }; void emitHTMLprotected(char *s) { for (; *s; s++) switch (*s) { case '&': printf("&"); break; case '<': printf("<"); break; case '>': printf(">"); break; case '"': printf("""); break; default: printf("%c", *s); } } int FSquery() { FS_panel p1; int err; int validAction; p1 = FSsetPanel(1); printf("Content-type: text/html\n\n"); printf("\n"); printf("\n"); printf("fs\n"); printf("\n"); printf("field_data)) { case 'P': err = FScreateRec(p1,FSfList(p1,ID,Key,Val)); if (err > 1280) { err = FSupdateField(p1,FSifList(p1,1,ID,Key),3,':',Val); } printf(" onLoad=\"parent.db.put-result(%d)\"",err); err = FSequalRec(p1,FSifList(p1,1,ID,Key)); validAction = (err == FS_OK); break; case 'G': err = FSequalRec(p1,FSifList(p1,1,ID,Key)); if (err == FS_OK) printf(" onLoad=\"parent.db.get-result(document.db.Val.value)\""); else printf(" onLoad=\"parent.db.err-result(%d)\"", err); validAction = (err == FS_OK); break; default: validAction = 0; } } printf(">\n"); printf("
\n", "http://www.sanbachs.net/cgi-bin"); printf("\n", ID->field_data); printf("field_data); printf("\" SIZE=30 MAXLENGTH=30>\n"); printf("\n"); printf("\n"); printf("\n"); printf("
\n"); printf("\n"); printf("\n"); return FS_OK; }