Subversion Repositories wimsdev

Rev

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
}