Annotation of capa/capa51/pProj/capaNewCgi.c, revision 1.1
1.1 ! albertel 1: char *makeword(char *line, char stop)
! 2: {
! 3: int x = 0,y;
! 4: char *word = (char *) malloc(sizeof(char) * (strlen(line) + 1));
! 5:
! 6: for(x=0;((line[x]) && (line[x] != stop));x++)
! 7: word[x] = line[x];
! 8:
! 9: word[x] = '\0';
! 10: if(line[x]) ++x;
! 11: y=0;
! 12:
! 13: while((line[y++] = line[x++]));
! 14: return word;
! 15: }
! 16:
! 17: char *fmakeword(FILE *f,char stop,int * cl)
! 18: {
! 19: int wsize;
! 20: char *word;
! 21: int ll;
! 22:
! 23: wsize = 102400;
! 24: ll=0;
! 25: word = (char *) malloc(sizeof(char) * (wsize + 1));
! 26:
! 27: while(1) {
! 28: word[ll] = (char)fgetc(f);
! 29: if(ll==wsize) {
! 30: word[ll+1] = '\0';
! 31: wsize+=102400;
! 32: word = (char *)realloc(word,sizeof(char)*(wsize+1));
! 33: }
! 34: --(*cl);
! 35: if((word[ll] == stop) || (feof(f)) || (!(*cl))) {
! 36: if(word[ll] != stop) ll++;
! 37: word[ll] = '\0';
! 38: return word;
! 39: }
! 40: ++ll;
! 41: }
! 42: }
! 43:
! 44: char x2c(char *what)
! 45: {
! 46: register char digit;
! 47:
! 48: digit = (what[0] >= 'A' ? ((what[0] & 0xdf) - 'A')+10 : (what[0] - '0'));
! 49: digit *= 16;
! 50: digit += (what[1] >= 'A' ? ((what[1] & 0xdf) - 'A')+10 : (what[1] - '0'));
! 51: return(digit);
! 52: }
! 53:
! 54: void unescape_url(char *url)
! 55: {
! 56: register int x,y;
! 57:
! 58: for(x=0,y=0;url[y];++x,++y) {
! 59: if((url[x] = url[y]) == '%') {
! 60: url[x] = x2c(&url[y+1]);
! 61: y+=2;
! 62: }
! 63: }
! 64: url[x] = '\0';
! 65: }
! 66:
! 67: void plustospace(char *str)
! 68: {
! 69: register int x;
! 70:
! 71: for(x=0;str[x];x++) if(str[x] == '+') str[x] = ' ';
! 72: }
! 73:
! 74: void web_parse_input(char * submissions_str)
! 75: {
! 76: int x;
! 77:
! 78: for(x=0; x <= m; x++) {
! 79: if( !strcmp(g_entries[x].name,"CLASS") ) {
! 80: strncpy(g_class_name,g_entries[x].val,MAX_CLASS_CHAR);
! 81: }
! 82: if( !strcmp(g_entries[x].name,"M") ) {
! 83: sscanf(g_entries[x].val,"%d",&g_run_mode);
! 84: }
! 85: if( !strcmp(g_entries[x].name,"SNUM") ) {
! 86: strncpy(g_student_number,g_entries[x].val,MAX_STUDENT_NUMBER+4);
! 87: }
! 88: if( !strcmp(g_entries[x].name,"CAPAID") ) {
! 89: sscanf(g_entries[x].val,"%d",&g_entered_pin);
! 90: }
! 91: if( !strcmp(g_entries[x].name,"SET") ) {
! 92: sscanf(g_entries[x].val,"%d",&g_set);
! 93: }
! 94: if( !strcmp(g_entries[x].name,"VSET") ) {
! 95: if (g_entries[x].val[0] == '\0') {
! 96: g_vset=0;
! 97: } else {
! 98: sscanf(g_entries[x].val,"%d",&g_vset);
! 99: }
! 100: }
! 101: if( !strcmp(g_entries[x].name,"KND") ) {
! 102: sscanf(g_entries[x].val,"%d",&g_skind);
! 103: }
! 104: if( !strncmp(g_entries[x].name,"INPUT",5) ) {
! 105: sscanf(g_entries[x].name,"INPUT%d",&q_idx);
! 106: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 107: strncpy(g_student_answer[q_idx],g_entries[x].val,MAX_ANSWER_CHAR);
! 108: }
! 109: if ( g_student_answer[q_idx][0] != '\0' ) {
! 110: sprintf(buf,"%d\t%s\t",q_idx,g_student_answer[q_idx]);
! 111: strcat(submissions_str,buf);
! 112: }
! 113: }
! 114: if( !strncmp(g_entries[x].name,"LAST",4) ) {
! 115: sscanf(g_entries[x].name,"LAST%d",&q_idx);
! 116: if( q_idx > 0 && q_idx < MAX_PROBLEM_CNT ) {
! 117: strncpy(g_last_answer[q_idx],g_entries[x].val,MAX_ANSWER_CHAR);
! 118: }
! 119: }
! 120: free(g_entries[x].val);
! 121: free(g_entries[x].name);
! 122: }
! 123: }
! 124:
! 125: int web_login()
! 126: {
! 127: if( g_entered_pin != 0 ) {
! 128: g_login_set = capa_PIN(g_student_number,999,g_entered_pin);
! 129: } else {
! 130: return WEB_ERR_ENTERED_PIN;
! 131: }
! 132:
! 133: if (!g_login_set) {
! 134: return WEB_ERR_BADLOGIN;
! 135: } else {
! 136: if ( g_login_set > 99 ) { return WEB_ERR_LOGINTOHIGH; }
! 137: if(g_login_set < g_vset ) {
! 138: return WEB_ERR_NOTVIEWABLE;
! 139: }
! 140: chdir(g_class_fullpath); /* again, to make sure */
! 141:
! 142: if ( capa_get_student(g_student_number,&g_student_data) == 0 ) {
! 143: return WEB_ERR_STUDENT_NOT_EXIST;
! 144: } else {
! 145: time(&curtime);
! 146: if (capa_get_header(&header, g_login_set, wgt, pcr)) {
! 147: return WEB_ERR_SET_NOT_READY;
! 148: }
! 149: if(capa_check_date(CHECK_OPEN_DATE,g_student_data.s_sec,
! 150: g_login_set) < 0 ) {
! 151:
! 152: return WEB_ERR_SET_NOT_OPEN;
! 153: }
! 154: }
! 155: }
! 156: return (error);
! 157: }
! 158:
! 159: int web_get_input()
! 160: {
! 161:
! 162: envPtr=getenv("REQUEST_METHOD");
! 163: if (!envPtr ) { return WEB_ERR_REQ_METHOD; }
! 164: if (strcmp(envPtr,"POST")) { return WEB_ERR_ENV_POST; }
! 165: envPtr=getenv("CONTENT_TYPE");
! 166: if (!envPtr ) { return WEB_ERR_CONTENT_TYPE; }
! 167: if (strcmp(envPtr,"application/x-www-form-urlencoded")) {
! 168: return WEB_ERR_ENV_CONTENT;
! 169: }
! 170: envPtr=getenv("CONTENT_LENGTH");
! 171: if (!envPtr ) { return WEB_ERR_CONTENT_LENGTH; }
! 172: content_length=atoi(envPtr);
! 173:
! 174: /* read the form into the g_entries array*/
! 175: for(x=0;content_length && (!feof(stdin));x++) {
! 176: m=x;
! 177: g_entries[x].val = fmakeword(stdin,'&',&content_length);
! 178: plustospace(g_entries[x].val);
! 179: unescape_url(g_entries[x].val);
! 180: g_entries[x].name = makeword(g_entries[x].val,'=');
! 181: }
! 182:
! 183: web_parse_input(submissions_str);
! 184:
! 185: if ( g_run_mode == WEB_CHECKIN ) {
! 186: time(&curtime); time_str = ctime(&curtime);
! 187: time_str[ strlen(time_str)-1 ] = '\0';
! 188: envPtr=getenv("REMOTE_HOST");
! 189: envPtr2=getenv("HTTP_USER_AGENT");
! 190: sprintf(log_str,"%s\t%s\t%s\t%s\t%s\n",g_class_name,g_student_number,
! 191: time_str,envPtr,envPtr2);
! 192: if (web_log(log_str) == -1 ) { return WEB_ERR_WEB_LOG; }
! 193: }
! 194:
! 195: getwd(g_cwd);
! 196:
! 197: web_getclassdir(&g_cpath, &g_cowner, g_class_name);
! 198: sprintf(g_class_fullpath,"%s/%s",g_cpath,g_class_name);
! 199: if( !capa_access(g_class_fullpath, F_OK) == 0 ) { return WEB_ERR_ACCESS; }
! 200:
! 201: chdir(g_class_fullpath);
! 202: if ( g_run_mode == M_CHECKANS) {
! 203: if (w_log_submissions(g_student_number,g_set,submissions_str) == -1 ) {
! 204: return WEB_ERR_SUBMMISIONS_LOG;
! 205: }
! 206: }
! 207:
! 208: result=read_capa_config("capaweb_cgibin_path",buf);
! 209: if (result != 0 && result != -1) {
! 210: g_cgibin_path=capa_malloc(strlen(buf)+1,1);
! 211: strcpy(g_cgibin_path,buf);
! 212: } else {
! 213: g_cgibin_path=capa_malloc(strlen("capa-bin")+1,1);
! 214: strcpy(g_cgibin_path,"capa-bin");
! 215: }
! 216: return web_login();
! 217: }
! 218:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to capaNewCgi.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / pProj