Annotation of capa/capa51/pProj/capaCgiUtils.c, revision 1.1
1.1 ! albertel 1: /* ===================================================================== */
! 2: /* copyrighted by Isaac Tsai, 1998, 1999, 2000 */
! 3: /* ===================================================================== */
! 4: #include <stdio.h>
! 5: #include <ctype.h>
! 6: #ifndef NO_STDLIB_H
! 7: #include <stdlib.h>
! 8: #else
! 9: char *getenv();
! 10: #endif
! 11: #include <stdio.h>
! 12:
! 13: #include "capaToken.h"
! 14: #include "capaParser.h"
! 15: #include "capaCommon.h"
! 16: #include "ranlib.h"
! 17:
! 18: #ifdef _MAIN_PROGRAM_
! 19: #undef _MAIN_PROGRAM_
! 20: #endif
! 21:
! 22: #include "capaCGI.h"
! 23:
! 24: void getword
! 25: CAPA_ARG((char *word, char *line, char stop))
! 26: {
! 27: int x = 0,y;
! 28:
! 29: for(x=0;((line[x]) && (line[x] != stop));x++)
! 30: word[x] = line[x];
! 31:
! 32: word[x] = '\0';
! 33: if(line[x]) ++x;
! 34: y=0;
! 35:
! 36: while((line[y++] = line[x++]));
! 37: }
! 38:
! 39: char *makeword
! 40: CAPA_ARG((char *line, char stop))
! 41: {
! 42: int x = 0,y;
! 43: char *word = (char *) malloc(sizeof(char) * (strlen(line) + 1));
! 44:
! 45: for(x=0;((line[x]) && (line[x] != stop));x++)
! 46: word[x] = line[x];
! 47:
! 48: word[x] = '\0';
! 49: if(line[x]) ++x;
! 50: y=0;
! 51:
! 52: while((line[y++] = line[x++]));
! 53: return word;
! 54: }
! 55:
! 56: char *fmakeword
! 57: CAPA_ARG((FILE *f,char stop,int * cl))
! 58: {
! 59: int wsize;
! 60: char *word;
! 61: int ll;
! 62:
! 63: wsize = 102400;
! 64: ll=0;
! 65: word = (char *) malloc(sizeof(char) * (wsize + 1));
! 66:
! 67: while(1) {
! 68: word[ll] = (char)fgetc(f);
! 69: if(ll==wsize) {
! 70: word[ll+1] = '\0';
! 71: wsize+=102400;
! 72: word = (char *)realloc(word,sizeof(char)*(wsize+1));
! 73: }
! 74: --(*cl);
! 75: if((word[ll] == stop) || (feof(f)) || (!(*cl))) {
! 76: if(word[ll] != stop) ll++;
! 77: word[ll] = '\0';
! 78: return word;
! 79: }
! 80: ++ll;
! 81: }
! 82: }
! 83:
! 84: char x2c
! 85: CAPA_ARG((char *what))
! 86: {
! 87: register char digit;
! 88:
! 89: digit = (what[0] >= 'A' ? ((what[0] & 0xdf) - 'A')+10 : (what[0] - '0'));
! 90: digit *= 16;
! 91: digit += (what[1] >= 'A' ? ((what[1] & 0xdf) - 'A')+10 : (what[1] - '0'));
! 92: return(digit);
! 93: }
! 94:
! 95: void unescape_url
! 96: CAPA_ARG((char *url))
! 97: {
! 98: register int x,y;
! 99:
! 100: for(x=0,y=0;url[y];++x,++y) {
! 101: if((url[x] = url[y]) == '%') {
! 102: url[x] = x2c(&url[y+1]);
! 103: y+=2;
! 104: }
! 105: }
! 106: url[x] = '\0';
! 107: }
! 108:
! 109: void plustospace
! 110: CAPA_ARG((char *str))
! 111: {
! 112: register int x;
! 113:
! 114: for(x=0;str[x];x++) if(str[x] == '+') str[x] = ' ';
! 115: }
! 116:
! 117: int rind
! 118: CAPA_ARG((char *s,char c))
! 119: {
! 120: register int x;
! 121: for(x=strlen(s) - 1;x != -1; x--)
! 122: if(s[x] == c) return x;
! 123: return -1;
! 124: }
! 125:
! 126: int getline
! 127: CAPA_ARG((char *s,int n,FILE *f))
! 128: {
! 129: register int i=0;
! 130:
! 131: while(1) {
! 132: s[i] = (char)fgetc(f);
! 133:
! 134: if(s[i] == CR)
! 135: s[i] = fgetc(f);
! 136:
! 137: if((s[i] == 0x4) || (s[i] == LF) || (i == (n-1))) {
! 138: s[i] = '\0';
! 139: return (feof(f) ? 1 : 0);
! 140: }
! 141: ++i;
! 142: }
! 143: }
! 144:
! 145: void send_fd
! 146: CAPA_ARG((FILE *f, FILE *fd))
! 147: {
! 148: char c;
! 149:
! 150: while (1) {
! 151: c = fgetc(f);
! 152: if(feof(f)) return;
! 153: fputc(c,fd);
! 154: }
! 155: }
! 156:
! 157: int ind
! 158: CAPA_ARG((char *s,char c))
! 159: {
! 160: register int x;
! 161:
! 162: for(x=0;s[x];x++)
! 163: if(s[x] == c) return x;
! 164:
! 165: return -1;
! 166: }
! 167:
! 168: void escape_shell_cmd
! 169: CAPA_ARG((char *cmd))
! 170: {
! 171: register int x,y,l;
! 172:
! 173: l=strlen(cmd);
! 174: for(x=0;cmd[x];x++) {
! 175: if(ind("&;`'\"|*?~<>^()[]{}$\\",cmd[x]) != -1){
! 176: for(y=l+1;y>x;y--)
! 177: cmd[y] = cmd[y-1];
! 178: l++; /* length has been increased */
! 179: cmd[x] = '\\';
! 180: x++; /* skip the character */
! 181: }
! 182: }
! 183: }
! 184:
! 185: /* ========================================== Updated according to Frank Wolfs
! 186: description on July 7 1997 */
! 187: char *c_getpath
! 188: CAPA_ARG((FILE *f))
! 189: {
! 190: register int c;
! 191: register int idx;
! 192: char tmp_string[MAX_BUFFER_SIZE];
! 193: char *new_string;
! 194:
! 195: idx = 0;
! 196: tmp_string[0]='\0';
! 197: c_ignorewhite(f);
! 198: do {
! 199: c = getc(f);
! 200: tmp_string[idx] = c;
! 201: idx++;
! 202: } while (isalnum(c) || c == '{' || c == '}' || c == '-' || c == '\\' ||
! 203: c == '^' || c == '_' || c == '/' || c == '.' || c == ':' ||
! 204: c == '+' || c == '*' || c == '#' || c == '!' || c == '=' ||
! 205: c == ';' || c == '$' || c == '(' || c == ')' || c == '[' ||
! 206: c == ']' || c == '?' || c == '>' || c == '<' || c == ',');
! 207: ungetc(c,f); idx--;
! 208: tmp_string[idx] = 0;
! 209: new_string = (char *)malloc( (idx+1)*sizeof(char) );
! 210: strncpy(new_string,tmp_string, (idx+1) );
! 211: return (new_string);
! 212: }
! 213:
! 214: /* ------------------------------------------------------------------------- */
! 215:
! 216: void web_printheader(FILE *out)
! 217: {
! 218: FILE *header;
! 219: char *buf[MAX_BUFFER_SIZE];
! 220: int amt=0;
! 221:
! 222: if ((capa_access("HTMLheader",F_OK|R_OK)!=-1) &&
! 223: (NULL!=(header=fopen("HTMLheader","r")))) {
! 224: while(0 < (amt=fread(buf,1,MAX_BUFFER_SIZE,header))) {
! 225: fwrite(buf,1,amt,out);
! 226: }
! 227: fclose(header);
! 228: } else {
! 229: fprintf(out,"<HTML><HEAD>\n");
! 230: fprintf(out,"<BODY BGCOLOR=\"#FFFFFF\" LINK=\"#0000EE\" VLINK=\"#EE1100\">\n");
! 231: }
! 232:
! 233: #ifdef CAPA_WEB
! 234: fprintf(out,"<!-- capasbin, CAPA Version %s, %s -->\n",
! 235: CAPA_VER,COMPILE_DATE);
! 236: #else
! 237: fprintf(out,"<!-- capahtml, CAPA Version %s, %s -->\n",
! 238: CAPA_VER,COMPILE_DATE);
! 239: #endif
! 240: }
! 241:
! 242: void web_printfooter(FILE *out)
! 243: {
! 244: FILE *footer;
! 245: char *buf[MAX_BUFFER_SIZE];
! 246: int amt=0;
! 247:
! 248: if ((capa_access("HTMLfooter",F_OK|R_OK)!=-1) &&
! 249: (NULL!=(footer=fopen("HTMLfooter","r")))) {
! 250: while(0 < (amt=fread(buf,1,MAX_BUFFER_SIZE,footer))) {
! 251: fwrite(buf,1,amt,out);
! 252: }
! 253: fclose(footer);
! 254: } else {
! 255: fprintf(out,"</BODY></HTML>\n");
! 256: }
! 257: }
! 258:
! 259: int web_getclassdir
! 260: CAPA_ARG((char **cpath_p, char **cown_p, char *class))
! 261: {
! 262: FILE *fp;
! 263: char filename[FILE_NAME_LENGTH];
! 264: char *cname_p;
! 265: int done;
! 266: char c;
! 267:
! 268: sprintf(filename,"class.conf");
! 269: if ((fp=fopen(filename,"r"))==NULL) {
! 270: sprintf(filename,"../class.conf");
! 271: if ((fp=fopen(filename,"r"))==NULL) {
! 272: fprintf(stdout,"<!-- Error: can't open %s --> \n",filename); fflush(stdout);
! 273: return (2);
! 274: }
! 275: }
! 276: do {
! 277: c_ignorewhite(fp);
! 278: c = getc(fp); ungetc(c,fp);
! 279: if( c != EOF ) {
! 280: cname_p = c_getword(fp);
! 281: *cpath_p = c_getpath(fp);
! 282: *cown_p = c_getword(fp);
! 283: throwaway_line(fp);
! 284: if( ! strcasecmp(cname_p, class) ) {
! 285: done = 1;
! 286: } else {
! 287: free(cname_p); free(*cpath_p); free(*cown_p);
! 288: done = 0;
! 289: }
! 290: } else {
! 291: done = 1;
! 292: }
! 293: } while ( ! done );
! 294: fclose(fp);
! 295: free(cname_p);
! 296: return (1);
! 297: }
! 298:
! 299: int web_log(log_str)char *log_str;
! 300: {
! 301: FILE *fp;
! 302: char filename[FILE_NAME_LENGTH];
! 303:
! 304: sprintf(filename,"web_access.log");
! 305: if ((fp=fopen(filename,"a"))==NULL) {
! 306: return -1;
! 307: }
! 308: flockstream(fp);
! 309: fprintf(fp,"%s",log_str);fflush(fp);
! 310: funlockstream(fp);
! 311: fclose(fp);
! 312: return 0;
! 313: }
! 314:
! 315: int w_log_timing(student_number,set,section,log_string)
! 316: char student_number[MAX_STUDENT_NUMBER+1];
! 317: int set;
! 318: int section;
! 319: char *log_string;
! 320: {
! 321: char filename[FILE_NAME_LENGTH],
! 322: *ct;
! 323: FILE *fp;
! 324: time_t t;
! 325:
! 326: sprintf(filename,"records/webtiming%d.log",set);
! 327: if ((fp=fopen(filename,"a"))==NULL) {
! 328: return (-1);
! 329: }
! 330: /* CREATE LOG ENTRY */
! 331: time(&t);
! 332: ct=ctime(&t);
! 333: ct[ strlen(ct)-1 ]=0; /* Trash newline */
! 334: fprintf(fp,"%s %s %s\n",student_number,ct,log_string); fflush(fp);
! 335: fclose(fp);
! 336: return (0);
! 337: }
! 338:
! 339: int w_log_attempt(student_number,set,log_string)
! 340: char student_number[MAX_STUDENT_NUMBER+1];
! 341: int set;
! 342: char *log_string;
! 343: {
! 344: char filename[FILE_NAME_LENGTH],
! 345: *ct;
! 346: FILE *fp;
! 347: time_t t;
! 348:
! 349: sprintf(filename,"records/weblog%d.db",set);
! 350: if ((fp=fopen(filename,"a"))==NULL) {
! 351: return (-1);
! 352: }
! 353:
! 354: /* CREATE LOG ENTRY */
! 355: time(&t);
! 356: ct=ctime(&t);
! 357: ct[ strlen(ct)-1 ]=0; /* Trash newline */
! 358: fprintf(fp,"%s %s %s\n",student_number,ct,log_string); fflush(fp);
! 359: fclose(fp);
! 360: return (0);
! 361: }
! 362:
! 363: int w_log_submissions(student_number,set,log_string)
! 364: char student_number[MAX_STUDENT_NUMBER+1];
! 365: int set;
! 366: char *log_string;
! 367: {
! 368: char filename[FILE_NAME_LENGTH],timeStr[FILE_NAME_LENGTH],buf2[MAX_BUFFER_SIZE];
! 369: FILE *fp;
! 370: time_t t;
! 371: struct tm *tmtime;
! 372: int do_log_submissions=1,result;
! 373: char buf[MAX_BUFFER_SIZE];
! 374:
! 375: result=read_capa_config("do_log_submissions",buf);
! 376: if (result != 0 && result != -1)
! 377: if (strcasecmp(buf2,"no")==0)
! 378: do_log_submissions=0;
! 379: if (!do_log_submissions) return 0;
! 380:
! 381: sprintf(filename,"records/websubmissions%d.db",set);
! 382: if ((fp=fopen(filename,"a"))==NULL) {
! 383: return (-1);
! 384: }
! 385:
! 386: /* CREATE LOG ENTRY */
! 387: time(&t);
! 388: tmtime=localtime(&t);
! 389: strftime(timeStr,FILE_NAME_LENGTH,"%d/%m %X",tmtime);
! 390: /*ct[ strlen(ct)-1 ]=0;*/ /* Trash newline */
! 391: protect_log_string(log_string);
! 392: fprintf(fp,"%s\t%s\t%s\n",student_number,timeStr,log_string); fflush(fp);
! 393: fclose(fp);
! 394: return (0);
! 395: }
! 396:
! 397:
! 398: void w_get_responses(int x,int q_idx,char* submissions_str)
! 399: {
! 400: int leng, sub_idx;
! 401: char buf[MAX_BUFFER_SIZE];
! 402: if( !strncmp(g_entries[x].name,"INPUT",5) ) {
! 403: if( index(g_entries[x].name, ',' ) == NULL ) { /* only one answer */
! 404: sscanf(g_entries[x].name,"INPUT%d",&q_idx);
! 405: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 406: if ( ! is_all_ws(g_entries[x].val) ) {
! 407: leng = strlen(g_entries[x].val) + 1;
! 408: g_stu_ans_pp[q_idx] = (StudentAnswer_t *)capa_malloc(sizeof(StudentAnswer_t),1);
! 409: (g_stu_ans_pp[q_idx])->a_idx = 1;
! 410: (g_stu_ans_pp[q_idx])->a_str = strsave(g_entries[x].val);
! 411: if (leng > ANSWER_STRING_LENG)
! 412: (g_stu_ans_pp[q_idx])->a_str[ANSWER_STRING_LENG] = '\0';
! 413: (g_stu_ans_pp[q_idx])->a_next = NULL;
! 414: trim_response_ws((g_stu_ans_pp[q_idx])->a_str);
! 415: }
! 416: leng = strlen( g_entries[x].val );
! 417: if ( leng > 0 ) {
! 418: sprintf(buf,"%d\t%s\t",q_idx,g_entries[x].val);
! 419: strcat(submissions_str,buf);
! 420: }
! 421: }
! 422: } else { /* this answer belongs to /AND answers */
! 423: sscanf(g_entries[x].name,"INPUT%d,%d",&q_idx,&sub_idx);
! 424: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 425: if ( ! is_all_ws(g_entries[x].val) ) {
! 426: StudentAnswer_t *sa_p;
! 427: leng = strlen(g_entries[x].val) + 1;
! 428: sa_p = (StudentAnswer_t *)capa_malloc(sizeof(StudentAnswer_t),1);
! 429: sa_p->a_idx = sub_idx;
! 430: sa_p->a_str = strsave(g_entries[x].val);
! 431: if (leng > ANSWER_STRING_LENG) sa_p->a_str[ANSWER_STRING_LENG] = '\0';
! 432: sa_p->a_next = NULL;
! 433: if( g_stu_ans_pp[q_idx] == NULL ) {
! 434: g_stu_ans_pp[q_idx] = sa_p;
! 435: } else {
! 436: StudentAnswer_t *sb_p;
! 437: for(sb_p=g_stu_ans_pp[q_idx]; sb_p->a_next; sb_p=sb_p->a_next);
! 438: sb_p->a_next = sa_p;
! 439: }
! 440: }
! 441: leng = strlen( g_entries[x].val );
! 442: if ( leng > 0 ) {
! 443: sprintf(buf,"%d\t%s\t",q_idx,g_entries[x].val);
! 444: strcat(submissions_str,buf);
! 445: }
! 446: }
! 447: }
! 448: }
! 449: if( !strncmp(g_entries[x].name,"LAST",4) ) {
! 450: StudentAnswer_t *sa_p;
! 451: if( index(g_entries[x].name, ',' ) == NULL ) { /* only one answer */
! 452: sscanf(g_entries[x].name,"LAST%d",&q_idx);
! 453: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 454: leng = strlen(g_entries[x].val) + 1;
! 455: sa_p = (StudentAnswer_t *)capa_malloc(sizeof(StudentAnswer_t),1);
! 456: sa_p->a_idx = 1;
! 457: sa_p->a_str = strsave(g_entries[x].val);
! 458: if (leng > ANSWER_STRING_LENG) sa_p->a_str[ANSWER_STRING_LENG] = '\0';
! 459: sa_p->a_next = NULL;
! 460: g_last_ans_pp[q_idx] = sa_p;
! 461: }
! 462: } else {
! 463: sscanf(g_entries[x].name,"LAST%d,%d",&q_idx,&sub_idx);
! 464: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 465: leng = strlen(g_entries[x].val) + 1;
! 466: sa_p = (StudentAnswer_t *)capa_malloc(sizeof(StudentAnswer_t),1);
! 467: sa_p->a_idx = sub_idx;
! 468: sa_p->a_str = strsave(g_entries[x].val);
! 469: if (leng > ANSWER_STRING_LENG) sa_p->a_str[ANSWER_STRING_LENG] = '\0';
! 470: sa_p->a_next = NULL;
! 471: if( g_last_ans_pp[q_idx] == NULL) {
! 472: g_last_ans_pp[q_idx] = sa_p;
! 473: } else {
! 474: StudentAnswer_t *sb_p;
! 475: for(sb_p=g_last_ans_pp[q_idx]; sb_p->a_next; sb_p=sb_p->a_next);
! 476: sb_p->a_next = sa_p;
! 477: }
! 478: }
! 479: }
! 480: }
! 481: }
! 482:
! 483: /* ========================================================================= */
! 484: /* Check in: Class name (CLASS)
! 485: Student Number (SNUM)
! 486: CAPA ID (CAPAID)
! 487: M=1
! 488: Try set: Class name (CLASS)
! 489: Student Number (SNUM)
! 490: CAPA ID (CAPAID)
! 491: First question to print (STARTNUM)
! 492: M=2
! 493: View previous: Class name (CLASS)
! 494: Student Number (SNUM)
! 495: CAPA ID (CAPAID)
! 496: First question to print (STARTNUM)
! 497: View set (VSET)
! 498: M=3
! 499: Set summary:
! 500:
! 501: --------------------------------------------------------------------------- */
! 502:
! 503: int w_get_input()
! 504: {
! 505: register int x,m=0;
! 506: int cl, q_idx, result = 1;
! 507: T_header header;
! 508: char log_str[MAX_BUFFER_SIZE],buf[MAX_BUFFER_SIZE];
! 509: char submissions_str[MAX_BUFFER_SIZE];
! 510: time_t curtime;
! 511: char *time_str,*UNKNOWN="UNKNOWN";
! 512: int error=0;
! 513: char *envPtr=NULL,*envPtr2=NULL;
! 514: #ifdef CGI_DBUG
! 515: fprintf(g_cgi,"Entered get_input()\n"); fflush(g_cgi);
! 516: #endif /* CGI_DBUG */
! 517:
! 518: envPtr=getenv("REQUEST_METHOD");
! 519: if(!envPtr) {
! 520: fprintf(stdout,"Enviroment variable REQUEST_METHOD not set.\n");
! 521: fprintf(stdout,"CAPA is improperly installed or run, please let your \
! 522: instructor know about this error.\n");
! 523: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 524: error |= 1;
! 525: return error;
! 526: }
! 527: if(strcmp(envPtr,"POST")) {
! 528: fprintf(stdout,"This script should be referenced with a METHOD of POST.\n");
! 529: fprintf(stdout,"CAPA is improperly installed or run, please let your \
! 530: instructor know about this error.\n");
! 531: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 532: fflush(stdout);
! 533: #ifdef CGI_DBUG
! 534: fprintf(g_cgi,"Request_method is not POST\n"); fflush(g_cgi);
! 535: #endif /* CGI_DBUG */
! 536: error |= 2; return (error);
! 537: }
! 538:
! 539: envPtr=getenv("CONTENT_TYPE");
! 540: if(!envPtr) {
! 541: fprintf(stdout,"Enviroment variable CONTENT_TYPE not set.\n");
! 542: fprintf(stdout,"CAPA is improperly installed or run, please let your \
! 543: instructor know about this error.\n");
! 544: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 545: fflush(stdout);
! 546: error |= 4;
! 547: return error;
! 548: }
! 549: if(strncmp(envPtr,"application/x-www-form-urlencoded",33)) {
! 550: fprintf(stdout,"This script can only be used to decode form results. \n");
! 551: fprintf(stdout,"CAPA is improperly installed or run, please let your \
! 552: instructor know about this error.\n");
! 553: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 554: fflush(stdout);
! 555: #ifdef CGI_DBUG
! 556: fprintf(g_cgi,"CONTENT_TYPE is not application/x-www-form-urlencoded\n"); fflush(g_cgi);
! 557: #endif /* CGI_DBUG */
! 558: error |= 8; return (error);
! 559: }
! 560:
! 561: envPtr=getenv("CONTENT_LENGTH");
! 562: if(!envPtr) {
! 563: fprintf(stdout,"Enviroment variable CONTENT_LENGTH not set.\n");
! 564: fprintf(stdout,"CAPA is improperly installed or run, please let your \
! 565: instructor know about this error.\n");
! 566: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 567: error |= 16;
! 568: return error;
! 569: }
! 570: cl = atoi(envPtr);
! 571: #ifdef CGI_DBUG
! 572: fprintf(g_cgi,"CONTENT_LENGTH is %d\n",cl); fflush(g_cgi);
! 573: #endif /* CGI_DBUG */
! 574: for(x=0;cl && (!feof(stdin));x++) {
! 575: m=x;
! 576: g_entries[x].val = fmakeword(stdin,'&',&cl);
! 577: plustospace(g_entries[x].val);
! 578: unescape_url(g_entries[x].val);
! 579: g_entries[x].name = makeword(g_entries[x].val,'=');
! 580: }
! 581: /* ---------------------------------------------------- */
! 582: g_entered_pin = 0; g_run_mode =0;
! 583: submissions_str[0]='\0';
! 584: for(x=0; x <= m; x++) {
! 585: if( !strcmp(g_entries[x].name,"CLASS") ) {
! 586: strncpy(g_class_name,g_entries[x].val,MAX_CLASS_CHAR);
! 587: }
! 588: if( !strcmp(g_entries[x].name,"M") ) { /* run mode */
! 589: sscanf(g_entries[x].val,"%d",&g_run_mode);
! 590: }
! 591: if( !strcmp(g_entries[x].name,"STARTNUM")) {
! 592: sscanf(g_entries[x].val,"%d",&g_start_question);
! 593: }
! 594: if( !strcmp(g_entries[x].name,"SNUM") ) {
! 595: strncpy(g_student_number,g_entries[x].val,MAX_STUDENT_NUMBER+4);
! 596: }
! 597: if( !strcmp(g_entries[x].name,"CAPAID") ) {
! 598: sscanf(g_entries[x].val,"%d",&g_entered_pin);
! 599: }
! 600: if( !strcmp(g_entries[x].name,"SET") ) {
! 601: sscanf(g_entries[x].val,"%d",&g_set);
! 602: }
! 603: if( !strcmp(g_entries[x].name,"VSET") ) {
! 604: if (g_entries[x].val[0] == '\0') {
! 605: g_vset=0;
! 606: } else {
! 607: sscanf(g_entries[x].val,"%d",&g_vset);
! 608: }
! 609: }
! 610: if( !strcmp(g_entries[x].name,"KND") ) {
! 611: sscanf(g_entries[x].val,"%d",&g_skind);
! 612: }
! 613: w_get_responses(x,q_idx,submissions_str);
! 614: free(g_entries[x].val);
! 615: free(g_entries[x].name);
! 616: }
! 617:
! 618: #ifdef CGI_DBUG
! 619: fprintf(g_cgi,"DONE: Parse input\n"); fflush(g_cgi);
! 620: #endif /* CGI_DBUG */
! 621: /* --------------------------------------------------------- */
! 622: /* if( strcasecmp(g_prog_name,"capacheckin") == 0 ) { */
! 623: if( g_run_mode == M_CHECKIN ) { /* capa_checkin */
! 624: time(&curtime); time_str = ctime(&curtime);
! 625: time_str[ strlen(time_str)-1 ] = 0;
! 626: envPtr=getenv("REMOTE_HOST");
! 627: if(!envPtr) {
! 628: fprintf(stdout,"<!-- Enviroment variable REMOTE_HOST not set.-->\n");
! 629: envPtr=getenv("REMOTE_ADDR");
! 630: if(!envPtr) {
! 631: fprintf(stdout,"<!-- Enviroment variable REMOTE_ADDR not set.-->\n");
! 632: envPtr=UNKNOWN;
! 633: error |= 32;
! 634: }
! 635: }
! 636: #ifdef CGI_DBUG
! 637: fprintf(g_cgi,"DONE: REMOTE_HOST\n"); fflush(g_cgi);
! 638: #endif /* CGI_DBUG */
! 639:
! 640: envPtr2=getenv("HTTP_USER_AGENT");
! 641: if(!envPtr2) {
! 642: fprintf(stdout,"<!-- Enviroment variable HTTP_USER_AGENT not set. -->\n");
! 643: envPtr2=UNKNOWN;
! 644: error |= 64;
! 645: }
! 646: sprintf(log_str,"%s\t%s\t%s\t%s\t%s\n",g_class_name,g_student_number,time_str,envPtr,envPtr2);
! 647: if (web_log(log_str) == -1 ) {
! 648: fprintf(stdout,"Unable to log access to the system. Please notify instructor\n.");
! 649: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 650: error |= 128;
! 651: return error;
! 652: }
! 653:
! 654: }
! 655: #if defined(NeXT)
! 656: getwd(g_cwd);
! 657: #else
! 658: getcwd(g_cwd,255);
! 659: #endif
! 660: web_getclassdir(&g_cpath, &g_cowner, g_class_name);
! 661: sprintf(g_class_fullpath,"%s/%s",g_cpath,g_class_name);
! 662: #ifdef CGI_DBUG
! 663: fprintf(g_cgi,"DONE: getclassdir() [%s]\n",g_class_fullpath); fflush(g_cgi);
! 664: #endif /* CGI_DBUG */
! 665: if( !capa_access(g_class_fullpath, F_OK) == 0 ) {
! 666: fprintf(stdout,"ACCESS: could not access the class directory [%s]!\n",g_class_fullpath);
! 667: fprintf(stdout,"Please exit the web browser and try accessing the system again\n");
! 668: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 669: fflush(stdout);
! 670: sprintf(log_str,"Failed to access class dir, g_class_fullpath: %s\tg_cpath: %s\tg_class_name: %s\tg_cowner: %s\tg_cwd: %s\t",
! 671: g_class_fullpath,g_cpath,g_class_name,g_cowner,g_cwd);
! 672: if (web_log(log_str) == -1 ) {
! 673: fprintf(stdout,"Unable to log access to the system. Please notify instructor\n.");
! 674: fflush(stdout);
! 675: error |= 256;
! 676: return error;
! 677: }
! 678: #ifdef CGI_DBUG
! 679: fprintf(g_cgi,"NO ACCESS: cannot access() [%s]\n",g_class_fullpath); fflush(g_cgi);
! 680: #endif /* CGI_DBUG */
! 681: error |= 512;
! 682: return (error);
! 683: }
! 684: /* ---------------------------------------------------- */
! 685: /* change working directory to the class */
! 686: /* ---------------------------------------------------- */
! 687: chdir(g_class_fullpath); /* before performing any capa*() calls */
! 688: #ifdef CGI_DBUG
! 689: fprintf(g_cgi,"DONE cd to [%s]\n",g_class_fullpath); fflush(g_cgi);
! 690: #endif /* CGI_DBUG */
! 691:
! 692: /* Now in proper directory, can log submissions */
! 693: if ( g_run_mode == M_CHECKANS) {
! 694: if (w_log_submissions(g_student_number,g_set,submissions_str) == -1 ) {
! 695: fprintf(stdout,"Unable to log submissions. Please notify instructor\n.");
! 696: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 697: error |= 1024;
! 698: return error;
! 699: }
! 700: }
! 701:
! 702: result=read_capa_config("capaweb_cgibin_path",buf);
! 703: if (result != 0 && result != -1) {
! 704: g_cgibin_path=capa_malloc(strlen(buf)+1,1);
! 705: strcpy(g_cgibin_path,buf);
! 706: } else {
! 707: g_cgibin_path=capa_malloc(strlen("capa-bin")+1,1);
! 708: strcpy(g_cgibin_path,"capa-bin");
! 709: }
! 710:
! 711: if( g_entered_pin != 0 ) {
! 712: g_login_set = capa_PIN(g_student_number,999,g_entered_pin);
! 713: #ifdef CGI_DBUG
! 714: fprintf(g_cgi,"Succeed in login to set %d with pin %d\n",g_login_set,g_entered_pin); fflush(g_cgi);
! 715: #endif /* CGI_DBUG */
! 716: /* ----------------------------------------------------
! 717: printf("Your entered capa id %d, login to set %d\n", g_entered_pin, g_login_set);
! 718: printf("The real capa id for %s is %d\n",g_student_number,capa_PIN(g_student_number,1,0));
! 719: ---------------------------------------------------- */
! 720:
! 721: } else {
! 722: fprintf(stdout,"CAPA ID entered was zero, this is not valid.\n");
! 723: fprintf(stdout,"No tries have been deducted for the last submission.\n");
! 724: fflush(stdout);
! 725: error |= 2048; return (error);
! 726: }
! 727:
! 728: if (!g_login_set) {
! 729: fprintf(stdout,"The student ID (%s) or CAPA ID (%d) that you entered \
! 730: is not listed for the class (%s) that you have selected. Please check that \
! 731: you have selected the correct class on the CAPA logon page and that the \
! 732: student ID and CAPA ID are correct.\n",
! 733: g_student_number, g_entered_pin, g_class_name);
! 734: fflush(stdout);
! 735: #ifdef CGI_DBUG
! 736: fprintf(g_cgi,"CAPA ID or student number is not valid.\n");
! 737: fflush(g_cgi);
! 738: #endif /* CGI_DBUG */
! 739: error |= 4096; return (error);
! 740: } else {
! 741: if ( g_login_set > 99 ) {
! 742: fprintf(stdout,"The student ID (%s) or CAPA ID (%d) that you entered \
! 743: is not listed for the class (%s) that you have selected. Please check that \
! 744: you have selected the correct class on the CAPA logon page and that the \
! 745: student ID and CAPA ID are correct.\n",
! 746: g_student_number, g_entered_pin, g_class_name);
! 747: fflush(stdout);
! 748: #ifdef CGI_DBUG
! 749: fprintf(g_cgi,"CAPA ID is not valid.\n"); fflush(g_cgi);
! 750: #endif /* CGI_DBUG */
! 751: error |= 8192; return (error);
! 752: }
! 753: if(g_login_set < g_vset ) {
! 754: fprintf(stdout,"Your CAPA ID (for set %d) does not allow you to view set %d.\n",g_login_set, g_vset);
! 755: fflush(stdout);
! 756: #ifdef CGI_DBUG
! 757: fprintf(g_cgi,"Login set %d is less than view set %d.\n",g_login_set,g_vset); fflush(g_cgi);
! 758: #endif /* CGI_DBUG */
! 759: error |= 16384; return (error);
! 760: }
! 761: chdir(g_class_fullpath); /* again, to make sure */
! 762:
! 763: if ( capa_get_student(g_student_number,&g_student_data) == 0 ) {
! 764: fprintf(stdout,"Entered student id is not in the class list.\n");
! 765: fprintf(stdout,"Please check that have selected the correct class \
! 766: and have entered you student id correctly.\n");
! 767: fflush(stdout);
! 768: #ifdef CGI_DBUG
! 769: fprintf(g_cgi,"get_student(): Student id not in the classl file.\n"); fflush(g_cgi);
! 770: #endif /* CGI_DBUG */
! 771: error |= 32768; return (error);
! 772: } else {
! 773: time(&curtime);
! 774: if (capa_get_header(&header, g_login_set)) {
! 775: fprintf(stdout,"This problem set is not ready yet.\n");
! 776: fflush(stdout);
! 777:
! 778: #ifdef CGI_DBUG
! 779: fprintf(g_cgi,"get_header(): Problem set not ready.\n"); fflush(g_cgi);
! 780: #endif /* CGI_DBUG */
! 781: error |= 65536; return (error);
! 782: }
! 783: capa_mfree(header.weight);
! 784: capa_mfree(header.partial_credit);
! 785: /* ===> if (compare_datetime(curtime,header.open_date) < 0 ) { */
! 786: if( capa_check_date(CHECK_OPEN_DATE,g_student_number,
! 787: g_student_data.s_sec,g_login_set) < 0 ) {
! 788: fprintf(stdout,"This set(%d) is not yet open. Please try back later.\n",g_login_set);
! 789: fflush(stdout);
! 790: #ifdef CGI_DBUG
! 791: fprintf(g_cgi,"check_date(): Problem set not open.\n");
! 792: fflush(g_cgi);
! 793: #endif /* CGI_DBUG */
! 794: error |= 131072; return (error);
! 795: }
! 796: }
! 797: }
! 798: return (error);
! 799: }
! 800:
! 801: /* ============================================================================= */
! 802: void append_qtext(new_str) char *new_str;
! 803: {
! 804: int ii,len;
! 805: if (new_str==NULL) return;
! 806: len=strlen(new_str);
! 807: #ifdef CGI_DBUG
! 808: fprintf(g_cgi,"before: len %d; g_qchar_cnt %d; g_qsize %d\n",
! 809: len,g_qchar_cnt,g_qsize);
! 810: fflush(g_cgi);
! 811: #endif /* CGI_DBUG */
! 812: if (g_qchar_cnt+len>g_qsize-1) {
! 813: char *temp_text;
! 814: g_qsize=(g_qchar_cnt+len)*2;
! 815: temp_text=capa_malloc(g_qsize,sizeof(char));
! 816: strncpy(temp_text,g_question_txt,g_qchar_cnt);
! 817: capa_mfree(g_question_txt);
! 818: g_question_txt=temp_text;
! 819: }
! 820: for(ii=0;ii<len;ii++) {
! 821: g_question_txt[g_qchar_cnt+ii]=new_str[ii];
! 822: }
! 823: g_qchar_cnt += len;
! 824: g_question_txt[g_qchar_cnt+1]='\0';
! 825: #ifdef CGI_DBUG
! 826: fprintf(g_cgi,"after: len %d; g_qchar_cnt %d; g_qsize %d\n",len,g_qchar_cnt,g_qsize);
! 827: fflush(g_cgi);
! 828: #endif /* CGI_DBUG */
! 829: }
! 830: void append_stext(new_str) char *new_str;
! 831: {
! 832: int ii,len;
! 833: if (new_str==NULL) return;
! 834: len=strlen(new_str);
! 835: #ifdef CGI_DBUG
! 836: fprintf(g_cgi,"appending status{%s}\nlen %d; g_schar_cnt %d; g_ssize %d\n",
! 837: new_str,len,g_schar_cnt,g_ssize);
! 838: fflush(g_cgi);
! 839: #endif /* CGI_DBUG */
! 840: if (g_schar_cnt+len>g_ssize-1) {
! 841: char *temp_text;
! 842: g_ssize=(g_schar_cnt+len)*2;
! 843: temp_text=capa_malloc(g_ssize,sizeof(char));
! 844: strncpy(temp_text,g_status_txt,g_schar_cnt);
! 845: capa_mfree(g_status_txt);
! 846: g_status_txt=temp_text;
! 847: }
! 848: for(ii=0;ii<len;ii++) {
! 849: g_status_txt[g_schar_cnt+ii]=new_str[ii];
! 850: }
! 851: g_schar_cnt += len;
! 852: g_status_txt[g_schar_cnt+1]='\0';
! 853: #ifdef CGI_DBUG
! 854: fprintf(g_cgi,"len %d; g_schar_cnt %d; g_ssize %d\n",len,g_schar_cnt,g_ssize);
! 855: fflush(g_cgi);
! 856: #endif /* CGI_DBUG */
! 857: }
! 858: /* ============================================================================= */
! 859: /* ------------------------------------------------------------
! 860: printf("ENV<br>\n");
! 861: printf("SERVER_PROTOCOL:%s<br>",getenv("SERVER_PROTOCOL"));
! 862: printf("PATH_INFO:%s<br>",getenv("PATH_INFO"));
! 863: printf("PATH_TRANSLATED:%s<br>\n",getenv("PATH_TRANSLATED"));
! 864: printf("SCRIPT_NAME:%s<br>\n",getenv("SCRIPT_NAME"));
! 865: printf("QUERY_STRING:%s<br>\n",getenv("QUERY_STRING"));
! 866: printf("REMOTE_HOST:%s<br>\n",getenv("REMOTE_HOST"));
! 867: printf("REMOTE_USER:%s<br>\n",getenv("REMOTE_USER"));
! 868: printf("REMOTE_IDENT:%s<br>\n",getenv("REMOTE_IDENT"));
! 869: printf("USER_AGENT:%s<br>\n",getenv("USER_AGENT"));
! 870: printf("HTTP_USER_AGENT:%s<br>\n",getenv("HTTP_USER_AGENT"));
! 871: ------------------------------------------------------------
! 872: */
! 873:
! 874: /* ------------------------------------------------------ */
! 875: /* A class directory must have */
! 876: /* records/ */
! 877: /* */
! 878: /* returns: 0 structure is correct, but no set.db files */
! 879: /* -1 structure is not correct */
! 880: /* >=1 the last set.db */
! 881:
! 882: int
! 883: check_class_get_maxset(dir_path) char *dir_path;
! 884: {
! 885: char f_name[1024];
! 886: int set;
! 887:
! 888: if( capa_access(dir_path, F_OK) == 0 ) { /* class dir exists */
! 889: sprintf(f_name,"%s/records",dir_path);
! 890: if( capa_access(f_name, F_OK) == 0 ) { /* class/records dir exists */
! 891: for(set = 1; ; set++ ) {
! 892: sprintf(f_name,"%s/records/set%d.db",dir_path,set);
! 893: if(capa_access(f_name, F_OK) == -1 ) break;
! 894: }
! 895: set--;
! 896: } else {
! 897: set = -1;
! 898: }
! 899: } else {
! 900: set = -1;
! 901: }
! 902: return (set);
! 903: }
! 904:
! 905: /* ------------------------------------------------------------------------- */
! 906: /* Get Exam and Quiz Path */
! 907: /* return 0, 1, 2, 3 */
! 908: /* 0: Neither exist */
! 909: /* 1: Exam.path exists */
! 910: /* 2: Quiz.path exists */
! 911: /* 3: Both Exam.path and Quiz.path exists */
! 912: /* ------------------------------------------------------------------------- */
! 913: int
! 914: check_exam_quiz_path()
! 915: {
! 916: char buf[MAX_BUFFER_SIZE];
! 917: int result = 0, configResult=0;
! 918:
! 919: configResult=read_capa_config("exam_path",buf);
! 920: if (configResult != 0 && configResult != -1) {
! 921: g_exam_set = check_class_get_maxset(buf);
! 922: if(g_exam_set > 0 ) {
! 923: result = 1;
! 924: sprintf(g_exam_path,buf);
! 925: }
! 926: }
! 927: configResult=read_capa_config("quiz_path",buf);
! 928: if (configResult != 0 && configResult != -1) {
! 929: g_quiz_set = check_class_get_maxset(buf);
! 930: if(g_quiz_set > 0 ) {
! 931: result = (result | 2);
! 932: sprintf(g_quiz_path,buf);
! 933: }
! 934: }
! 935: return (result);
! 936: }
! 937:
! 938:
! 939: int
! 940: check_termscore_option()
! 941: {
! 942: char buf[MAX_BUFFER_SIZE];
! 943: int result = 0, configResult=0;
! 944:
! 945: configResult=read_capa_config("term_score_applet",buf);
! 946: if (configResult != 0 && configResult != -1) {
! 947: fprintf(stdout,"<!-- term_score_applet is in capa.config file -->\n");
! 948: if (strcasecmp(buf,"yes")==0) {
! 949: fprintf(stdout,"<!-- term_score_applet is YES -->\n");
! 950: result=1;
! 951: }
! 952: }
! 953: return (result);
! 954: }
! 955:
! 956:
! 957:
! 958:
! 959: /* ============================================================================= */
! 960: void
! 961: print_mainmenu(class,sn,pin)char *class; char *sn;int pin;
! 962: {
! 963: char buf[MAX_BUFFER_SIZE];
! 964: int outcome,configResult,term_summary_button=1;
! 965: char *serverName;
! 966:
! 967: serverName=getenv("SERVER_NAME");
! 968: if (!serverName) {
! 969: fprintf(stdout,"Enviroment variable SERVER_NAME not set.\n");
! 970: fprintf(stdout,"Unable to complete actions.\n");
! 971: return;
! 972: }
! 973:
! 974: fprintf(stdout,"<TITLE>%s main menu</TITLE>\n",g_class_name);
! 975: fprintf(stdout,"<h3>%s</h3><br>\n",g_student_name);
! 976: fprintf(stdout,"<menu>\n");
! 977: fprintf(stdout,"<li><form method=\"get\" action=\"http://%s/CAPA/help.html\">",serverName);
! 978: fprintf(stdout,"<input type=\"submit\" value=\"Help\" ></form>\n");
! 979:
! 980: fprintf(stdout,"<li><form method=\"post\" ");
! 981: /* fprintf(stdout," target=\"right_frame\" "); */
! 982: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 983: fprintf(stdout,"%s\n", buf);
! 984: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 985: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 986: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 987: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_TRYSET);
! 988: fprintf(stdout,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",1);
! 989: fprintf(stdout,"<input type=\"submit\" value=\"Try current set\" ></form>\n");
! 990:
! 991: fprintf(stdout,"<li><form method=\"post\" ");
! 992: /* fprintf(stdout," target=\"right_frame\" "); */
! 993: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 994: fprintf(stdout,"%s\n", buf);
! 995: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 996: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 997: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 998: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWPREV);
! 999: fprintf(stdout,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",1);
! 1000: fprintf(stdout,"<input type=\"submit\" value=\"View previous set:\" >");
! 1001: fprintf(stdout,"<b> set:</b><input name=\"VSET\" value=\"\" size=4></form>\n");
! 1002:
! 1003: /*Term Summary*/
! 1004: configResult=read_capa_config("term_summary_button",buf);
! 1005: if (configResult != 0 && configResult != -1 ) {
! 1006: if (strcasecmp(buf,"no")==0) {
! 1007: term_summary_button=0;
! 1008: }
! 1009: }
! 1010: if (term_summary_button) {
! 1011: fprintf(stdout,"<li><form method=\"post\" ");
! 1012: /* fprintf(stdout," target=\"right_frame\" "); */
! 1013: sprintf(buf,"action=\"http://%s/%s/capahtml\">",serverName,g_cgibin_path);
! 1014: fprintf(stdout,"%s\n", buf);
! 1015: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 1016: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 1017: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 1018: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWSUMM);
! 1019: fprintf(stdout,"<input type=\"submit\" value=\"Display term summary\" ></form>\n");
! 1020: }
! 1021:
! 1022: outcome = check_exam_quiz_path();
! 1023: if( outcome & 1 ) { /* exam summary */
! 1024: fprintf(stdout,"<li><form method=\"post\" ");
! 1025: /* fprintf(stdout," target=\"right_frame\" "); */
! 1026: sprintf(buf,"action=\"http://%s/%s/capahtml\">",serverName,g_cgibin_path);
! 1027: fprintf(stdout,"%s\n", buf);
! 1028: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 1029: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 1030: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 1031: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_EXAMSUMM);
! 1032: fprintf(stdout,"<input type=\"submit\" value=\"Display Exam summary\" ></form>\n");
! 1033: }
! 1034: if( outcome & 2 ) { /* Quiz summary */
! 1035: fprintf(stdout,"<li><form method=\"post\" ");
! 1036: /* fprintf(stdout," target=\"right_frame\" "); */
! 1037: sprintf(buf,"action=\"http://%s/%s/capahtml\">",serverName,g_cgibin_path);
! 1038: fprintf(stdout,"%s\n", buf);
! 1039: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 1040: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 1041: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 1042: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\" >\n",M_QUIZSUMM );
! 1043: fprintf(stdout,"<input type=\"submit\" value=\"Display Quiz summary\" ></form>\n");
! 1044: }
! 1045: outcome = check_termscore_option();
! 1046: fprintf(stdout,"<!-- Outcome of check_termscore_option()=%d --!>\n",outcome);
! 1047: /*Termscore Button*/
! 1048: if( outcome ) {
! 1049: fprintf(stdout,"<li><form method=\"post\" ");
! 1050: sprintf(buf,"action=\"http://%s/%s/capahtml\">",serverName,g_cgibin_path);
! 1051: fprintf(stdout,"%s\n", buf);
! 1052: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class);
! 1053: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn);
! 1054: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin);
! 1055: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\" >\n",M_TERMSCORE );
! 1056: fprintf(stdout,"<input type=\"submit\" value=\"Extrapolate Term score\" ></form>\n");
! 1057: }
! 1058: /*Exit Button*/
! 1059: fprintf(stdout,"<TD><form method=\"get\" action=\"http://%s/CAPA/class.html\">",serverName);
! 1060: fprintf(stdout,"<input type=\"button\" value=\"Exit\" onclick=\"window.close()\"></form></TD>");
! 1061:
! 1062: fprintf(stdout,"</menu>\n"); fflush(stdout);
! 1063:
! 1064: }
! 1065:
! 1066: /* ====================================================================================== */
! 1067: void
! 1068: print_page_header(mode,num_quest) int mode;int num_quest;
! 1069: {
! 1070: char buf[MAX_BUFFER_SIZE];
! 1071: char *serverName;
! 1072: int configResult,term_summary_button=1;
! 1073:
! 1074: serverName=getenv("SERVER_NAME");
! 1075: if (!serverName) {
! 1076: fprintf(stdout,"Enviroment variable SERVER_NAME not set.\n");
! 1077: fprintf(stdout,"Unable to complete actions.\n");
! 1078: return;
! 1079: }
! 1080:
! 1081: /* now done in the .qz file
! 1082: fprintf(stdout,"<TITLE>%s set%d</TITLE>",g_class_name,g_login_set);
! 1083: if( mode == VIEW_PREVIOUS_MODE ) {
! 1084: fprintf(stdout,"<H2>%s set%d</H2>\n",g_class_name,g_vset);
! 1085: } else {
! 1086: fprintf(stdout,"<H2>%s set%d</H2>\n",g_class_name,g_login_set);
! 1087: }
! 1088: fprintf(stdout,"<H3>%s</H3>\n",g_student_data.s_nm);
! 1089: */
! 1090:
! 1091: fprintf(stdout,"<A NAME=\"TOP\"></A>");
! 1092: fprintf(stdout,"<TABLE cellpadding=0 cellspacing=0 border=0>\n<TR><TD>");
! 1093:
! 1094:
! 1095: /*Term summary button*/
! 1096: configResult=read_capa_config("term_summary_button",buf);
! 1097: if (configResult != 0 && configResult != -1 ) {
! 1098: if (strcasecmp(buf,"no")==0) {
! 1099: term_summary_button=0;
! 1100: }
! 1101: }
! 1102: #ifdef CGI_DBUG
! 1103: fprintf(g_cgi,"buf: %s\ntermsum: %d\n",buf,term_summary_button); fflush(g_cgi);
! 1104: #endif /* CGI_DBUG */
! 1105:
! 1106: if (term_summary_button) {
! 1107: fprintf(stdout,"<form method=\"post\" ");
! 1108: sprintf(buf,"action=\"http://%s/%s/capahtml\">",serverName,g_cgibin_path);
! 1109: fprintf(stdout,"%s\n", buf);
! 1110: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 1111: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 1112: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 1113: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWSUMM);
! 1114: fprintf(stdout,"<input type=\"submit\" value=\"Term summary\" ></form></TD>\n");
! 1115: }
! 1116:
! 1117: /*Exit Button*/
! 1118: fprintf(stdout,"<TD><form method=\"get\" action=\"http://%s/CAPA/class.html\">",serverName);
! 1119: fprintf(stdout,"<input type=\"button\" value=\"Exit\" onclick=\"window.close()\"></form></TD>");
! 1120: /*help button*/
! 1121: if (mode != VIEW_PREVIOUS_MODE) {
! 1122: fprintf(stdout,"<TD><form method=\"get\" action=\"http://%s/CAPA/help.html\">",serverName);
! 1123: fprintf(stdout,"<input type=\"submit\" value=\"Help\"></form></TD>");
! 1124: }
! 1125:
! 1126: /*Reload button*/
! 1127: fprintf(stdout,"<TD><form method=\"post\" ");
! 1128: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 1129: fprintf(stdout,"%s\n", buf);
! 1130: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 1131: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 1132: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 1133: fprintf(stdout,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",g_start_question);
! 1134: if (mode == VIEW_PREVIOUS_MODE ) {
! 1135: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWPREV);
! 1136: fprintf(stdout,"<input type=\"hidden\" name=\"VSET\" value=\"%d\" size=4>\n",g_vset);
! 1137: } else {
! 1138: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_TRYSET);
! 1139: }
! 1140: fprintf(stdout,"<input type=\"submit\" value=\"Reload\" >\n</form></TD>");
! 1141: #ifdef NOT_DEFINED
! 1142: /* Next Button */
! 1143: if ( (!(g_num_questions_per_page==ALL_QUESTIONS)) &&
! 1144: ((g_num_questions_per_page+g_start_question)<num_quest)) {
! 1145: fprintf(stdout,"<TD><form method=\"post\" ");
! 1146: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 1147: fprintf(stdout,"%s\n", buf);
! 1148: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 1149: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 1150: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 1151: fprintf(stdout,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",g_start_question+g_num_questions_per_page);
! 1152: if (mode == VIEW_PREVIOUS_MODE ) {
! 1153: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWPREV);
! 1154: fprintf(stdout,"<input type=\"hidden\" name=\"VSET\" value=\"%d\" size=4>\n",g_vset);
! 1155: } else {
! 1156: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_TRYSET);
! 1157: }
! 1158: fprintf(stdout,"<input type=\"submit\" value=\"Next Page\" >\n</form></TD>");
! 1159: }
! 1160:
! 1161: /* Previous Button */
! 1162: if ( (!(g_num_questions_per_page==ALL_QUESTIONS)) && (g_start_question > 1)) {
! 1163: fprintf(stdout,"<TD><form method=\"post\" ");
! 1164: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 1165: fprintf(stdout,"%s\n", buf);
! 1166: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 1167: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 1168: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 1169: fprintf(stdout,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",g_start_question-g_num_questions_per_page);
! 1170: if (mode == VIEW_PREVIOUS_MODE ) {
! 1171: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWPREV);
! 1172: fprintf(stdout,"<input type=\"hidden\" name=\"VSET\" value=\"%d\" size=4>\n",g_vset);
! 1173: } else {
! 1174: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_TRYSET);
! 1175: }
! 1176: fprintf(stdout,"<input type=\"submit\" value=\"Previous Page\" >\n</form></TD>");
! 1177: }
! 1178: #endif
! 1179: /* Goto Button */
! 1180: if (!(g_num_questions_per_page==ALL_QUESTIONS)) {
! 1181: int idx,numquest;
! 1182: T_header header;
! 1183: fprintf(stdout,"<TD><form method=\"post\" ");
! 1184: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 1185: fprintf(stdout,"%s\n", buf);
! 1186: fprintf(stdout,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 1187: fprintf(stdout,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 1188: fprintf(stdout,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 1189: fprintf(stdout,"<input type=\"submit\" value=\"Goto\" >");
! 1190: fprintf(stdout,"<b>Problem:</b><input name=\"STARTNUM\" value=\"\" size=4>\n");
! 1191: if (mode == VIEW_PREVIOUS_MODE ) {
! 1192: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_VIEWPREV);
! 1193: fprintf(stdout,"<input type=\"hidden\" name=\"VSET\" value=\"%d\" size=4>\n",g_vset);
! 1194: } else {
! 1195: fprintf(stdout,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_TRYSET);
! 1196: }
! 1197:
! 1198: if (!capa_get_header(&header, g_login_set)) {
! 1199: numquest=atoi(header.num_questions);
! 1200: capa_mfree(header.weight);
! 1201: capa_mfree(header.partial_credit);
! 1202: for(idx=0;idx<numquest;idx++) {
! 1203: preserve_last_answer(idx,1);
! 1204: }
! 1205: }
! 1206: fprintf(stdout,"</form></TD>");
! 1207: }
! 1208:
! 1209: fprintf(stdout,"\n</TR></TABLE>\n");
! 1210: fflush(stdout);
! 1211: }
! 1212:
! 1213: void create_status_line(int mode,int question_cnt, T_entry* entry)
! 1214: {
! 1215: char buf[MAX_BUFFER_SIZE];
! 1216: int idx,configResult,status_line_length;
! 1217:
! 1218: configResult=read_capa_config("web_status_line_length",buf);
! 1219: if (configResult != 0 && configResult != -1 ) {
! 1220: if (sscanf(buf,"%d",&status_line_length)==0) {
! 1221: status_line_length=question_cnt;
! 1222: }
! 1223: } else {
! 1224: status_line_length=question_cnt;
! 1225: }
! 1226:
! 1227: append_stext("<TABLE cellpadding=0 cellspacing=0 border=0><TR>");
! 1228: append_stext("<TD><b><u>Go to problem</u> </b></TD><TD></TD>");
! 1229: for(idx=0; idx < status_line_length;idx++ ) {
! 1230: sprintf(buf,"<TD ALIGN=center VALIGN=bottom>[%d]</TD>",idx+1);
! 1231: append_stext(buf);
! 1232: }
! 1233: for(idx = 0; idx < question_cnt; idx++ ) {
! 1234: if ( !(idx%status_line_length) ) {
! 1235: sprintf(buf,"</TR><TR><TD ALIGN=left>%d-%d</TD><TD ALIGN=right>Status: </TD>",
! 1236: idx+1,idx+status_line_length);
! 1237: append_stext(buf);
! 1238: }
! 1239: if ((idx >= g_start_question-1) &&
! 1240: (((g_num_questions_per_page == ALL_QUESTIONS)) ||
! 1241: (idx < (g_start_question+g_num_questions_per_page-1)))) {
! 1242: sprintf(buf,"<TD ALIGN=center VALIGN=bottom><A href=\"#P%d\">",idx+1);
! 1243: } else {
! 1244: sprintf(buf,"<TD ALIGN=center VALIGN=bottom>");
! 1245: }
! 1246: append_stext(buf);
! 1247: if ( (mode == CHECK_ANSWER_MODE) && g_log_string[idx] == '-') {
! 1248: if (g_inhibit_response && (entry->answers[idx]!='-')) {
! 1249: sprintf(buf,"A");
! 1250: } else {
! 1251: sprintf(buf,"%c",entry->answers[idx]);
! 1252: }
! 1253: } else {
! 1254: if (g_inhibit_response && (entry->answers[idx]!='-')) {
! 1255: sprintf(buf,"<b>A</b>");
! 1256: } else {
! 1257: if ( mode == CHECK_ANSWER_MODE ) {
! 1258: sprintf(buf,"<b>%c</b>",g_log_string[idx]);
! 1259: } else {
! 1260: sprintf(buf,"<b>%c</b>",entry->answers[idx]);
! 1261: }
! 1262: }
! 1263: }
! 1264: append_stext(buf);
! 1265: if ((idx >= g_start_question-1) &&
! 1266: (((g_num_questions_per_page == ALL_QUESTIONS)) ||
! 1267: (idx < (g_start_question+g_num_questions_per_page-1)))) {
! 1268: sprintf(buf,"</A></TD>");
! 1269: } else {
! 1270: sprintf(buf,"</TD>");
! 1271: }
! 1272: append_stext(buf);
! 1273: }
! 1274: append_stext("</TR></TABLE>\n");
! 1275: }
! 1276:
! 1277: /* -------------------------------- called by try set, view previous, check answer */
! 1278: void
! 1279: print_quizz(class_dir,c_owner,class,sn,pin,set,mode)
! 1280: char *class_dir; char *c_owner;char *class;char *sn;int pin;int set;int mode;
! 1281: {
! 1282: extern int Parsemode_f;
! 1283: extern char *StartText_p;
! 1284: extern char *EndText_p;
! 1285: Problem_t *first_prob, *prob_idx;
! 1286: int result, question_idx, question_cnt, idx, view_assignment_after_due=1;
! 1287: int q_leng, display_ans=1, configResult;
! 1288: int view_assignments_after_due=1;
! 1289: char buf[MAX_BUFFER_SIZE];
! 1290: char class_fullpath[FILE_NAME_LENGTH];
! 1291: T_entry entry;
! 1292: T_header header;
! 1293: long offset;
! 1294: double a;
! 1295: char cmp_ans[MAX_BUFFER_SIZE],date_str[DATE_BUFFER];
! 1296: time_t curtime;
! 1297: char *serverName;
! 1298:
! 1299: serverName=getenv("SERVER_NAME");
! 1300: if (!serverName) {
! 1301: fprintf(stdout,"Enviroment variable SERVER_NAME not set.\n");
! 1302: fprintf(stdout,"Unable to complete actions.\n");
! 1303: return;
! 1304: }
! 1305:
! 1306: sprintf(class_fullpath,"%s/%s",class_dir,class);
! 1307:
! 1308: /*
! 1309: chdir(class_fullpath);
! 1310: */
! 1311: #ifdef CGI_DBUG
! 1312: fprintf(g_cgi,"enter print_quizz() %s, mode:%d\n",class_fullpath,mode); fflush(g_cgi);
! 1313: #endif /* CGI_DBUG */
! 1314:
! 1315: /* get configuration options */
! 1316: configResult=read_capa_config("num_questions_per_page",buf);
! 1317: if (configResult != 0 && configResult != -1 ) {
! 1318: if (sscanf(buf,"%d",&g_num_questions_per_page)==0) {
! 1319: g_num_questions_per_page=ALL_QUESTIONS;
! 1320: }
! 1321: } else {
! 1322: g_num_questions_per_page=ALL_QUESTIONS;
! 1323: }
! 1324:
! 1325: view_assignments_after_due=capa_check_option(OPTION_VIEW_PROBLEMS_AFTER_DUE,
! 1326: set,g_student_data.s_sec);
! 1327: if (view_assignments_after_due < 0 ) view_assignments_after_due=1;
! 1328: g_inhibit_response=capa_check_option(OPTION_INHIBIT_RESPONSE,set,g_student_data.s_sec);
! 1329: if (g_inhibit_response < 0 ) g_inhibit_response=0;
! 1330:
! 1331: #ifdef CGI_DBUG
! 1332: fprintf(g_cgi,"Set %d, Section%d, ViewAssign? %d, Inhibit Resp? %d\n",set,
! 1333: g_student_data.s_sec,view_assignments_after_due,
! 1334: g_inhibit_response);
! 1335: fflush(g_cgi);
! 1336: #endif /* CGI_DBUG */
! 1337:
! 1338: time(&curtime);
! 1339: offset=capa_get_entry(&entry,sn,set); /* <-------- capa*() call ---- */
! 1340: if( mode == VIEW_PREVIOUS_MODE ) {
! 1341: if( view_assignment_after_due ) {
! 1342: if( capa_check_date(CHECK_OPEN_DATE,g_student_number,
! 1343: g_student_data.s_sec,set) < 0 ) {
! 1344: append_qtext("This set is not yet open.\n");
! 1345: return ;
! 1346: }
! 1347: } else {
! 1348: if( (capa_check_date(CHECK_ANS_DATE,g_student_number,
! 1349: g_student_data.s_sec,set) < 0) &&
! 1350: (capa_check_date(CHECK_DUE_DATE,g_student_number,
! 1351: g_student_data.s_sec,set) > 0) ) {
! 1352: append_qtext("This set is not yet available to be viewed.\n");
! 1353: return ;
! 1354: }
! 1355: }
! 1356: if( capa_check_date(CHECK_ANS_DATE,g_student_number,
! 1357: g_student_data.s_sec,set) < 0 ) {
! 1358: display_ans = 0;
! 1359: }
! 1360: }
! 1361: g_passdue = 0;
! 1362: if( mode == CHECK_ANSWER_MODE ||
! 1363: ( (!view_assignment_after_due) && mode == TRY_SET_MODE)) {
! 1364: if( capa_check_date(CHECK_DUE_DATE,g_student_number,
! 1365: g_student_data.s_sec,set) > 0 ) {
! 1366: capa_get_date(CHECK_DUE_DATE,g_student_number,
! 1367: g_student_data.s_sec,set,date_str);
! 1368: sprintf(buf,"SORRY, the due date was: %s\n",date_str);
! 1369: append_qtext(buf);
! 1370: g_passdue = 1;
! 1371: }
! 1372: }
! 1373:
! 1374: if ((mode==CHECK_ANSWER_MODE) || (mode== TRY_SET_MODE))
! 1375: capa_set_login_time(g_student_number,set);
! 1376:
! 1377: capa_get_header(&header,set);
! 1378:
! 1379: sscanf(header.num_questions,"%d",&question_cnt);
! 1380: print_page_header(mode,question_cnt);
! 1381:
! 1382: #ifdef CGI_DBUG
! 1383: fprintf(g_cgi,"DONE page header\n"); fflush(g_cgi);
! 1384: #endif /* CGI_DBUG */
! 1385:
! 1386: if(offset < 0 ) offset = - offset;
! 1387:
! 1388: Parsemode_f = HTML_MODE; /* WEB_MODE */
! 1389: result = capa_parse(set, &first_prob, sn, &question_cnt,NULL); /* <-- capa*() call */
! 1390:
! 1391: #ifdef CGI_DBUG
! 1392: fprintf(g_cgi,"DONE capa_parse() [%d], pass due=%d\n",result,g_passdue); fflush(g_cgi);
! 1393: #endif /* CGI_DBUG */
! 1394:
! 1395: if (StartText_p) printf(StartText_p);
! 1396:
! 1397: #ifdef CGI_DBUG
! 1398: fprintf(g_cgi,"DONE Start Text\n"); fflush(g_cgi);
! 1399: #endif /* CGI_DBUG */
! 1400:
! 1401: if ( result != 0 ) {
! 1402: if( !g_passdue ) {
! 1403: append_qtext("<FORM method=\"post\" ");
! 1404: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,
! 1405: g_cgibin_path,c_owner);
! 1406: append_qtext(buf);
! 1407: sprintf(buf,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",class); append_qtext(buf);
! 1408: sprintf(buf,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",sn); append_qtext(buf);
! 1409: sprintf(buf,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",pin); append_qtext(buf);
! 1410: sprintf(buf,"<input type=\"hidden\" name=\"SET\" value=\"%d\">\n",set); append_qtext(buf);
! 1411: sprintf(buf,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_CHECKANS); append_qtext(buf);
! 1412: sprintf(buf,"<input type=\"hidden\" name=\"STARTNUM\" value=\"%d\">\n",g_start_question); append_qtext(buf);
! 1413: append_qtext("\n<OL>\n");
! 1414: }
! 1415:
! 1416: for(idx=0;idx<question_cnt;idx++) { /* prepare log string and new database entry */
! 1417: g_new_answerdb[idx] = entry.answers[idx];
! 1418: g_log_string[idx] = '-';
! 1419: sscanf(entry.tries + 3*idx,"%d,",&(g_tried[idx]) );
! 1420: }
! 1421: g_new_answerdb[question_cnt]=0; g_log_string[question_cnt]=0;
! 1422: prob_idx = first_prob;
! 1423: for( question_idx = 0; question_idx < question_cnt;
! 1424: question_idx++,prob_idx = prob_idx->next ) {
! 1425: #ifdef CGI_DBUG
! 1426: fprintf(g_cgi,"quetion_idx: %d, g_start_question:%d, g_num_que: %d\n",
! 1427: question_idx,g_start_question,g_num_questions_per_page); fflush(g_cgi);
! 1428: #endif /* CGI_DBUG */
! 1429: if ((question_idx < g_start_question-1)
! 1430: ||
! 1431: (((!(g_num_questions_per_page == ALL_QUESTIONS))
! 1432: &&
! 1433: (question_idx >= (g_start_question+g_num_questions_per_page-1))))) {
! 1434: preserve_last_answer(question_idx,0);
! 1435: continue;
! 1436: }
! 1437: if( !g_passdue ) {
! 1438: sprintf(buf,"<A NAME=\"P%d\"></A>",question_idx+1); append_qtext(buf);
! 1439: /* if (!((question_idx == (g_start_question-1)) || (question_idx == 0))) {
! 1440: append_qtext("<A href=\"#TOP\">Top</A>");
! 1441: sprintf(buf," <A href=\"#P%d\">Next</A>",question_idx+2); append_qtext(buf);
! 1442: }*/
! 1443: q_leng = strlen(prob_idx->question);
! 1444: if ( !prob_idx->show_br ) {
! 1445: append_qtext(prob_idx->question);
! 1446: } else {
! 1447: for(idx=0;idx<q_leng;idx++) {
! 1448: if ( g_qchar_cnt+2 >= g_qsize ) {
! 1449: char *temp_text;
! 1450: g_qsize=g_qchar_cnt*2;
! 1451: temp_text=capa_malloc(g_qsize,sizeof(char));
! 1452: strncpy(temp_text,g_question_txt,g_qsize);
! 1453: capa_mfree(g_question_txt);
! 1454: g_question_txt=temp_text;
! 1455: }
! 1456: g_question_txt[g_qchar_cnt]=prob_idx->question[idx];
! 1457: g_qchar_cnt++;
! 1458: if(prob_idx->question[idx] == '\n' ) {
! 1459: append_qtext("<br>\n");
! 1460: }
! 1461: }
! 1462: }
! 1463: }
! 1464: if(mode == VIEW_PREVIOUS_MODE) { /* VIEW_PREVIOUS_MODE */
! 1465: if( display_ans ) {
! 1466: if( prob_idx->ans_type == ANSWER_IS_FLOAT ) {
! 1467: a = (double)atof(prob_idx->answer);
! 1468: sprintf(cmp_ans,prob_idx->ans_fmt, a);
! 1469: } else {
! 1470: strcpy(cmp_ans,prob_idx->answer);
! 1471: }
! 1472: if( prob_idx->ans_unit ) {
! 1473: sprintf(buf,"<p><tt><b>Answer:</b> %s %s</tt><br>\n",cmp_ans, prob_idx->unit_str);
! 1474: } else {
! 1475: sprintf(buf,"<p><tt><b>Answer:</b> %s</tt><br>\n",cmp_ans);
! 1476: }
! 1477: append_qtext(buf);
! 1478: if ( prob_idx->explain) {
! 1479: sprintf(buf,"<p><b>Explanation: </b>\n<p>%s<br>\n",prob_idx->explain);
! 1480: append_qtext(buf);
! 1481: }
! 1482: }
! 1483: } else { /* could be TRY_SET_MODE, CHECK_ANSWER_MODE */
! 1484:
! 1485: if( g_passdue ) {
! 1486: get_response(header.partial_credit[question_idx],entry.answers[question_idx],question_idx,prob_idx);
! 1487: }else{
! 1488: if (g_inhibit_response) {
! 1489: print_inhibited_response(header.partial_credit[question_idx],entry.answers[question_idx],question_idx,prob_idx);
! 1490: } else {
! 1491: print_response(header.partial_credit[question_idx],entry.answers[question_idx],question_idx,prob_idx);
! 1492: }
! 1493: append_qtext("<br>\n");
! 1494: if( (g_tried[question_idx] >= prob_idx->show_hint) ||
! 1495: (entry.answers[question_idx]=='Y') ||
! 1496: (entry.answers[question_idx]=='y')) {
! 1497: if( prob_idx->hint ) {
! 1498: sprintf(buf,"<p><B>Hint: </B>%s\n<br>\n", prob_idx->hint);
! 1499: append_qtext(buf);
! 1500: }
! 1501: }
! 1502: }
! 1503: }
! 1504: } /* ------------------------------------- end displaying each problem */
! 1505: append_qtext("\n</OL>\n");
! 1506: if( EndText_p ) append_qtext(EndText_p);
! 1507: free_problems(first_prob);
! 1508:
! 1509: #ifdef CGI_DBUG
! 1510: fprintf(g_cgi,"End display each problem\n"); fflush(g_cgi);
! 1511: #endif /* CGI_DBUG */
! 1512:
! 1513: if( mode == CHECK_ANSWER_MODE ) { /* update the record database */
! 1514: if( !g_passdue ) {
! 1515: for(idx=0;idx<question_cnt;idx++){
! 1516: if( g_new_answerdb[idx] != entry.answers[idx]) {
! 1517: entry.answers[idx] = g_new_answerdb[idx];
! 1518: }
! 1519: if(g_tried[idx] < 10 ) {
! 1520: entry.tries[3*idx] = ' ';
! 1521: entry.tries[3*idx+1] = g_tried[idx] + '0';
! 1522: if(idx < question_cnt-1) entry.tries[3*idx+2] = ',';
! 1523: } else {
! 1524: entry.tries[3*idx] = (int)(g_tried[idx]/10) + '0';
! 1525: entry.tries[3*idx+1] = (g_tried[idx] % 10) + '0';
! 1526: if(idx < question_cnt-1) entry.tries[3*idx+2] = ',';
! 1527: }
! 1528: }
! 1529: capa_set_entry(&entry,sn,set,offset); /* <-------- capa*() call */
! 1530:
! 1531: #ifdef CGI_DBUG
! 1532: fprintf(g_cgi,"DONE set db entry\n"); fflush(g_cgi);
! 1533: #endif /* CGI_DBUG */
! 1534:
! 1535: create_status_line(mode,question_cnt,&entry);
! 1536: }
! 1537: if (w_log_attempt(g_student_number,set,g_log_string) == -1 ) {
! 1538: fprintf(stdout,"<BOLD>Unable to log attempt. Please notify instructor.</BOLD>\n");
! 1539: }
! 1540: }
! 1541: #ifdef CGI_DBUG
! 1542: fprintf(g_cgi,"DONE check answer mode\n"); fflush(g_cgi);
! 1543: #endif /* CGI_DBUG */
! 1544:
! 1545: if( (mode == TRY_SET_MODE && !g_passdue) ||
! 1546: mode == VIEW_PREVIOUS_MODE) {
! 1547: create_status_line(mode,question_cnt,&entry);
! 1548: }
! 1549:
! 1550: if( !g_passdue ) {
! 1551: sprintf(buf,"</ul></form>\n"); append_qtext(buf);
! 1552: }
! 1553: }
! 1554: }
! 1555:
! 1556: void
! 1557: get_response(char pcr,char u_db,int q_idx,Problem_t *p)
! 1558: {
! 1559: if( pcr == '0' || p->ans_type==ANSWER_IS_SUBJECTIVE ) { /* not hand-graded question */
! 1560: switch(u_db) { /* what's from the user record */
! 1561: case 'Y': break;
! 1562: case 'y': break;
! 1563: case '-':
! 1564: if(g_stu_ans_pp[q_idx+1] != NULL ) log_user_ans(q_idx,p);
! 1565: break;
! 1566: case 'E':
! 1567: case 'e': break;
! 1568: case 'n': break;
! 1569: case 'N':
! 1570: case '0': case '1': case '2': case '3': case '4':
! 1571: case '5': case '6': case '7': case '8': case '9':
! 1572: if(g_stu_ans_pp[q_idx+1] != NULL ) log_user_ans(q_idx,p);
! 1573: break;
! 1574: default:
! 1575: break;
! 1576: }
! 1577: }
! 1578: }
! 1579:
! 1580: void display_last_answer(int q_idx)
! 1581: {
! 1582: char buf[MAX_BUFFER_SIZE];
! 1583: StudentAnswer_t *sa_p;
! 1584: #ifdef CGI_DBUG
! 1585: fprintf(g_cgi,"Enter display_last_answer() [%d]\n",q_idx); fflush(g_cgi);
! 1586: #endif /* CGI_DBUG */
! 1587: if(g_stu_ans_pp[q_idx+1] != NULL) {
! 1588: sa_p=g_stu_ans_pp[q_idx+1];
! 1589: } else {
! 1590: if (g_last_ans_pp[q_idx+1] != NULL) {
! 1591: sa_p=g_last_ans_pp[q_idx+1];
! 1592: } else {
! 1593: return;
! 1594: }
! 1595: }
! 1596: if (sa_p->a_next == NULL) {
! 1597: sprintf(buf,"<input type=\"hidden\" name=\"LAST%02d\" value=\"%s\">\n",
! 1598: q_idx+1,sa_p->a_str);
! 1599: append_qtext(buf);
! 1600: sprintf(buf," <b>Last Answer:</b> %s\n",sa_p->a_str);
! 1601: append_qtext(buf);
! 1602: } else {
! 1603: while(sa_p) {
! 1604: sprintf(buf,"<input type=\"hidden\" name=\"LAST%02d,%02d\" value=\"%s\">\n",
! 1605: q_idx+1,sa_p->a_idx,sa_p->a_str);
! 1606: append_qtext(buf);
! 1607: sprintf(buf," <b>Last Answer %d:</b> %s\n",sa_p->a_idx,sa_p->a_str);
! 1608: append_qtext(buf);
! 1609: sa_p=sa_p->a_next;
! 1610: }
! 1611: }
! 1612: }
! 1613:
! 1614: void preserve_last_answer(int q_idx,int print)
! 1615: {
! 1616: char buf[MAX_BUFFER_SIZE];
! 1617: StudentAnswer_t *sa_p;
! 1618: #ifdef CGI_DBUG
! 1619: fprintf(g_cgi,"Enter preserve_last_answer() [%d]\n",q_idx); fflush(g_cgi);
! 1620: #endif /* CGI_DBUG */
! 1621: if(g_stu_ans_pp[q_idx+1] != NULL) {
! 1622: sa_p=g_stu_ans_pp[q_idx+1];
! 1623: } else {
! 1624: if (g_last_ans_pp[q_idx+1] != NULL) {
! 1625: sa_p=g_last_ans_pp[q_idx+1];
! 1626: } else {
! 1627: return;
! 1628: }
! 1629: }
! 1630: if (sa_p->a_next == NULL) {
! 1631: sprintf(buf,"<input type=\"hidden\" name=\"LAST%02d\" value=\"%s\">\n",
! 1632: q_idx+1,sa_p->a_str);
! 1633: if (print) printf(buf); else append_qtext(buf);
! 1634: } else {
! 1635: while(sa_p) {
! 1636: sprintf(buf,"<input type=\"hidden\" name=\"LAST%02d,%02d\" value=\"%s\">\n",
! 1637: q_idx+1,sa_p->a_idx,sa_p->a_str);
! 1638: if (print) printf(buf); else append_qtext(buf);
! 1639: sa_p=sa_p->a_next;
! 1640: }
! 1641: }
! 1642: }
! 1643:
! 1644: void display_last_subjective(int q_idx)
! 1645: {
! 1646: char *buf;
! 1647: char *answer;
! 1648: #ifdef CGI_DBUG
! 1649: fprintf(g_cgi,"Enter display_last_subjective() [%d]\n",q_idx); fflush(g_cgi);
! 1650: #endif /* CGI_DBUG */
! 1651: answer=capa_get_subjective(g_login_set,q_idx+1,g_student_number);
! 1652: if (answer==NULL) return;
! 1653: #ifdef CGI_DBUG
! 1654: fprintf(g_cgi,"Found answer %s\n",answer); fflush(g_cgi);
! 1655: #endif /* CGI_DBUG */
! 1656: buf=capa_malloc(MAX_BUFFER_SIZE+strlen(answer),1);
! 1657: /* don't need to stick in a last since we always get it from the files */
! 1658: /* sprintf(buf,"<input type=\"hidden\" name=\"LAST%02d\" value=\"%s\">\n",q_idx+1,answer);*/
! 1659: append_qtext(buf);
! 1660: append_qtext("<b>Current Submission:</b><br>\n");
! 1661: append_qtext("<TABLE BORDER=1 CELLSPACING=0>\n<TR><TD>\n");
! 1662: append_qtext("<PRE>");
! 1663: append_qtext(answer);
! 1664: append_qtext("</PRE>");
! 1665: append_qtext("</TD></TR></TABLE>\n");
! 1666: capa_mfree(buf);
! 1667: capa_mfree(answer);
! 1668: }
! 1669:
! 1670: void create_answer_area(Problem_t *p,int q_idx)
! 1671: {
! 1672: int ii;
! 1673: char buf[MAX_BUFFER_SIZE];
! 1674:
! 1675: #ifdef CGI_DBUG
! 1676: fprintf(g_cgi,"Enter create_answer_area() [%d]\n",q_idx); fflush(g_cgi);
! 1677: #endif /* CGI_DBUG */
! 1678:
! 1679: if ( p->ans_type==ANSWER_IS_SUBJECTIVE ) {
! 1680: display_last_subjective(q_idx);
! 1681: }
! 1682: if ( p->show_ans_box ) {
! 1683: if ( p->ans_op == ANS_AND ) {
! 1684: for(ii=0;ii<p->ans_cnt;ii++) {
! 1685: if (p->ans_type == ANSWER_IS_FORMULA) {
! 1686: sprintf(buf,"<p><B>Answer %d of %d:</B><input size=80 name=\"INPUT%02d,%02d\" value=\"\">\n",ii+1,p->ans_cnt,q_idx+1,ii+1);
! 1687: } else {
! 1688: sprintf(buf,"<p><B>Answer %d of %d:</B><input name=\"INPUT%02d,%02d\" value=\"\">\n",ii+1,p->ans_cnt,q_idx+1,ii+1);
! 1689: }
! 1690: append_qtext(buf);
! 1691: }
! 1692: } else { /* single answer, or /OR answers, or subjective answer */
! 1693: if (p->ans_type == ANSWER_IS_SUBJECTIVE ) {
! 1694: sprintf(buf,"<p><B>Answer:</B><br><TEXTAREA name=\"INPUT%02d\" rows=\"15\" cols=\"80\"></TEXTAREA>\n",q_idx+1);
! 1695: } else {
! 1696: if (p->ans_type == ANSWER_IS_FORMULA) {
! 1697: sprintf(buf,"<p><B>Answer:</B><input size=80 name=\"INPUT%02d\" value=\"\">\n",q_idx+1);
! 1698: } else {
! 1699: sprintf(buf,"<p><B>Answer:</B><input name=\"INPUT%02d\" value=\"\">\n",q_idx+1);
! 1700: }
! 1701: }
! 1702: append_qtext(buf);
! 1703: }
! 1704: }
! 1705: append_qtext("<input type=\"submit\" value=\"Submit All Answers\" >\n");
! 1706: if ( p->ans_type!=ANSWER_IS_SUBJECTIVE ) {
! 1707: display_last_answer(q_idx);
! 1708: }
! 1709: }
! 1710:
! 1711: void
! 1712: print_response(char pcr,char u_db,int q_idx,Problem_t *p)
! 1713: {
! 1714: int a_tpe;
! 1715: char *c_ans,*response,*answered="Answered",*nycorrect="Not yet correct";
! 1716: int t_tpe;
! 1717: double tol;
! 1718: int sig_l;
! 1719: int sig_u;
! 1720: char *a_fmt, *c_answer_str;
! 1721: int tries;
! 1722:
! 1723: char buf[MAX_BUFFER_SIZE];
! 1724:
! 1725: a_tpe = p->ans_type;
! 1726: c_ans = p->answer;
! 1727: t_tpe = p->tol_type;
! 1728: tol = p->tolerance;
! 1729: sig_l = p->sig_lbound;
! 1730: sig_u = p->sig_ubound;
! 1731: a_fmt = p->ans_fmt;
! 1732: tries = p->tries;
! 1733: response=nycorrect;
! 1734:
! 1735: #ifdef CGI_DBUG
! 1736: fprintf(g_cgi,"Enter print_response() [%c]\n",u_db); fflush(g_cgi);
! 1737: #endif /* CGI_DBUG */
! 1738: if( pcr == '0' || a_tpe==ANSWER_IS_SUBJECTIVE ) { /* not hand-graded question */
! 1739: switch(u_db) { /* this is from the user record */
! 1740: case 'Y':
! 1741: c_answer_str = answers_string(ANSWER_STRING_MODE, p);
! 1742: sprintf(buf,"<p><tt>Correct, computer gets: %s</tt>\n", c_answer_str);
! 1743: append_qtext(buf);
! 1744: capa_mfree((char *)c_answer_str);
! 1745: break;
! 1746: case 'y':
! 1747: append_qtext("<p><tt>Hand-graded Correct</tt>\n");
! 1748: break;
! 1749: case '-':
! 1750: if(g_stu_ans_pp[q_idx+1] == NULL ) {
! 1751: create_answer_area(p,q_idx);
! 1752: } else {
! 1753: check_user_ans(q_idx,p);
! 1754: }
! 1755: break;
! 1756: case 'E':
! 1757: case 'e': append_qtext("<p><tt>Excused</tt>\n"); break;
! 1758: case 'n': append_qtext("<p><tt>Hand-graded Incorrect</tt>\n"); break;
! 1759: case '0': case '1': case '2': case '3': case '4':
! 1760: case '5': case '6': case '7': case '8': case '9':
! 1761: response=answered;
! 1762: case 'N':
! 1763: if(g_stu_ans_pp[q_idx+1] == NULL ) {
! 1764: if( g_tried[q_idx] < tries) {
! 1765: create_answer_area(p,q_idx);
! 1766: if( tries - g_tried[q_idx] == 1) {
! 1767: sprintf(buf,"<br><tt>%s, ONE try left!!</tt>\n",response);
! 1768: }else{
! 1769: sprintf(buf,"<br><tt>%s, tries %d/%d</tt>\n",response,
! 1770: g_tried[q_idx],tries);
! 1771: }
! 1772: append_qtext(buf);
! 1773: }else{
! 1774: if (p->ans_type==ANSWER_IS_SUBJECTIVE)
! 1775: display_last_answer(q_idx);
! 1776: else
! 1777: display_last_subjective(q_idx);
! 1778: append_qtext("<br><tt>No more tries.</tt>\n");
! 1779: }
! 1780: } else { /* answering this question */
! 1781: if( g_tried[q_idx] < tries) {
! 1782: check_user_ans(q_idx,p);
! 1783: } else {
! 1784: if (p->ans_type==ANSWER_IS_SUBJECTIVE)
! 1785: display_last_answer(q_idx);
! 1786: else
! 1787: display_last_subjective(q_idx);
! 1788: append_qtext("<br><tt>No more tries.</tt>\n");
! 1789: }
! 1790: }
! 1791: break;
! 1792: }
! 1793: } else {
! 1794: append_qtext("<p><tt>Question to be Graded Manually.</tt>\n");
! 1795:
! 1796: }
! 1797:
! 1798: }
! 1799:
! 1800: void
! 1801: print_inhibited_response(char pcr,char u_db,int q_idx,Problem_t *p)
! 1802: {
! 1803: int a_tpe;
! 1804: char *c_ans;
! 1805: int t_tpe;
! 1806: double tol;
! 1807: int sig_l;
! 1808: int sig_u;
! 1809: char *a_fmt;
! 1810: int tries;
! 1811: char buf[MAX_BUFFER_SIZE];
! 1812:
! 1813: a_tpe = p->ans_type;
! 1814: c_ans = p->answer;
! 1815: t_tpe = p->tol_type;
! 1816: tol = p->tolerance;
! 1817: sig_l = p->sig_lbound;
! 1818: sig_u = p->sig_ubound;
! 1819: a_fmt = p->ans_fmt;
! 1820: tries = p->tries;
! 1821:
! 1822: #ifdef CGI_DBUG
! 1823: fprintf(g_cgi,"Enter print_inhibited_response() [%c]\n",u_db); fflush(g_cgi);
! 1824: #endif /* CGI_DBUG */
! 1825:
! 1826: if( pcr == '0' || a_tpe==ANSWER_IS_SUBJECTIVE ) { /* not hand-graded question */
! 1827: switch(u_db) { /* this is from the user record */
! 1828: case '-':
! 1829: if(g_stu_ans_pp[q_idx+1] == NULL ) {
! 1830: create_answer_area(p,q_idx);
! 1831: } else {
! 1832: check_inhibited_user_ans(q_idx,p);
! 1833: }
! 1834: break;
! 1835: case 'Y': case 'y':
! 1836: case 'E': case 'e':
! 1837: case 'n': case 'N':
! 1838: case '0': case '1': case '2': case '3': case '4':
! 1839: case '5': case '6': case '7': case '8': case '9':
! 1840: if(g_stu_ans_pp[q_idx+1] == NULL ) {
! 1841: if( g_tried[q_idx] < tries) {
! 1842: create_answer_area(p,q_idx);
! 1843: if( tries - g_tried[q_idx] == 1) {
! 1844: append_qtext("<br><tt>Answered, ONE try left!!</tt>\n");
! 1845: }else{
! 1846: sprintf(buf,"<br><tt>Answered, tries %d/%d</tt>\n",g_tried[q_idx],tries);
! 1847: append_qtext(buf);
! 1848: }
! 1849: }else{
! 1850: if (p->ans_type==ANSWER_IS_SUBJECTIVE)
! 1851: display_last_answer(q_idx);
! 1852: else
! 1853: display_last_subjective(q_idx);
! 1854: append_qtext("<br><tt>Answered,No more tries.</tt>\n");
! 1855: }
! 1856: } else { /* answering this question */
! 1857: if( g_tried[q_idx] < tries) {
! 1858: check_inhibited_user_ans(q_idx,p);
! 1859: } else {
! 1860: if (p->ans_type==ANSWER_IS_SUBJECTIVE)
! 1861: display_last_answer(q_idx);
! 1862: else
! 1863: display_last_subjective(q_idx);
! 1864: append_qtext("<br><tt>Answered, No more tries.</tt>\n");
! 1865: }
! 1866: }
! 1867: break;
! 1868: }
! 1869: } else {
! 1870: append_qtext("<p><tt>Question to be Graded Manually.</tt>\n");
! 1871: }
! 1872: }
! 1873:
! 1874: /* returns a -1 if there were not enough answers, otherwise the number of responses
! 1875: for the question is returned*/
! 1876: int gather_answers(char ***ans,int q_idx,Problem_t *p)
! 1877: {
! 1878: int cnt;
! 1879: if(p->ans_op==ANS_AND) {
! 1880: int i; StudentAnswer_t *sa_p;
! 1881: *ans=(char**)capa_malloc(p->ans_cnt,1);
! 1882: sa_p= g_stu_ans_pp[q_idx+1];
! 1883: for(i=0;((i<p->ans_cnt)&&(sa_p));i++){
! 1884: ans[0][i]=sa_p->a_str;
! 1885: sa_p=sa_p->a_next;
! 1886: }
! 1887: cnt=p->ans_cnt;
! 1888: if (i<p->ans_cnt) return -1;
! 1889: } else {
! 1890: *ans=(char**)capa_malloc(p->ans_cnt,1);
! 1891: ans[0][0]=g_stu_ans_pp[q_idx+1]->a_str;
! 1892: cnt=1;
! 1893: }
! 1894: return cnt;
! 1895: }
! 1896:
! 1897: void
! 1898: log_user_ans(int q_idx,Problem_t *p)
! 1899: {
! 1900: char **ans;
! 1901: int cnt;
! 1902: if (p->ans_type==ANSWER_IS_SUBJECTIVE) {
! 1903: capa_set_subjective(g_login_set,q_idx+1,g_student_number,
! 1904: g_stu_ans_pp[q_idx+1]->a_str);
! 1905: } else {
! 1906: if (-1 != (cnt=gather_answers(&ans,q_idx,p))) {
! 1907: switch( capa_check_answers(p,ans,cnt) ) {
! 1908: case EXACT_ANS: g_log_string[q_idx]='Y'; break;
! 1909: case APPROX_ANS: g_log_string[q_idx]='Y'; break;
! 1910: case SIG_FAIL: g_log_string[q_idx]='S'; break;
! 1911: case UNIT_FAIL: g_log_string[q_idx]='U'; break;
! 1912: case UNIT_NOTNEEDED: g_log_string[q_idx]='U'; break;
! 1913: case NO_UNIT: g_log_string[q_idx]='u'; break;
! 1914: case BAD_FORMULA: g_log_string[q_idx]='F'; break;
! 1915: case INCORRECT: g_log_string[q_idx]='N'; break;
! 1916: }
! 1917: }
! 1918: }
! 1919: }
! 1920:
! 1921: void submit_subjective(int q_idx,Problem_t *p)
! 1922: {
! 1923: char buf[MAX_BUFFER_SIZE];
! 1924: if (capa_set_subjective(g_login_set,q_idx+1,g_student_number,
! 1925: g_stu_ans_pp[q_idx+1]->a_str)<0){
! 1926: sprintf(buf,"<p><tt>Falied to record last submission.</tt><br>\n");
! 1927: g_tried[q_idx]--;
! 1928: } else {
! 1929: sprintf(buf,"<p><tt>Current submission recorded.</tt><br>\n");
! 1930: g_new_answerdb[q_idx] = '0';
! 1931: g_log_string[q_idx]='A';
! 1932: }
! 1933: append_qtext(buf);
! 1934: if (g_tried[q_idx]<p->tries) {
! 1935: create_answer_area(p,q_idx);
! 1936: if( p->tries - g_tried[q_idx] == 1) {
! 1937: append_qtext("<br><tt>ONE try left</tt>\n");
! 1938: }else{
! 1939: sprintf(buf,"<br><tt>tries %d/%d</tt>\n",g_tried[q_idx],p->tries);
! 1940: append_qtext(buf);
! 1941: }
! 1942: }else{
! 1943: display_last_answer(q_idx);
! 1944: append_qtext("<br><tt>No more tries.</tt>\n");
! 1945: }
! 1946: }
! 1947:
! 1948: void
! 1949: check_user_ans(int q_idx,Problem_t *p)
! 1950: {
! 1951: int a_tpe,cnt;
! 1952: char *c_ans,**ans;
! 1953: int t_tpe;
! 1954: double tol;
! 1955: int sig_l;
! 1956: int sig_u;
! 1957: char *a_fmt;
! 1958: int tries;
! 1959: char buf[MAX_BUFFER_SIZE];
! 1960:
! 1961: a_tpe = p->ans_type;
! 1962: t_tpe = p->tol_type;
! 1963: tol = p->tolerance;
! 1964: sig_l = p->sig_lbound;
! 1965: sig_u = p->sig_ubound;
! 1966: a_fmt = p->ans_fmt;
! 1967: tries = p->tries;
! 1968:
! 1969: #ifdef CGI_DBUG
! 1970: fprintf(g_cgi,"Enter check_user_ans() anstype=%d\n",a_tpe); fflush(g_cgi);
! 1971: #endif /* CGI_DBUG */
! 1972:
! 1973: g_tried[q_idx]++;
! 1974:
! 1975: #ifdef CGI_DBUG
! 1976: fprintf(g_cgi,"Call capa_check_answer() with [%s]\n",g_stu_ans_pp[q_idx+1]->a_str); fflush(g_cgi);
! 1977: #endif /* CGI_DBUG */
! 1978: if (a_tpe==ANSWER_IS_SUBJECTIVE) {
! 1979: submit_subjective(q_idx,p);
! 1980: return;
! 1981: }
! 1982:
! 1983: cnt=gather_answers(&ans,q_idx,p);
! 1984: if (cnt == -1) {
! 1985: g_tried[q_idx]--;
! 1986: create_answer_area(p,q_idx);
! 1987: if( (tries - g_tried[q_idx]) == 1 ) {
! 1988: append_qtext("<br><tt>Not all answers submitted, ONE try left!!</tt>\n");
! 1989: }else{
! 1990: sprintf(buf,"<br><tt>Not all answers submitted, tries %d/%d.</tt>\n",
! 1991: g_tried[q_idx],tries);
! 1992: append_qtext(buf);
! 1993: }
! 1994: return;
! 1995: }
! 1996:
! 1997: switch( capa_check_answers(p,ans,cnt) ) {
! 1998: case EXACT_ANS:
! 1999: case APPROX_ANS:
! 2000: c_ans=answers_string(ANSWER_STRING_MODE, p);
! 2001: sprintf(buf,"<p><tt>Yes, Computer gets: %s</tt>\n", c_ans);
! 2002: append_qtext(buf);
! 2003: g_new_answerdb[q_idx] = 'Y';
! 2004: g_log_string[q_idx]='Y';
! 2005: capa_mfree(c_ans);
! 2006: break;
! 2007: case SIG_FAIL:
! 2008: create_answer_area(p,q_idx);
! 2009: g_tried[q_idx]--; /* don't count as a try */
! 2010: sprintf(buf,"<br><tt>Please adjust significant figures, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2011: append_qtext(buf);
! 2012: g_new_answerdb[q_idx] = 'N';
! 2013: g_log_string[q_idx]='S';
! 2014: break;
! 2015: case UNIT_FAIL:
! 2016: create_answer_area(p,q_idx);
! 2017: g_tried[q_idx]--; /* don't count as a try */
! 2018: sprintf(buf,"<br><tt>Units incorrect, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2019: append_qtext(buf);
! 2020: g_new_answerdb[q_idx] = 'N';
! 2021: g_log_string[q_idx]='U';
! 2022: break;
! 2023: case UNIT_NOTNEEDED:
! 2024: create_answer_area(p,q_idx);
! 2025: g_tried[q_idx]--; /* don't count as a try */
! 2026: if(tries > 0) {
! 2027: sprintf(buf,"<br><tt>Only a number required, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2028: append_qtext(buf);
! 2029: }
! 2030: g_new_answerdb[q_idx] = 'N';
! 2031: g_log_string[q_idx]='U';
! 2032: break;
! 2033: case NO_UNIT:
! 2034: create_answer_area(p,q_idx);
! 2035: g_tried[q_idx]--; /* don't count as a try */
! 2036: sprintf(buf,"<br><tt>Units required, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2037: append_qtext(buf);
! 2038: g_new_answerdb[q_idx] = 'N';
! 2039: g_log_string[q_idx]='u';
! 2040: break;
! 2041: case BAD_FORMULA:
! 2042: create_answer_area(p,q_idx);
! 2043: g_tried[q_idx]--; /* don't count as a try */
! 2044: sprintf(buf,"<br><tt>Unable to understand formula, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2045: append_qtext(buf);
! 2046: g_new_answerdb[q_idx] = 'N';
! 2047: g_log_string[q_idx]='F';
! 2048: break;
! 2049: case INCORRECT:
! 2050: if( g_tried[q_idx] < tries ) {
! 2051: create_answer_area(p,q_idx);
! 2052: if( (tries - g_tried[q_idx]) == 1 ) {
! 2053: append_qtext("<br><tt>Incorrect, ONE try left!!</tt>\n");
! 2054: }else{
! 2055: sprintf(buf,"<br><tt>Incorrect, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2056: append_qtext(buf);
! 2057: }
! 2058: } else {
! 2059: display_last_answer(q_idx);
! 2060: append_qtext("<br><tt>Incorrect, no more tries.</tt>\n");
! 2061: }
! 2062: g_new_answerdb[q_idx] = 'N';
! 2063: g_log_string[q_idx]='N';
! 2064: break;
! 2065: }
! 2066: }
! 2067:
! 2068: void
! 2069: check_inhibited_user_ans(int q_idx,Problem_t *p)
! 2070: {
! 2071: int a_tpe,cnt;
! 2072: char *c_ans,**ans;
! 2073: int t_tpe;
! 2074: double tol;
! 2075: int sig_l;
! 2076: int sig_u;
! 2077: char *a_fmt;
! 2078: int tries;
! 2079: char buf[MAX_BUFFER_SIZE];
! 2080:
! 2081: a_tpe = p->ans_type;
! 2082: c_ans = p->answer;
! 2083: t_tpe = p->tol_type;
! 2084: tol = p->tolerance;
! 2085: sig_l = p->sig_lbound;
! 2086: sig_u = p->sig_ubound;
! 2087: a_fmt = p->ans_fmt;
! 2088: tries = p->tries;
! 2089:
! 2090: #ifdef CGI_DBUG
! 2091: fprintf(g_cgi,"Enter check_inhibited_user_ans() anstype=%d\n",a_tpe); fflush(g_cgi);
! 2092: #endif /* CGI_DBUG */
! 2093:
! 2094: g_tried[q_idx]++;
! 2095:
! 2096: #ifdef CGI_DBUG
! 2097: fprintf(g_cgi,"Call capa_check_answer() with [%s]\n",g_stu_ans_pp[q_idx+1]->a_str);
! 2098: fflush(g_cgi);
! 2099: #endif /* CGI_DBUG */
! 2100: if (a_tpe==ANSWER_IS_SUBJECTIVE) {
! 2101: submit_subjective(q_idx,p);
! 2102: return;
! 2103: }
! 2104:
! 2105: cnt=gather_answers(&ans,q_idx,p);
! 2106: if (cnt == -1) {
! 2107: g_tried[q_idx]--;
! 2108: create_answer_area(p,q_idx);
! 2109: if( (tries - g_tried[q_idx]) == 1 ) {
! 2110: append_qtext("<br><tt>Not all answers submitted, ONE try left!!</tt>\n");
! 2111: }else{
! 2112: sprintf(buf,"<br><tt>Not all answers submitted, tries %d/%d.</tt>\n",
! 2113: g_tried[q_idx],tries);
! 2114: append_qtext(buf);
! 2115: }
! 2116: return;
! 2117: }
! 2118:
! 2119: switch( capa_check_answers(p,ans,cnt) ) {
! 2120: case EXACT_ANS:
! 2121: case APPROX_ANS:
! 2122: g_new_answerdb[q_idx] = 'Y';
! 2123: g_log_string[q_idx]='Y';
! 2124: break;
! 2125: case SIG_FAIL:
! 2126: g_new_answerdb[q_idx] = 'N';
! 2127: g_log_string[q_idx]='S';
! 2128: break;
! 2129: case UNIT_FAIL:
! 2130: g_new_answerdb[q_idx] = 'N';
! 2131: g_log_string[q_idx]='U';
! 2132: break;
! 2133: case UNIT_NOTNEEDED:
! 2134: g_new_answerdb[q_idx] = 'N';
! 2135: g_log_string[q_idx]='U';
! 2136: break;
! 2137: case NO_UNIT:
! 2138: g_new_answerdb[q_idx] = 'N';
! 2139: g_log_string[q_idx]='u';
! 2140: break;
! 2141: case BAD_FORMULA:
! 2142: g_new_answerdb[q_idx] = 'N';
! 2143: g_log_string[q_idx]='F';
! 2144: break;
! 2145: case INCORRECT:
! 2146: g_new_answerdb[q_idx] = 'N';
! 2147: g_log_string[q_idx]='N';
! 2148: break;
! 2149: }
! 2150:
! 2151: if( g_tried[q_idx] < tries ) {
! 2152: create_answer_area(p,q_idx);
! 2153: if( (tries - g_tried[q_idx]) == 1 ) {
! 2154: append_qtext("<br><tt>Answered, ONE try left!!</tt>\n");
! 2155: }else{
! 2156: sprintf(buf,"<br><tt>Answered, tries %d/%d.</tt>\n",g_tried[q_idx],tries);
! 2157: append_qtext(buf);
! 2158: }
! 2159: } else {
! 2160: display_last_answer(q_idx);
! 2161: append_qtext("<br><tt>Answered, no more tries.</tt>\n");
! 2162: }
! 2163: }
! 2164:
! 2165: void /* RETURNS: (nothing) */
! 2166: print_summary(class_dir,class,student_number,pin,set)
! 2167: char *class_dir;char *class;char *student_number;int pin;int set;
! 2168: { /* LOCAL VARIABLES: */
! 2169: int set_idx, /* Set counter */
! 2170: i, /* Question counter */
! 2171: set_score, /* Score on a set */
! 2172: term_score=0, /* Total points received */
! 2173: term_valid=0, /* Total points possible */
! 2174: result;
! 2175: T_entry entry; /* Database entry for a set */
! 2176: char buf[MAX_BUFFER_SIZE]; /* Output line buffer */
! 2177: char buf2[MAX_BUFFER_SIZE]; /* Output line buffer */
! 2178: T_header header; /* Problem set header */
! 2179: int question_cnt,valid_wgt, rate,configResult,
! 2180: status_line_length=DEFAULT_STATUS_LINE_LENGTH,row;
! 2181: char class_fullpath[ONE_K],*serverName;
! 2182:
! 2183: serverName=getenv("SERVER_NAME");
! 2184: if (!serverName) {
! 2185: fprintf(stdout,"Enviroment variable SERVER_NAME not set.\n");
! 2186: fprintf(stdout,"Unable to complete actions.\n");
! 2187: return;
! 2188: }
! 2189:
! 2190: sprintf(class_fullpath,"%s/%s",class_dir,class);
! 2191: chdir(class_fullpath);
! 2192: configResult=read_capa_config("web_status_line_length",buf);
! 2193: if (configResult != 0 && configResult != -1 ) {
! 2194: if (sscanf(buf,"%d",&status_line_length)==0) {
! 2195: status_line_length=DEFAULT_STATUS_LINE_LENGTH;
! 2196: }
! 2197: } else {
! 2198: status_line_length=DEFAULT_STATUS_LINE_LENGTH;
! 2199: }
! 2200:
! 2201: printf("<TABLE>\n<TR><TD></TD>\n");
! 2202: for(i=0;i<status_line_length;i++) {
! 2203: printf("<TD align=center valign=bottom>%d</TD>\n",i+1);
! 2204: }
! 2205: printf("</TR>");
! 2206:
! 2207: for (set_idx=1; set_idx<=set; set_idx++) {
! 2208: g_inhibit_response=capa_check_option(OPTION_INHIBIT_RESPONSE,set_idx,
! 2209: g_student_data.s_sec);
! 2210: if (g_inhibit_response > 0) continue;
! 2211:
! 2212: if (capa_get_header(&header,set_idx)) return;
! 2213: capa_get_entry(&entry,student_number,set_idx);
! 2214: sscanf(header.num_questions,"%d", &(question_cnt) );
! 2215: valid_wgt = 0; set_score = 0;
! 2216: header.weight[question_cnt] = '\0';
! 2217: header.partial_credit[question_cnt] = '\0';
! 2218: for (i=0; i<question_cnt; i++) {
! 2219: valid_wgt += (header.weight[i] - '0');
! 2220: if((entry.answers[i]=='Y') || (entry.answers[i]=='y'))
! 2221: set_score += (header.weight[i]-'0');
! 2222: if((entry.answers[i]=='E') || (entry.answers[i]=='e'))
! 2223: valid_wgt -= (header.weight[i] - '0');
! 2224: if((entry.answers[i]>='0') && (entry.answers[i]<='9'))
! 2225: set_score += (entry.answers[i] - '0');
! 2226: }
! 2227: term_valid += valid_wgt;
! 2228: term_score += set_score;
! 2229:
! 2230: if( valid_wgt != 0 ) {
! 2231: rate = 100*set_score / valid_wgt;
! 2232: printf("<TR><TD nowrap align=center valign=bottom>set <B>%d</B>, %d/%d(%d %%) </TD>",set_idx,set_score,valid_wgt,rate);
! 2233: } else {
! 2234: printf("<TR><TD nowrap align=center valign=bottom>set <B>%d</B>, 0/0(0 %%) </TD>",set_idx);
! 2235: }
! 2236: for(row=0;row<=(question_cnt/status_line_length);row++) {
! 2237: for(i=(row*status_line_length);
! 2238: ((i<question_cnt)&&(i<((row+1)*status_line_length))); i++) {
! 2239: if (i != 0 && (!(i%status_line_length))) { printf("</TR><TD></TD>"); }
! 2240: printf("<TD align=center valign=bottom><tt>%c</tt></TD>\n",entry.answers[i]);
! 2241: }
! 2242: printf("</TR>\n<TR><TD></TD>");
! 2243: for(i=(row*status_line_length);
! 2244: ((i<question_cnt)&&(i<((row+1)*status_line_length))); i++) {
! 2245: if (i != 0 && (!(i%status_line_length))) { printf("</TR><TD></TD>"); }
! 2246: printf("<TD align=center valign=bottom><tt>%c</tt></TD>\n",header.weight[i]);
! 2247: }
! 2248: }
! 2249: printf("</TR>");
! 2250: capa_mfree(header.weight);
! 2251: capa_mfree(header.partial_credit);
! 2252: }
! 2253: printf("\n</TABLE>\n<hr>\n");
! 2254: /* SHOW TOTALS */
! 2255: /* if capalogin_show_summary_score is set to none don't show it */
! 2256: sprintf(buf,"%d sets, total = %3d/%3d (%d%%)\n", set, term_score, term_valid, 100*term_score/term_valid);
! 2257: result=read_capa_config("capalogin_show_summary_score",buf2);
! 2258: if (result != 0 && result != -1) {
! 2259: if (strcasecmp(buf2,"none")==0) {
! 2260: } else {
! 2261: printf("%s",buf);
! 2262: }
! 2263: } else {
! 2264: printf("%s",buf);
! 2265: }
! 2266:
! 2267: printf("<TABLE cellpadding=0 cellspacing=0 border=0>\n<TR><TD>");
! 2268: printf("<form method=\"post\" ");
! 2269: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 2270: printf("%s\n", buf);
! 2271: printf("<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 2272: printf("<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 2273: printf("<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 2274: printf("<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_CHECKIN);
! 2275: printf("<input type=\"submit\" value=\"Main menu\" ></form></TD>\n");
! 2276: printf("<TD><form method=\"get\" action=\"http://%s/CAPA/class.html\">",serverName);
! 2277: printf("<input type=\"button\" value=\"Exit\" onclick=\"window.close()\"></form></TD>");
! 2278: printf("\n</TABLE>\n");
! 2279: }
! 2280:
! 2281:
! 2282: void
! 2283: process_mode(int mode) {
! 2284:
! 2285: #ifdef CGI_DBUG
! 2286: fprintf(g_cgi,"entered process_mode[%d]\n",mode); fflush(g_cgi);
! 2287: #endif /* CGI_DBUG */
! 2288: g_qchar_cnt=g_schar_cnt=0;
! 2289: g_qsize=TEXT_BUF_SIZE*sizeof(char);
! 2290: g_ssize=STATUS_BUF_SIZE*sizeof(char);
! 2291: g_question_txt=capa_malloc(TEXT_BUF_SIZE,sizeof(char));
! 2292: g_status_txt =capa_malloc(STATUS_BUF_SIZE,sizeof(char));
! 2293: #ifdef CGI_DBUG
! 2294: fprintf(g_cgi,"alloced everything\n"); fflush(g_cgi);
! 2295: #endif /* CGI_DBUG */
! 2296: if( mode == VIEW_PREVIOUS_MODE ) {
! 2297: print_quizz(g_cpath,g_cowner,g_class_name,g_student_number, g_entered_pin, g_vset,mode);
! 2298: } else if( mode == TRY_SET_MODE ) {
! 2299: print_quizz(g_cpath,g_cowner,g_class_name,g_student_number, g_entered_pin, g_login_set,mode);
! 2300: } else {
! 2301: print_quizz(g_cpath,g_cowner,g_class_name,g_student_number,g_entered_pin,g_login_set,CHECK_ANSWER_MODE);
! 2302: }
! 2303: g_status_txt[g_schar_cnt]=0;
! 2304: g_question_txt[g_qchar_cnt]=0;
! 2305: if( g_schar_cnt != 0 ) {
! 2306: fprintf(stdout,"%s",g_status_txt);
! 2307: #ifdef CGI_DBUG
! 2308: fprintf(g_cgi,"print status [%s]\n",g_status_txt); fflush(g_cgi);
! 2309: #endif /* CGI_DBUG */
! 2310: }
! 2311: if( g_qchar_cnt != 0) {
! 2312: fprintf(stdout,"%s",g_question_txt);
! 2313: #ifdef CGI_DBUG
! 2314: fprintf(g_cgi,"print question [%s]\n",g_question_txt); fflush(g_cgi);
! 2315: #endif /* CGI_DBUG */
! 2316: }
! 2317: if( g_schar_cnt != 0 ) {
! 2318: fprintf(stdout,"%s",g_status_txt);
! 2319: }
! 2320: fflush(stdout);
! 2321: capa_mfree(g_status_txt);
! 2322: capa_mfree(g_question_txt);
! 2323:
! 2324: }
! 2325:
! 2326: /* mode could be exam summary, show or not show percentage */
! 2327: /* quiz summary, show or not show percentage */
! 2328: void
! 2329: process_summary(int mode)
! 2330: {
! 2331: int outcome;
! 2332: int i, len;
! 2333: char *c_name;
! 2334: char c_path[512];
! 2335:
! 2336: outcome = check_exam_quiz_path();
! 2337: if( (mode == M_EXAMSUMM) && (outcome & 1) ) { /* exam summary */
! 2338: c_name = rindex(g_exam_path,'/');
! 2339: c_name++;
! 2340: i = strlen(c_name);
! 2341: len = strlen(g_exam_path) - i - 1;
! 2342: for(i=0;i<len;i++) {
! 2343: c_path[i]=g_exam_path[i];
! 2344: }
! 2345: c_path[len]=0;
! 2346: print_summary(c_path,c_name,g_student_number, g_entered_pin, g_exam_set);
! 2347: }
! 2348: if( (mode == M_QUIZSUMM) && (outcome & 2) ) { /* quiz summary */
! 2349: c_name = rindex(g_quiz_path,'/');
! 2350: c_name++;
! 2351: i = strlen(c_name);
! 2352: len = strlen(g_quiz_path) - i - 1;
! 2353: for(i=0;i<len;i++) {
! 2354: c_path[i]=g_quiz_path[i];
! 2355: }
! 2356: c_path[len]=0;
! 2357: print_summary(c_path,c_name,g_student_number, g_entered_pin, g_quiz_set);
! 2358: }
! 2359:
! 2360: }
! 2361:
! 2362: /* ---------------- JAVA TScore.class page print out ----------------- */
! 2363: void /* RETURNS: (nothing) */
! 2364: print_termscore_page(class_dir,class,student_number,pin,set,out)
! 2365: char *class_dir;char *class;char *student_number;int pin;int set; /* student login set */
! 2366: FILE *out;
! 2367: { /* LOCAL VARIABLES: */
! 2368: int set_idx, /* Set counter */
! 2369: i, /* Question counter */
! 2370: set_score, /* Score on a set */
! 2371: term_score=0, /* Total points received */
! 2372: term_valid=0, /* Total points possible */
! 2373: result;
! 2374: T_entry entry; /* Database entry for a set */
! 2375: char buf[MAX_BUFFER_SIZE]; /* Output line buffer */
! 2376: char buf2[MAX_BUFFER_SIZE]; /* Output line buffer */
! 2377: T_header header; /* Problem set header */
! 2378: int question_cnt,valid_wgt, rate,configResult,
! 2379: status_line_length=DEFAULT_STATUS_LINE_LENGTH,row;
! 2380: char class_fullpath[ONE_K],*serverName;
! 2381: int hw_c, hw_r, qz_c, qz_r, fs, homework_count, quiz_count;
! 2382: int ex_c, epc_c;
! 2383: float hw_w, qz_w, ex_w, fe_w, pc_w;
! 2384: int idx, entry_count, tmp_len;
! 2385: float *S, *F;
! 2386: int *X;
! 2387: char *capa_server, *qz_p, *ex_p, *epc_p;
! 2388: int max_set[4];
! 2389: char **c_path_pp;
! 2390:
! 2391:
! 2392:
! 2393: serverName=getenv("SERVER_NAME");
! 2394: if (!serverName) {
! 2395: fprintf(out,"Enviroment variable SERVER_NAME not set.\n");
! 2396: fprintf(out,"Unable to complete actions.\n");
! 2397: return;
! 2398: }
! 2399:
! 2400: sprintf(class_fullpath,"%s/%s",class_dir,class);
! 2401: chdir(class_fullpath);
! 2402:
! 2403: /*
! 2404: change the working director to the major homework directory and begin to
! 2405: read off the remaining path informations from this capa.config file
! 2406: homework_path =
! 2407: quiz_path =
! 2408: exam_path =
! 2409: correction_path =
! 2410: homework_weight = 0.3
! 2411: quiz_weight = 0.7
! 2412: exam_weight = 0.3
! 2413: final_weight = 0.35
! 2414: correction_weight = 0.3
! 2415: final_exam_set_number = 4
! 2416: homework_count = 12
! 2417: quiz_count = 24
! 2418:
! 2419: */
! 2420:
! 2421: configResult=read_capa_config("capa_server",buf);
! 2422: if (configResult != 0 && configResult != -1 ) {
! 2423: tmp_len = strlen(buf) + 1;
! 2424: capa_server = (char *)capa_malloc( tmp_len, sizeof(char));
! 2425: sprintf(capa_server,"%s",buf);
! 2426: } else { /* if capa_server is not set then we won't do anything further */
! 2427: fprintf(out,"Parameter: capa_server in capa.config file are not properly set.\n");
! 2428: return ;
! 2429: }
! 2430: if( get_termscore_params(&hw_w,&qz_w,&ex_w,&fe_w,&pc_w,&homework_count,&quiz_count,&fs) == -1 ) {
! 2431: fprintf(out,"Parameters in capa.config file are not properly set.\n");
! 2432: fprintf(out," such as homework_weight, quiz_weight, exam_weight, final_weight, correction_weight.\n");
! 2433:
! 2434: return;
! 2435: }
! 2436: c_path_pp = (char **)capa_malloc( 4, sizeof(char *));
! 2437: tmp_len = strlen(class_fullpath) + 1;
! 2438: c_path_pp[0] = (char *)capa_malloc(tmp_len,sizeof(char));
! 2439: sprintf(c_path_pp[0],"%s",class_fullpath); /* c_path_pp[0] should always be there */
! 2440:
! 2441: entry_count = fs*2 + 1;
! 2442: S = (float *)capa_malloc( ((fs+1)*2), sizeof(float));
! 2443: F = (float *)capa_malloc( ((fs+1)*2), sizeof(float));
! 2444: X = (int *)capa_malloc( ((fs+1)*2), sizeof(int));
! 2445:
! 2446: max_set[0] = set; /* the login set number */
! 2447: hw_c = max_set[0];
! 2448: hw_r = homework_count - set;
! 2449:
! 2450:
! 2451: configResult=read_capa_config("quiz_path",buf);
! 2452: if (configResult != 0 && configResult != -1 ) {
! 2453: tmp_len = strlen(buf)+1;
! 2454: c_path_pp[1] = (char *)capa_malloc(tmp_len,sizeof(char));
! 2455: sprintf(c_path_pp[1],"%s",buf);
! 2456: max_set[1] = check_class_get_maxset(c_path_pp[1]);
! 2457: if( max_set[1] <= 0 ) {
! 2458: /* should we continue ? */
! 2459: max_set[1] = 1;
! 2460: X[1] = 1;
! 2461: }
! 2462: qz_c = max_set[1];
! 2463: qz_r = quiz_count - max_set[1];
! 2464: } else { /* if quiz_path is not in capa.config, then we will skip quizz */
! 2465: qz_c = 0;
! 2466: qz_r = 0;
! 2467: }
! 2468:
! 2469:
! 2470: configResult=read_capa_config("exam_path",buf);
! 2471: if (configResult != 0 && configResult != -1 ) {
! 2472: tmp_len = strlen(buf)+1;
! 2473: c_path_pp[2] = (char *)capa_malloc( (tmp_len),sizeof(char));
! 2474: sprintf(c_path_pp[2],"%s",buf);
! 2475: max_set[2] = check_class_get_maxset(c_path_pp[2]);
! 2476: if( max_set[2] <= 0 ) {
! 2477: /* should we continue ? */
! 2478: max_set[2] = 0;
! 2479: for(idx=2;idx <= (fs*2); idx++) {
! 2480: X[idx] = 1;
! 2481: }
! 2482: }
! 2483: } else { /* if exam_path is not in capa.config, then skip exams */
! 2484: fs = 0;
! 2485: }
! 2486: configResult=read_capa_config("correction_path",buf);
! 2487: if (configResult != 0 && configResult != -1 ) {
! 2488: tmp_len = strlen(buf)+1;
! 2489: c_path_pp[3] = (char *)capa_malloc(tmp_len,sizeof(char));
! 2490: sprintf(c_path_pp[3],"%s",buf);
! 2491: max_set[3] = check_class_get_maxset(c_path_pp[3]);
! 2492: if( max_set[3] <= 0 ) {
! 2493: /* should we continue ? */
! 2494: max_set[3] = 0;
! 2495:
! 2496: }
! 2497: } else { /* if correction_path is not in capa.config, then skip corrections */
! 2498: pc_w = 0.0;
! 2499: }
! 2500:
! 2501:
! 2502:
! 2503: for( idx = 0; idx < 4; idx++) {
! 2504: if( c_path_pp[idx] != NULL ) {
! 2505: chdir(c_path_pp[idx]);
! 2506: term_score=0;
! 2507: term_valid=0;
! 2508: for (set_idx=1; set_idx<=max_set[idx]; set_idx++) {
! 2509: if (capa_get_header(&header,set_idx)) return;
! 2510: capa_get_entry(&entry,student_number,set_idx);
! 2511: sscanf(header.num_questions,"%d", &(question_cnt) );
! 2512: valid_wgt = 0; set_score = 0;
! 2513: header.weight[question_cnt] = '\0';
! 2514: header.partial_credit[question_cnt] = '\0';
! 2515: for (i=0; i<question_cnt; i++) {
! 2516: valid_wgt += (header.weight[i] - '0');
! 2517: if((entry.answers[i]=='Y') || (entry.answers[i]=='y'))
! 2518: set_score += (header.weight[i]-'0');
! 2519: if((entry.answers[i]=='E') || (entry.answers[i]=='e'))
! 2520: valid_wgt -= (header.weight[i] - '0');
! 2521: if((entry.answers[i]>='0') && (entry.answers[i]<='9'))
! 2522: set_score += (entry.answers[i] - '0');
! 2523: }
! 2524: term_valid += valid_wgt;
! 2525: term_score += set_score;
! 2526: capa_mfree(header.weight);
! 2527: capa_mfree(header.partial_credit);
! 2528: if(idx==2) { /* exam sets */
! 2529: S[set_idx*2] = (float)set_score;
! 2530: F[set_idx*2] = (float)valid_wgt;
! 2531: X[set_idx*2] = 0;
! 2532: }
! 2533: if(idx==3) { /* correction sets */
! 2534: S[set_idx*2+1] = (float)set_score;
! 2535: F[set_idx*2+1] = (float)valid_wgt;
! 2536: X[set_idx*2+1] = 0;
! 2537: }
! 2538: }
! 2539: if( (idx == 0) || (idx==1) ) { /* homeworks and quizzes */
! 2540: S[idx] = (float)term_score;
! 2541: F[idx] = (float)term_valid;
! 2542: X[idx] = 1;
! 2543: }
! 2544: }
! 2545: }
! 2546:
! 2547:
! 2548:
! 2549:
! 2550: fprintf(out,"<CENTER>\n");
! 2551: fprintf(out,"<APPLET CODE=TScore.class CODEBASE=\"http://%s\" width=600 height=750>\n",capa_server);
! 2552: fprintf(out,"<PARAM NAME=\"HW_W\" VALUE=\"%f\">\n", hw_w);
! 2553: fprintf(out,"<PARAM NAME=\"QZ_W\" VALUE=\"%f\">\n", qz_w);
! 2554: fprintf(out,"<PARAM NAME=\"EX_W\" VALUE=\"%f\">\n", ex_w);
! 2555: fprintf(out,"<PARAM NAME=\"FE_W\" VALUE=\"%f\">\n", fe_w);
! 2556: fprintf(out,"<PARAM NAME=\"PC_W\" VALUE=\"%f\">\n", pc_w);
! 2557: fprintf(out,"<PARAM NAME=\"HW_C\" VALUE=\"%d\">\n", hw_c);
! 2558: fprintf(out,"<PARAM NAME=\"HW_R\" VALUE=\"%d\">\n", hw_r);
! 2559: fprintf(out,"<PARAM NAME=\"FS\" VALUE=\"%d\">\n", fs);
! 2560: fprintf(out,"<PARAM NAME=\"QZ_C\" VALUE=\"%d\">\n", qz_c);
! 2561: fprintf(out,"<PARAM NAME=\"QZ_R\" VALUE=\"%d\">\n", qz_r);
! 2562:
! 2563:
! 2564: for(idx=0;idx<entry_count;idx++) {
! 2565: fprintf(out,"<PARAM NAME=\"S%d\" VALUE=\"%f\">\n",idx,S[idx]);
! 2566: fprintf(out,"<PARAM NAME=\"F%d\" VALUE=\"%f\">\n",idx,F[idx]);
! 2567: fprintf(out,"<PARAM NAME=\"X%d\" VALUE=\"%d\">\n",idx,X[idx]);
! 2568: }
! 2569:
! 2570: fprintf(out,"</APPLET> </CENTER>\n");
! 2571:
! 2572: fprintf(out,"<TABLE cellpadding=0 cellspacing=0 border=0>\n<TR><TD>");
! 2573: fprintf(out,"<form method=\"post\" ");
! 2574: sprintf(buf,"action=\"http://%s/%s/%s/capasbin\">",serverName,g_cgibin_path,g_cowner);
! 2575: fprintf(out,"%s\n", buf);
! 2576: fprintf(out,"<input type=\"hidden\" name=\"CLASS\" value=\"%s\">\n",g_class_name);
! 2577: fprintf(out,"<input type=\"hidden\" name=\"SNUM\" value=\"%s\">\n",g_student_number);
! 2578: fprintf(out,"<input type=\"hidden\" name=\"CAPAID\" value=\"%d\">\n",g_entered_pin);
! 2579: fprintf(out,"<input type=\"hidden\" name=\"M\" value=\"%d\">\n",M_CHECKIN);
! 2580: fprintf(out,"<input type=\"submit\" value=\"Main menu\" ></form></TD>\n");
! 2581: fprintf(out,"<TD><form method=\"get\" action=\"http://%s/CAPA/class.html\">",serverName);
! 2582: fprintf(out,"<input type=\"button\" value=\"Exit\" onclick=\"window.close()\"></form></TD>");
! 2583: fprintf(out,"\n</TABLE>\n");
! 2584:
! 2585: capa_mfree((char *)S);
! 2586: capa_mfree((char *)F);
! 2587: capa_mfree((char *)X);
! 2588: for(idx=0;idx<4;idx++) {
! 2589: if( c_path_pp[idx] != NULL ) capa_mfree((char *)c_path_pp[idx]);
! 2590: }
! 2591: capa_mfree((char *)c_path_pp);
! 2592: capa_mfree((char *)capa_server);
! 2593: }
! 2594:
! 2595:
! 2596:
! 2597: int
! 2598: get_termscore_params(hw,qw,ew,fw,pw,hc,qc,fs)
! 2599: float *hw;float *qw;float *ew;float *fw;float *pw;
! 2600: int *hc;int *qc;int *fs;
! 2601: {
! 2602: char buf[MAX_BUFFER_SIZE]; /* Output line buffer */
! 2603: int hw_c, qz_c, fe_s;
! 2604: float hw_w, qz_w, ex_w, fe_w, pc_w;
! 2605: int configResult;
! 2606:
! 2607: configResult=read_capa_config("homework_weight",buf);
! 2608: if (configResult != 0 && configResult != -1 ) {
! 2609: sscanf(buf,"%f", &hw_w);
! 2610: if(hw_w <= 0.0 ) {
! 2611: hw_w = DEFAULT_HW_W;
! 2612: }
! 2613: } else {
! 2614: return (-1);
! 2615: }
! 2616: configResult=read_capa_config("quiz_weight",buf);
! 2617: if (configResult != 0 && configResult != -1 ) {
! 2618: sscanf(buf,"%f", &qz_w);
! 2619: if(qz_w <= 0.0 ) {
! 2620: qz_w = DEFAULT_QZ_W;
! 2621: }
! 2622: } else {
! 2623: return (-1);
! 2624: }
! 2625: configResult=read_capa_config("exam_weight",buf);
! 2626: if (configResult != 0 && configResult != -1 ) {
! 2627: sscanf(buf,"%f", &ex_w);
! 2628: if(ex_w <= 0.0 ) {
! 2629: ex_w = DEFAULT_EX_W;
! 2630: }
! 2631: } else {
! 2632: return (-1);
! 2633: }
! 2634: configResult=read_capa_config("final_weight",buf);
! 2635: if (configResult != 0 && configResult != -1 ) {
! 2636: sscanf(buf,"%f", &fe_w);
! 2637: if(fe_w <= 0.0 ) {
! 2638: fe_w = DEFAULT_FE_W;
! 2639: }
! 2640: } else {
! 2641: return (-1);
! 2642: }
! 2643: configResult=read_capa_config("correction_weight",buf);
! 2644: if (configResult != 0 && configResult != -1 ) {
! 2645: sscanf(buf,"%f", &pc_w);
! 2646: if(pc_w <= 0.0 ) {
! 2647: pc_w = DEFAULT_PC_W;
! 2648: }
! 2649: } else {
! 2650: return (-1);
! 2651: }
! 2652: configResult=read_capa_config("final_exam_set_number",buf);
! 2653: if (configResult != 0 && configResult != -1 ) {
! 2654: sscanf(buf,"%d", &fe_s);
! 2655: if(fe_s <= 0 ) {
! 2656: fe_s = DEFAULT_FE_NUMBER;
! 2657: }
! 2658: } else {
! 2659: return (-1);
! 2660: }
! 2661: configResult=read_capa_config("homework_count",buf);
! 2662: if (configResult != 0 && configResult != -1 ) {
! 2663: sscanf(buf,"%d", &hw_c);
! 2664: if(hw_c <= 0 ) {
! 2665: hw_c = DEFAULT_HW_COUNT;
! 2666: }
! 2667: } else {
! 2668: return (-1);
! 2669: }
! 2670: configResult=read_capa_config("quiz_count",buf);
! 2671: if (configResult != 0 && configResult != -1 ) {
! 2672: sscanf(buf,"%d", &qz_c);
! 2673: if(qz_c <= 0 ) {
! 2674: qz_c = DEFAULT_QZ_COUNT;
! 2675: }
! 2676: } else {
! 2677: return (-1);
! 2678: }
! 2679: *hw = hw_w; *qw = qz_w; *ew = ex_w; *fw = fe_w; *pw = pc_w;
! 2680: *hc = hw_c; *qc = qz_c; *fs = fe_s;
! 2681: return (0);
! 2682:
! 2683: }
! 2684:
! 2685: /* =================================================================================================== */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to capaCgiUtils.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / pProj