Rev 12277 | Rev 12381 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
12210 | bpr | 1 | /* Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis |
10 | reyssat | 2 | * |
3 | * This program is free software; you can redistribute it and/or modify |
||
4 | * it under the terms of the GNU General Public License as published by |
||
5 | * the Free Software Foundation; either version 2 of the License, or |
||
6 | * (at your option) any later version. |
||
7 | * |
||
8 | * This program is distributed in the hope that it will be useful, |
||
9 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
||
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||
11 | * GNU General Public License for more details. |
||
12 | * |
||
13 | * You should have received a copy of the GNU General Public License |
||
14 | * along with this program; if not, write to the Free Software |
||
15 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
||
16 | */ |
||
7563 | bpr | 17 | /* Routines to write log files. */ |
8185 | bpr | 18 | #include <sys/socket.h> |
19 | #include <sys/un.h> |
||
10 | reyssat | 20 | |
8185 | bpr | 21 | #include "wims.h" |
22 | |||
10 | reyssat | 23 | char logbuf[4*(MAX_LINELEN+1)]; |
24 | char *logp=logbuf; |
||
25 | |||
26 | void write_logfile(char *fname, char *str) |
||
27 | { |
||
12210 | bpr | 28 | char *p; |
29 | if((p=strchr(str,'\n'))!=NULL) *p=0; |
||
30 | snprintf(logp,sizeof(logbuf)-(logp-logbuf),"%s %s\n",fname,str); |
||
31 | logp+=strlen(logp); |
||
10 | reyssat | 32 | } |
33 | |||
34 | void flushlog(void) |
||
35 | { |
||
12210 | bpr | 36 | int n, fd; |
37 | n=logp-logbuf; logp=logbuf; |
||
38 | if(n<=0) return; |
||
39 | fd=open(temp_log,O_WRONLY|O_APPEND|O_CREAT,S_IRUSR|S_IWUSR); |
||
40 | if(fd==-1) return; |
||
41 | (void)write(fd,logbuf,n); close(fd); |
||
10 | reyssat | 42 | } |
43 | |||
7563 | bpr | 44 | /* Write module log file. */ |
10 | reyssat | 45 | void module_log(void) |
46 | { |
||
12210 | bpr | 47 | /* log string is limited to 100 characters. */ |
48 | char *logstr, *ip, *sess, lbuf[100], *p; |
||
7563 | bpr | 49 | |
12210 | bpr | 50 | if(robot_access || !modlog || strstr(session_prefix,"_check")!=NULL) return; |
51 | logstr=getvar("wims_module_log"); |
||
52 | if(logstr==NULL || *logstr==0) return; |
||
53 | ip=remote_addr; |
||
54 | if(mode==mode_default) sess=getvar("wims_session"); |
||
55 | else sess="popup"; |
||
56 | if(ip==NULL || sess==NULL) return; |
||
57 | mystrncpy(lbuf,logstr,sizeof(lbuf)); |
||
58 | p=strchr(sess,'_'); if(p==NULL) p=sess+strlen(sess); |
||
59 | if(p<sess+4) p=sess; else p=p-4; |
||
60 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %.6s %s\11%s", |
||
61 | nowstr, p, ip, lbuf); |
||
62 | p=getvar(ro_name[ro_module]); |
||
63 | if(p==NULL || *p==0) return; |
||
64 | write_logfile(mkfname(NULL,"%s/%s",module_dir,p),tmplbuf); |
||
10 | reyssat | 65 | } |
66 | |||
7563 | bpr | 67 | /* log http referers */ |
10 | reyssat | 68 | void referer_log(void) |
69 | { |
||
12210 | bpr | 70 | char *c,*s,*ip,*r,*h,refstr[256]; |
10 | reyssat | 71 | |
12210 | bpr | 72 | if(robot_access) return; |
73 | c=getvar(ro_name[ro_cmd]); |
||
74 | if(c==NULL) c=""; |
||
75 | if(mode==mode_default) s=getvar("wims_session"); else s="popup"; |
||
76 | if(s==NULL) s="----"; |
||
77 | else if(!new_session && strcmp(c,"intro")!=0) return; |
||
78 | if(strlen(s)<4) s="----"; |
||
79 | if(strchr(s,'_')!=NULL) return; |
||
80 | ip=remote_addr; if(*ip==0) return; |
||
81 | r=getenv("HTTP_REFERER"); |
||
82 | if(r==NULL || *r==0) r="??"; |
||
83 | /* skip some useless referers */ |
||
84 | else { |
||
85 | if(strstr(r,cgi_name)!=NULL) return; |
||
86 | if(strstr(r,"file:")!=NULL || strchr(r,'.')==NULL) r="??"; |
||
87 | if(strstr(r,"http")==NULL && strchr(r,'.')==NULL && |
||
88 | strstr(r,"bookmark")!=NULL) r="??bookmark"; |
||
89 | } |
||
90 | if(strncmp(r,"http://",strlen("http://"))==0) r+=strlen("http://"); |
||
91 | /* Take references from the same site or not? No. */ |
||
92 | h=getenv("HTTP_HOST"); |
||
93 | if(h!=NULL && *h!=0 && strncmp(r,h,strlen(h))==0) return; |
||
94 | /* stop before '#' */ |
||
95 | mystrncpy(refstr,r,sizeof(refstr)); |
||
96 | r=strchr(refstr,'#'); if(r!=NULL) *r=0; |
||
97 | for(r=refstr;r<refstr+strlen(refstr);r++) { |
||
98 | if(*r=='%' && *(r+1)=='7' && *(r+2)=='E') { |
||
99 | *r='~'; ovlstrcpy(r+1,r+3); |
||
10 | reyssat | 100 | } |
12210 | bpr | 101 | } |
102 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %s %s\11%s", |
||
103 | nowstr,s+strlen(s)-4,ip,refstr); |
||
104 | write_logfile("referer.log",tmplbuf); |
||
10 | reyssat | 105 | } |
106 | |||
7563 | bpr | 107 | /* Log new creation of sessions. For server counting use. */ |
10 | reyssat | 108 | void session_log(char *c) |
109 | { |
||
12210 | bpr | 110 | int i; |
111 | char *ip, *p, *agent, *s, *sess; |
||
7563 | bpr | 112 | |
12210 | bpr | 113 | ip=remote_addr; if(*ip==0) return; |
114 | if(mode==mode_default) { |
||
115 | sess=getvar("wims_session"); |
||
116 | if(sess==NULL) return; |
||
117 | if(strchr(sess,'_')!=NULL) return; |
||
118 | } |
||
119 | else sess="popup"; |
||
120 | p=getenv("REMOTE_HOST"); if(p==NULL) p=""; |
||
121 | i=strlen(p); if(i>40) p+=i-40; |
||
122 | agent=getenv("HTTP_USER_AGENT"); if(agent==NULL) agent=""; |
||
123 | s=strchr(sess,'_'); if(s==NULL) s=sess+strlen(sess); |
||
124 | if(s<sess+4) s=sess; else s=s-4; |
||
125 | /* limit agent name to 80 chars */ |
||
126 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %s %s\11%s\11%.80s", |
||
127 | nowstr, s, ip, p, agent); |
||
128 | write_logfile("session.log",tmplbuf); |
||
10 | reyssat | 129 | } |
130 | |||
7563 | bpr | 131 | /* Log user information. */ |
10 | reyssat | 132 | void user_log(char *c) |
133 | { |
||
12210 | bpr | 134 | char fname[MAX_FNAME+1], logbuf[MAX_LINELEN+1], cbuf[256], sbuf[32], shbuf[32]; |
12218 | bpr | 135 | char *user, *classe, *sh, *sess, *exo, *cc, *ip, *allow, *pend, *se; |
12210 | bpr | 136 | char *ex; |
137 | double sc,Sc; |
||
12219 | bpr | 138 | int i, scorelog, testmax_,testmax; |
7563 | bpr | 139 | |
12210 | bpr | 140 | if(robot_access || strstr("session_prefix","_check")!=NULL) return; |
141 | user=getvar("wims_user"); classe=getvar("wims_class"); |
||
142 | sc=0; |
||
143 | if(isexam) { |
||
144 | if(user==NULL || classe==NULL || *user==0 || *classe==0) return; |
||
145 | sh=getvar("worksheet"); if(sh==NULL) return; |
||
146 | mystrncpy(shbuf,sh,sizeof(shbuf)); |
||
147 | exo=strchr(shbuf,'.'); if(exo==NULL) return; |
||
148 | *exo++=0; sh=shbuf; |
||
149 | if(mode==mode_default) sess=getvar("wims_session"); |
||
150 | else sess="popup"; |
||
151 | if(sess==NULL) return; |
||
152 | mystrncpy(sbuf,sess,sizeof(sbuf)); |
||
153 | sess=strchr(sbuf,'_'); if(sess==NULL) return; |
||
154 | *sess=0; sess=sbuf; ex="E"; |
||
155 | accessfile(logbuf,"r","%s/.E%s",class_dir,sh); |
||
156 | if(strchr(logbuf,'#')!=NULL || strcmp(user,"supervisor")==0) simuxam=1; |
||
157 | else { |
||
158 | accessfile(logbuf,"r","%s/%s/examsimu.%d", session_dir,sess,sh); |
||
159 | if(strstr(logbuf,"yes")!=NULL) user_error("expired_exam"); |
||
10 | reyssat | 160 | } |
12210 | bpr | 161 | mkfname(examlogd,"%s/examlog/%s/%s",class_dir,user,sess); |
162 | mkfname(examlogf,"%s/%s.%s",examlogd,sh,exo); |
||
163 | } |
||
164 | else { |
||
165 | sh=getvar("wims_sheet"); |
||
166 | if(sh==NULL || *sh==0) return; |
||
167 | exo=getvar("wims_exo"); if(exo==NULL) return; |
||
168 | sess=getvar("wims_session"); |
||
169 | if(sess==NULL) return; |
||
170 | ex=""; |
||
7563 | bpr | 171 | |
12210 | bpr | 172 | } |
173 | if(strcmp(c,"new")!=0 && strcmp(c,"renew")!=0 |
||
174 | && strcmp(c,"rafale")!=0 |
||
175 | && strcmp(c,"hint")!=0 && parm_restore==0) { |
||
176 | char *s; |
||
177 | s=getvar("module_score"); |
||
178 | if(s==NULL || *s==0) return; |
||
179 | sc=atof(s); if(!isfinite(sc)) {sc=0; return;} |
||
180 | snprintf(cbuf,sizeof(cbuf),"score %s",s); |
||
181 | cc=cbuf; |
||
182 | } |
||
183 | else cc=c; |
||
184 | if(classe==NULL || *classe==0) i=1; |
||
185 | else i=getscorestatus(classe,atoi(sh)); |
||
12219 | bpr | 186 | testmax_=gettrycheck(classe,user,atoi(sh),atoi(exo))==1; |
187 | testmax=strcmp(c,"new")!=0 && strcmp(c,"renew")!=0 && testmax_; |
||
12210 | bpr | 188 | pend=getvar("wims_scoring"); if(pend==NULL) pend=""; |
12219 | bpr | 189 | if((i==0 || !exodepOK || strcmp(pend,"pending")!=0 || testmax) && strcmp(cc,"rafale")!=0) |
190 | if(testmax) allow="maxtry noscore"; else allow="noscore"; |
||
191 | else { |
||
12224 | bpr | 192 | if((strcmp(c,"new")==0 || strcmp(c,"renew")==0) && testmax_) allow="maxtry noscore"; |
12219 | bpr | 193 | else allow=""; |
194 | } |
||
12210 | bpr | 195 | ip=remote_addr; if(*ip==0) ip="-"; scorelog=0; |
196 | if(user==NULL || *user==0) { |
||
197 | classe="0"; allow=""; |
||
198 | mkfname(fname,"../sessions/%s/.score",sess); |
||
199 | } |
||
200 | else { |
||
201 | char *pp; |
||
202 | if(classe==NULL || *classe==0) return; |
||
203 | pp=getvar("wims_scorereg"); |
||
12288 | bpr | 204 | if((allow[0]==0 || testmax_ || (pp!=NULL && strcmp(pp,"suspend")==0)) && *ex!='E') |
12210 | bpr | 205 | scorelog=1; |
206 | else |
||
207 | mkfname(fname,"classes/%s/noscore/%s",classe,user); |
||
208 | } |
||
209 | if(isexam && user!=NULL && *user!=0) { |
||
210 | allow=exam_sheetexo; |
||
211 | snprintf(logbuf,sizeof(logbuf),":%s %2s %s \t%s%s\n", |
||
212 | nowstr,exo,cc,ip,allow); |
||
213 | accessfile(logbuf,"a","%s/%s/examscore.%s", session_dir,sess,sh); |
||
214 | Sc=currexamscore(atoi(sh)); |
||
215 | accessfile(logbuf,"r","%s/.E%s",class_dir,sh); |
||
216 | if(simuxam==0) { /* not simulation */ |
||
217 | if(sc>0) { |
||
218 | snprintf(logbuf,sizeof(logbuf), |
||
219 | "%s %.5f -1 %u %s %s\n", |
||
220 | sh,Sc,(unsigned int) nowtime,ip,sess); |
||
221 | accessfile(logbuf,"a","%s/score/%s.exam", class_dir,user); |
||
222 | } |
||
10 | reyssat | 223 | } |
12210 | bpr | 224 | else snprintf(exam_sheetexo+strlen(exam_sheetexo), |
225 | sizeof(exam_sheetexo)-strlen(exam_sheetexo), "\tS"); |
||
226 | } |
||
12218 | bpr | 227 | if(strcmp(c,"new")==0 || strcmp(c,"renew")==0) |
228 | se=getvar("wims_seed"); else se=""; |
||
229 | snprintf(logbuf,sizeof(logbuf),"%s%s %s %2s %2s %s \t%s\t%s\t%s", |
||
12219 | bpr | 230 | ex,nowstr,sess,sh,exo,cc,ip,se,allow); |
12210 | bpr | 231 | if(scorelog) { |
232 | snprintf(tmplbuf,sizeof(tmplbuf),"-c%s -u%s scorelog %s", |
||
233 | classe,user,logbuf); |
||
234 | _daemoncmd(tmplbuf); |
||
235 | } |
||
236 | else write_logfile(fname,logbuf); |
||
10 | reyssat | 237 | } |
238 | |||
7563 | bpr | 239 | /* Log class information. */ |
10 | reyssat | 240 | void class_log(char *cl, char *l, char *ip) |
241 | { |
||
12210 | bpr | 242 | char logbuf[1024]; |
7563 | bpr | 243 | |
12210 | bpr | 244 | if(robot_access) return; |
245 | snprintf(logbuf,sizeof(logbuf),"%s %s \t%s", |
||
246 | nowstr,ip,l); |
||
247 | write_logfile(mkfname(NULL,"classes/%s/.log",cl),logbuf); |
||
10 | reyssat | 248 | } |
249 | |||
7563 | bpr | 250 | /* Log accesses to modules. For server counting use. */ |
10 | reyssat | 251 | void access_log(char *c) |
252 | { |
||
12210 | bpr | 253 | int i; |
254 | char *ip, *p, *sess, *s, *agent, *u, *cl; |
||
255 | time_t logtime; |
||
256 | char ag[128], tm[64]; |
||
7563 | bpr | 257 | |
12210 | bpr | 258 | ip=remote_addr; |
259 | if(*ip==0) ip="????????"; |
||
260 | if(mode==mode_default) sess=getvar("wims_session"); |
||
261 | else sess="popup"; |
||
262 | if(sess==NULL) sess="----------"; |
||
263 | p=getvar(ro_name[ro_module]); |
||
264 | if(p==NULL || *p==0) p="-"; |
||
8155 | bpr | 265 | /* limit module name to 40 chars */ |
12210 | bpr | 266 | i=strlen(p); if(i>40) p+=i-40; |
267 | if(robot_access) { |
||
268 | agent=getenv("HTTP_USER_AGENT"); if(agent==NULL) agent="-"; |
||
269 | snprintf(ag,sizeof(ag)," %s",agent); |
||
270 | } |
||
271 | else { |
||
272 | u=getvar("wims_user"); |
||
273 | if(u!=NULL && *u!=0) snprintf(ag,sizeof(ag)," %s,%s",u,getvar("wims_class")); |
||
274 | else ag[0]=0; |
||
275 | } |
||
276 | s=strchr(sess,'_'); if(s==NULL) s=sess+strlen(sess); |
||
277 | if(s<sess+4) s=sess; else s=s-4; |
||
278 | tm[0]=0; logtime=time(0); if(logtime>nowtime+2) { |
||
279 | snprintf(tm,sizeof(tm)," (%lus)", logtime-nowtime); |
||
280 | } |
||
281 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %.6s %s\11%s\11%s%s%s", |
||
282 | nowstr, s, ip, c, p, tm, ag); |
||
283 | write_logfile("access.log",tmplbuf); |
||
284 | user_log(c); |
||
285 | cl=getvar("wims_class"); |
||
286 | if(cl!=NULL && *cl!=0) { |
||
12288 | bpr | 287 | char *l; |
288 | l=getvar("wims_class_log"); |
||
289 | if(l!=NULL && *l!=0) class_log(cl, l, ip); |
||
12210 | bpr | 290 | } |
10 | reyssat | 291 | } |
292 | |||
7563 | bpr | 293 | /* Log of mails. */ |
10 | reyssat | 294 | void mail_log(char *c) |
295 | { |
||
12210 | bpr | 296 | int i; |
297 | char *ip, *p, *sess, *s, *cl; |
||
7563 | bpr | 298 | |
12210 | bpr | 299 | ip=remote_addr; |
300 | if(*ip==0) ip="????????"; |
||
301 | if(mode==mode_default) sess=getvar("wims_session"); |
||
302 | else sess="popup"; |
||
303 | if(sess==NULL) sess="----------"; |
||
304 | p=getvar(ro_name[ro_module]); |
||
305 | if(p==NULL || *p==0) p="-"; |
||
8155 | bpr | 306 | /* limit module name to 40 chars */ |
12210 | bpr | 307 | i=strlen(p); if(i>40) p+=i-40; |
308 | s=strchr(sess,'_'); if(s==NULL) s=sess+strlen(sess); |
||
309 | if(s<sess+4) s=sess; else s=s-4; |
||
310 | cl=getvar("wims_class"); if(cl==NULL) cl=""; |
||
311 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %.6s %s\11%s\11%s\11%s", |
||
312 | nowstr, s, ip, c, cl, p); |
||
313 | write_logfile("mail.log",tmplbuf); |
||
10 | reyssat | 314 | } |
315 | |||
7563 | bpr | 316 | /* log posted data */ |
10 | reyssat | 317 | void post_log(void) |
318 | { |
||
12210 | bpr | 319 | char *h, *l, logstr[2*MAX_LINELEN+2]; |
320 | char *authpwd, *p, *ll, *l1 ; |
||
10 | reyssat | 321 | |
12210 | bpr | 322 | h=remote_addr; |
323 | if(mpboundary[0]!=0) l="multipart/form-data"; else l=stdinbuf; |
||
4347 | reyssat | 324 | |
12210 | bpr | 325 | ll=strdup(l); |
326 | authpwd="auth_password="; |
||
327 | if((p=strstr(l,authpwd))!=NULL ) { |
||
328 | l1=strdup(l); |
||
329 | mystrncpy(ll,l,p-l+strlen(authpwd)+1); |
||
330 | strcat(ll,"xxxx"); |
||
331 | mystrncpy(l1,p+strlen(authpwd),strlen(l)); |
||
332 | if((p=strstr(l1,"&"))!=NULL) strcat(ll,p); |
||
333 | } |
||
4347 | reyssat | 334 | |
12210 | bpr | 335 | snprintf(logstr,sizeof(logstr),"%s %s\t%s", |
336 | nowstr, h, ll); |
||
337 | write_logfile("post.log",logstr); |
||
10 | reyssat | 338 | } |
339 | |||
7563 | bpr | 340 | /* It is this routine which is called by main(). */ |
10 | reyssat | 341 | void write_logs(void) |
342 | { |
||
12210 | bpr | 343 | char *p; |
344 | p=getvar(ro_name[ro_cmd]); if(p==NULL || *p==0) p="no_cmd"; |
||
12277 | bpr | 345 | access_log(p); |
346 | if(strstr(session_prefix,"_check")!=NULL) return; |
||
12210 | bpr | 347 | module_log(); referer_log(); |
348 | if(new_session) session_log(p); |
||
10 | reyssat | 349 | } |
350 | |||
351 | void user_error_log(char msg[]) |
||
352 | { |
||
12210 | bpr | 353 | char *s, *m, *c, *h, *q, *r, *sess, logstr[512]; |
354 | if(mode==mode_default) sess=getvar("wims_session"); |
||
355 | else sess="popup"; |
||
356 | if(sess==NULL) sess="----------"; |
||
357 | m=getvar(ro_name[ro_module]);if(m==NULL) m=""; |
||
358 | c=getvar(ro_name[ro_cmd]);if(c==NULL) c=""; |
||
359 | h=remote_addr; |
||
360 | q=getenv("QUERY_STRING");if(q==NULL) q=""; |
||
361 | r=getenv("HTTP_REFERER"); |
||
362 | if(r==NULL || strstr(r,cgi_name)!=NULL) r=""; |
||
363 | s=strchr(sess,'_'); if(s==NULL) s=sess+strlen(sess); |
||
364 | if(s<sess+4) s=sess; else s=s-4; |
||
365 | snprintf(logstr,sizeof(logstr),"%s %.5s %s %s, module=%s cmd=%s: %s %s", |
||
366 | nowstr, s, h, msg, m, c, r, q); |
||
367 | write_logfile("user_error.log",logstr); |
||
368 | if(user_error_nolog) return; |
||
369 | access_log("user_error");referer_log(); |
||
10 | reyssat | 370 | } |
371 | |||
372 | void module_error_log(char msg[]) |
||
373 | { |
||
12210 | bpr | 374 | char *s, *m, *c, logstr[256]; |
375 | if(strstr(msg,"debug")!=NULL || strstr(msg,"timeup")!=NULL) return; |
||
376 | if(strstr(m_file.name,"sessions/")!=NULL) return; |
||
377 | s=getvar(ro_name[ro_module]); |
||
378 | if(s!=NULL) { |
||
379 | if(strncmp(s,"classes/",strlen("classes/"))==0 || |
||
380 | strncmp(s,"devel/",strlen("devel/"))==0) return; |
||
381 | } |
||
382 | s=getvar("wims_session"); if(s==NULL) s=" "; |
||
383 | m=getvar(ro_name[ro_module]);if(m==NULL) m=""; |
||
384 | c=getvar(ro_name[ro_cmd]);if(c==NULL) c=""; |
||
385 | snprintf(logstr,sizeof(logstr),"%s %.10s %s in %s/%s, line %d", |
||
386 | nowstr, s+2, msg, m, m_file.name, m_file.l+1); |
||
387 | write_logfile("module_error.log",logstr); |
||
388 | access_log("module_error"); |
||
10 | reyssat | 389 | } |
390 | |||
7563 | bpr | 391 | /* Refused users due to threshold excess */ |
10 | reyssat | 392 | void refuse_log(int th) |
393 | { |
||
12210 | bpr | 394 | char *load, *h; |
7563 | bpr | 395 | |
12210 | bpr | 396 | load=getvar("wims_server_load"); if(load==NULL) load="??"; |
397 | h=remote_addr; |
||
398 | snprintf(tmplbuf,sizeof(tmplbuf),"%s %s\11%d:%s", |
||
399 | nowstr, h, th, load); |
||
400 | write_logfile("refuse.log",tmplbuf); |
||
10 | reyssat | 401 | } |
402 | |||
403 | #define logdpid "../tmp/log/wimslogd.pid" |
||
404 | #define newlogd "../tmp/log/wimslogd.new" |
||
405 | |||
406 | void bringuplogd(void) |
||
407 | { |
||
12210 | bpr | 408 | char *arg[]={"../bin/wimslogd",NULL}; |
409 | struct stat st; |
||
410 | pid_t pid; |
||
10 | reyssat | 411 | |
8155 | bpr | 412 | /* need to update wimslogd? */ |
12210 | bpr | 413 | if(stat(newlogd,&st)==0) { |
414 | if((S_IXUSR&st.st_mode)!=0 && st.st_size>40000 && st.st_size<200000) |
||
415 | call_ssh("mv %s %s",newlogd,arg[0]); |
||
416 | else call_ssh("rm -f %s",newlogd); |
||
417 | } |
||
418 | pid=fork(); if(pid) return; /* parent */ |
||
8155 | bpr | 419 | /* double fork to escape sysmask orphan. */ |
12210 | bpr | 420 | pid=fork(); if(pid) { /* secondary parent */ |
421 | snprintf(tmplbuf,sizeof(tmplbuf),"%u",pid); |
||
422 | mkdirs("../tmp/log"); |
||
423 | chmod("../tmp/log",S_IRUSR|S_IWUSR|S_IXUSR); |
||
424 | accessfile(tmplbuf,"w",logdpid); |
||
425 | exit(0); |
||
426 | } |
||
427 | setreuid(geteuid(),geteuid());setregid(getegid(),getegid()); |
||
428 | snprintf(tmplbuf,sizeof(tmplbuf),"%u %u %u %u %u %u %d %d %d", |
||
429 | idle_time,idle_time2,idle_time3, |
||
430 | OLD_LOG_FILES,GEN_LOG_LIMIT, |
||
431 | MODULE_LOG_LIMIT,backup_hour,site_accounting, |
||
432 | examlog_limit); |
||
7563 | bpr | 433 | |
12210 | bpr | 434 | setenv("wimslogd",tmplbuf,1); |
435 | execve(arg[0],arg,environ); |
||
436 | fprintf(stderr,"Unable to execute wimslogd: %s\n",strerror(errno)); |
||
437 | exit(1); |
||
10 | reyssat | 438 | } |
439 | |||
440 | void checklogd(void) |
||
441 | { |
||
12210 | bpr | 442 | int i,t; |
443 | char *p1, *p2, *p, buf[MAX_LINELEN+1]; |
||
444 | sun.sun_family=PF_UNIX; |
||
445 | snprintf(sun.sun_path,sizeof(sun.sun_path),"%s",ksockfile); |
||
446 | p=getenv("REMOTE_ADDR"); if(p==NULL) p=""; |
||
447 | snprintf(buf+sizeof(int),sizeof(buf)-sizeof(int),"ping %s",p); |
||
448 | t=kerneld(buf,sizeof(buf)); if(t<0) { |
||
449 | bringuplogd(); |
||
450 | for(i=0; i<10 && t<0; i++) { |
||
451 | msleep(100); |
||
452 | snprintf(buf+sizeof(int),sizeof(buf)-sizeof(int),"ping %s",p); |
||
453 | t=kerneld(buf,sizeof(buf)); |
||
10 | reyssat | 454 | } |
12210 | bpr | 455 | } |
456 | if(t<0) internal_error("Unable to bring up wimslogd."); |
||
457 | p1=find_word_start(buf+sizeof(int)); p2=find_word_end(p1); |
||
458 | if(*p2) *p2++=0; |
||
459 | if(strcmp(p1,"OK")!=0) internal_error("wimslogd error."); |
||
460 | if(*p2=='1') hostcquota=1; else hostcquota=0; |
||
461 | p1=find_word_start(find_word_end(p2)); |
||
462 | p2=strchr(p1,'\n'); if(p2) *p2++=0; else p2=p1+strlen(p1); |
||
463 | mystrncpy(loadavg,p1,sizeof(loadavg)); |
||
464 | p2=find_word_start(p2); |
||
465 | p1=find_word_end(p2); if(*p1) *p1++=0; |
||
7563 | bpr | 466 | |
12210 | bpr | 467 | p=getenv("SERVER_ADDR"); |
468 | if(*p2!=0 && memcmp(p,"10.",3)==0) p=p2; |
||
469 | if(p!=NULL) { |
||
470 | i=strlen(cookieheader); |
||
471 | snprintf(cookieheader+i, sizeof(cookieheader)-i,"%s/",p); |
||
472 | } |
||
473 | p=getenv("HTTP_COOKIE"); cookiegot[0]=0; |
||
474 | if(p!=NULL && (p2=strstr(p,cookieheader))!=NULL) { |
||
475 | mystrncpy(cookiegot,find_word_start(p+strlen(cookieheader)),sizeof(cookiegot)); |
||
476 | *find_word_end(cookiegot)=0; |
||
477 | } |
||
10 | reyssat | 478 | } |