]> git.ipfire.org Git - thirdparty/sarg.git/blob - report.c
Changed Pedro's address in headers.
[thirdparty/sarg.git] / report.c
1 /*
2 * AUTHOR: Pedro Lineu Orso pedro.orso@gmail.com
3 * 1998, 2008
4 * SARG Squid Analysis Report Generator http://sarg.sourceforge.net
5 *
6 * SARG donations:
7 * please look at http://sarg.sourceforge.net/donations.php
8 * ---------------------------------------------------------------------
9 *
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 2 of the License, or
13 * (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
23 *
24 */
25
26 #include "include/conf.h"
27 #include "include/defs.h"
28
29 void gerarel()
30 {
31
32 FILE *fp_in, *fp_ou;
33
34 char accdia[11], acchora[9], accuser[MAXLEN], accip[MAXLEN], accurl[MAXLEN], accbytes[12], accelap[10];
35 char oldaccdia[11], oldacchora[9], oldaccip[MAXLEN], wdir[MAXLEN], per1[MAXLEN];
36 char wdirname[MAXLEN], oldurl[MAXLEN], oldaccuser[MAXLEN];
37 char olduser[MAXLEN], oldmsg[50], acccode[50], oldaccelap[10], oldacccode[50], user[MAXLEN];
38 char ipantes[MAXLEN], nameantes[MAXLEN], wdname[MAXLEN], wname2[MAXLEN];
39 char accsmart[MAXLEN];
40 char wcrc[50];
41 char crc2[50];
42 char u2[255];
43 long long int nbytes=0;
44 long long int nelap=0;
45 long long int nacc=0;
46 long long int rtotal=0;
47 long long int incache=0;
48 long long int oucache=0;
49 char *s;
50 DIR *dirp;
51 struct dirent *direntp;
52
53 ipantes[0]='\0';
54 nameantes[0]='\0';
55 smartfilter=0;
56
57 sprintf(dirname, "%s%s", outdir, periodo);
58 sprintf(wdir, "%s%s", outdir, periodo);
59 strcpy(per1,periodo);
60 vrfydir(wdir, per1, addr, site, us, email);
61
62 if(debugz){
63 debugaz("dirname",dirname);
64 debugaz("wdir",wdir);
65 }
66
67 strcpy(wdirname,dirname);
68 gperiodo();
69
70 if(strlen(UserAgentLog) > 0 && email[0] == '\0')
71 useragent();
72
73 olduser[0]='\0';
74 strncat(tmp,"/sarg",5);
75
76 dirp = opendir(tmp);
77 while ((direntp = readdir( dirp )) != NULL ) {
78 if(strstr(direntp->d_name,".log") == 0)
79 continue;
80 if(strncmp(direntp->d_name,"download.log",12) == 0)
81 continue;
82 if(strncmp(direntp->d_name,"denied.log",10) == 0)
83 continue;
84 if(strncmp(direntp->d_name,"authfail.log.unsort",19) == 0)
85 continue;
86 sprintf(tmp3,"%s/%s",tmp,direntp->d_name);
87 if((fp_in=fopen(tmp3,"r"))==NULL){
88 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],tmp);
89 exit(1);
90 }
91
92 strcpy(wdname,direntp->d_name);
93 strip_prefix:
94 getword(wname2,wdname,'.');
95 strcat(user,wname2);
96
97 if(strcmp(wdname,"log") !=0) {
98 strcat(user,".");
99 goto strip_prefix;
100 }
101
102 strcpy(wdirname,dirname);
103 maketmp(user,tmp,debug,indexonly);
104 maketmp_hour(user,tmp,indexonly);
105
106 ttopen=0;
107 bzero(html_old, MAXLEN);
108
109 while(fgets(buf,sizeof(buf),fp_in)!=NULL) {
110 getword(accdia,buf,' ');
111 getword(acchora,buf,' ');
112 getword(accuser,buf,' ');
113 getword(accip,buf,' ');
114 getword(accurl,buf,' ');
115 getword(accbytes,buf,' ');
116 getword(acccode,buf,' ');
117 if(strncmp(acccode,"TCP_DENIED/407",14) == 0)
118 continue;
119 getword(accelap,buf,' ');
120 getword(accsmart,buf,' ');
121 getword(accsmart,buf,'"');
122
123 if(strlen(accsmart) > 0) {
124 smartfilter++;
125 strcpy(wdirname,dirname);
126 grava_SmartFilter(wdirname,accuser,accip,accdia,acchora,accurl,accsmart);
127 }
128
129 if(strcmp(Ip2Name,"yes") == 0) {
130 if(strcmp(accip,ipantes) != 0) {
131 strcpy(ipantes,accip);
132 ip2name(accip);
133 strcpy(nameantes,accip);
134 } else strcpy(accip,nameantes);
135 }
136
137 strcpy(wdirname,dirname);
138 gravatmp_hora(wdirname,accuser,accdia,acchora,accelap,accbytes,indexonly);
139
140 if(iprel){
141 strcpy(wdirname,dirname);
142 gravaporuser(accuser,wdirname,accurl,accip,accdia,acchora,accbytes,accelap,indexonly);
143 }
144
145 if(!rtotal){
146 strcpy(oldurl,accurl);
147 strcpy(oldacccode,acccode);
148 strcpy(oldaccelap,accelap);
149 strcpy(oldaccuser,accuser);
150 strcpy(oldaccip,accip);
151 strcpy(oldaccdia,accdia);
152 strcpy(oldacchora,acchora);
153 rtotal++;
154 }
155
156 if(site[0] != '\0') {
157 if(strcmp(oldaccuser,accuser) != 0){
158 strcpy(oldmsg,"OK");
159 if(strstr(oldacccode,"DENIED") != 0)
160 sprintf(oldmsg,"%s",text[46]);
161 gravatmp(oldaccuser,wdirname,oldurl,nacc,nbytes,oldmsg,nelap,indexonly,incache,oucache);
162 gravager(wdirname,oldaccuser,nacc,oldurl,nbytes,oldaccip,oldacchora,oldaccdia,nelap,
163 incache,oucache);
164 nacc=0;
165 nbytes=0;
166 nelap=0;
167 incache=0;
168 oucache=0;
169 }
170 } else {
171 if(strcmp(oldurl,accurl) != 0 || strcmp(oldaccuser,accuser) != 0){
172 strcpy(oldmsg,"OK");
173 if(strstr(oldacccode,"DENIED") != 0)
174 sprintf(oldmsg,"%s",text[46]);
175 strcpy(wdirname,dirname);
176 gravatmp(oldaccuser,wdirname,oldurl,nacc,nbytes,oldmsg,nelap,indexonly,incache,oucache);
177 strcpy(wdirname,dirname);
178 gravager(wdirname,oldaccuser,nacc,oldurl,nbytes,oldaccip,oldacchora,oldaccdia,nelap,incache,oucache);
179 nacc=0;
180 nbytes=0;
181 nelap=0;
182 incache=0;
183 oucache=0;
184 if(strcmp(oldaccuser,accuser) != 0)
185 ind2=0;
186 }
187 }
188 nacc++;
189 nbytes+=my_atoll(accbytes);
190 nelap+=my_atoll(accelap);
191
192 if(strstr(ReportType,"site_user_time_date") != 0) {
193 if(!ttopen) {
194 ind2++;
195 strcpy(siteind,accurl);
196 str=siteind;
197 for(z1=0; z1<strlen(str); z1++) {
198 if(str[z1]=='?' || str[z1]=='-' || str[z1]=='.' || str[z1]==':' || str[z1]=='/' || str[z1]=='\\')
199 str[z1]='_';
200 }
201 sprintf(arqtt,"%s/%s",dirname,accuser);
202 if(access(arqtt, R_OK) != 0)
203 my_mkdir(arqtt);
204 sprintf(arqtt,"%s/%s/tt%s-%s.html",dirname,accuser,accuser,siteind);
205 if(strlen(arqtt) > 255) {
206 strncpy(val7,arqtt,255);
207 bzero(arqtt,MAXLEN);
208 strcpy(arqtt,val7);
209 }
210 if ((fp_tt = fopen(arqtt, "w")) == 0) {
211 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],arqtt);
212 exit(1);
213 }
214 ttopen=1;
215
216 if(strcmp(Privacy,"yes") == 0)
217 sprintf(httplink,"<font size=%s color=%s><href=http://%s>%s", \
218 FontSize,PrivacyStringColor,PrivacyString,PrivacyString);
219 else
220 sprintf(httplink,"<font size=%s><a href=http://%s>%s</A>",FontSize,accurl,accurl);
221
222 sprintf(ltext110,"%s",text[110]);
223 if(ltext110){
224 for(s=ltext110; *s; ++s)
225 *s=tolower(*s);
226 }
227
228 fputs("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"",fp_tt);
229 fputs(" \"http://www.w3.org/TR/html4/loose.dtd\">\n",fp_tt);
230 fputs("<html>\n",fp_tt);
231 fputs("<head>\n",fp_tt);
232 sprintf(html," <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">\n",CharSet);
233 fputs(html,fp_tt);
234 css(fp_tt);
235 fputs("</head>\n",fp_tt);
236
237 sprintf(html,"<body bgcolor=%s text=%s background='%s'>\n",BgColor,TxColor,BgImage);
238 fputs(html,fp_tt);
239
240 fputs("<center><table cellpadding=0 cellspacing=0>\n",fp_tt);
241
242 if(strlen(LogoImage) > 0) {
243 fputs("<center><table cellpadding=\"0\" cellspacing=\"0\">\n",fp_tt);
244 sprintf(html,"<tr><th class=\"logo\"><img src='%s' border=0 align=absmiddle width=%s height=%s>&nbsp;%s</th></tr>\n",LogoImage,Width,Height,LogoText);
245 fputs(html,fp_tt);
246 fputs("<tr><td height=\"5\"></td></tr>\n",fp_tt);
247 fputs("</table>\n",fp_tt);
248 }
249
250 if(strcmp(IndexTree,"date") == 0)
251 show_sarg(fp_tt, "../../../..");
252 else
253 show_sarg(fp_tt, "../..");
254
255 sprintf(html,"<tr><th class=\"title\" colspan=\"2\">%s</th></tr>\n",Title);
256 fputs(html,fp_tt);
257
258 strcpy(u2,user);
259 if(strcmp(Ip2Name,"yes") == 0)
260 ip2name(u2);
261 if(UserTabFile[0] != '\0') {
262 sprintf(warea,":%s:",u2);
263 if((str=(char *) strstr(userfile,warea)) != (char *) NULL ) {
264 z1=0;
265 str2=(char *) strstr(str+1,":");
266 str2++;
267 bzero(name, MAXLEN);
268 while(str2[z1] != ':') {
269 name[z1]=str2[z1];
270 z1++;
271 }
272 } else strcpy(name,u2);
273 } else strcpy(name,u2);
274
275 if(dotinuser && strstr(name,"_")) {
276 str2=(char *)subs(name,"_",".");
277 strcpy(name,str2);
278 }
279
280 sprintf(html,"<tr><td class=\"header\" colspan=\"2\">%s:&nbsp;%s</td></tr>\n",text[89],periodo);
281 fputs(html,fp_tt);
282 sprintf(html,"<tr><td class=\"header\" colspan=\"2\">%s:&nbsp;%s</td></tr>\n",text[90],name);
283 fputs(html,fp_tt);
284 sprintf(html,"<tr><td class=\"header\" colspan=\"2\">%s:&nbsp;%s, %s</td></tr>\n",text[104],UserSortField,UserSortOrder);
285 fputs(html,fp_tt);
286 sprintf(html,"<tr><td class=\"header3\" colspan=2>%s %s</td></tr>\n",text[32],text[55]);
287 fputs(html,fp_tt);
288
289 fputs("</table></center>\n",fp_tt);
290 fputs("<center><table cellpadding=\"0\" cellspacing=\"2\">\n",fp_tt);
291 fputs("<tr><td></td><td></td></tr>",fp_tt);
292 bzero(tmp4, MAXLEN);
293 bzero(tmp5, MAXLEN);
294 strncpy(tmp4,text[110],4);
295 strncpy(tmp5,text[110]+5,4);
296 sprintf(html,"<tr><th class=\"data\">%s</th><th class=\"data\">%s</th><th class=\"data\">%s</th></tr>\n",text[91],tmp4,tmp5);
297 fputs(html,fp_tt);
298 }
299
300 sprintf(html,"<tr><td class=\"data\">%s</td><td class=\"data\">%s</td><td class=\"data\">%s</td></tr>\n",accurl,accdia,acchora);
301
302 if(strcmp(html,html_old) != 0)
303 fputs(html,fp_tt);
304 strcpy(html_old, html);
305 } else {
306 bzero(ltext110, 50);
307 }
308
309 strcpy(wcrc,acccode);
310 getword(crc2,wcrc,'/');
311
312 if(strstr(crc2,"MISS") != 0)
313 oucache+=my_atoll(accbytes);
314 else incache+=my_atoll(accbytes);
315
316 strcpy(oldurl,accurl);
317
318 if(strcmp(accuser,oldaccuser) != 0) {
319 strcpy(wdirname,dirname);
320 totaliza_day(tmp,oldaccuser,indexonly);
321 }
322
323 strcpy(oldaccuser,accuser);
324 strcpy(oldacccode,acccode);
325 strcpy(oldaccelap,accelap);
326 strcpy(oldaccip,accip);
327 strcpy(oldaccdia,accdia);
328 strcpy(oldacchora,acchora);
329
330 }
331 bzero(user,MAXLEN);
332 fclose(fp_in);
333 unlink(tmp3);
334 }
335
336 strcpy(oldmsg,"OK");
337 if(strstr(oldacccode,"DENIED") != 0)
338 sprintf(oldmsg,"%s",text[46]);
339 strcpy(wdirname,dirname);
340 gravatmpf(oldaccuser,wdirname,oldurl,nacc,nbytes,oldmsg,nelap,indexonly,incache,oucache);
341 strcpy(wdirname,dirname);
342 gravager(wdirname,oldaccuser,nacc,oldurl,nbytes,oldaccip,oldacchora,oldaccdia,nelap,incache,oucache);
343 strcpy(wdirname,dirname);
344 totaliza_day(tmp,oldaccuser,indexonly);
345
346 tmpsort();
347
348 strcpy(wdirname,dirname);
349 totalger(wdirname, debug, outdir);
350
351 if(strlen(email) == 0) {
352 if(strstr(ReportType,"downloads") != 0)
353 download_report();
354
355 if(strlen(DansGuardianConf) > 0) {
356 strcpy(wdirname,dirname);
357 dansguardian_log();
358 }
359
360 strcpy(wdirname,dirname);
361 squidguard_log();
362
363 strcpy(wdirname,dirname);
364 topuser();
365
366 if(strstr(ReportType,"topsites") != 0)
367 topsites();
368
369 if(strstr(ReportType,"sites_users") != 0)
370 siteuser();
371 gen_denied_report();
372
373 strcpy(wdirname,dirname);
374 authfail_report();
375
376 if(smartfilter)
377 smartfilter_report();
378
379 if(strlen(DansGuardianConf) > 0)
380 dansguardian_report();
381
382 squidguard_report();
383
384 if(strstr(ReportType,"users_sites") != 0)
385 htmlrel();
386
387 make_index();
388
389 if(strncmp(SuccessfulMsg,"yes",3) == 0)
390 fprintf(stderr, "SARG: %s %s\n",text[47],dirname);
391 } else {
392 strcpy(wdirname,dirname);
393 geramail(wdirname, debug, outdir, userip, email, TempDir);
394
395 if(strcmp(email,"stdout") != 0) {
396 if(strncmp(SuccessfulMsg,"yes",3) == 0)
397 fprintf(stderr, "SARG: %s %s\n",text[48],email);
398 }
399 }
400
401 if(indexonly) {
402 strcpy(wdirname,dirname);
403 index_only(wdirname, debug);
404 }
405
406 removetmp(dirname);
407
408 return;
409 }
410
411
412 void maketmp(char *user, char *dirname, int debug, int indexonly)
413 {
414
415 FILE *fp_ou;
416
417 char wdirname[MAXLEN];
418
419 if(indexonly) return;
420 if(strstr(ReportType,"users_sites") == 0) return;
421
422 strcpy(wdirname,tmp);
423 strcat(wdirname,"/");
424 strcat(wdirname,user);
425
426 if(debug){
427 sprintf(msg,"%s: %s",text[49],wdirname);
428 debuga(msg);
429 }
430
431 strcat(wdirname,".utmp");
432 if((fp_ou=fopen(wdirname,"w"))==NULL){
433 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],wdirname);
434 exit(1);
435 }
436
437 fclose(fp_ou);
438 return;
439 }
440
441
442 void maketmp_hour(char *user, char *dirname, int indexonly)
443 {
444
445 FILE *fp_ou;
446
447 char wdirname[MAXLEN];
448
449 if(indexonly) return;
450 if(strstr(ReportType,"users_sites") == 0) return;
451
452 strcpy(wdirname,tmp);
453 strcat(wdirname,"/");
454 strcat(wdirname,user);
455
456 strcat(wdirname,".htmp");
457 if((fp_ou=fopen(wdirname,"w"))==NULL){
458 fprintf(stderr, "SARG: (report-1) %s: %s - %s\n",text[45],wdirname,strerror(errno));
459 exit(1);
460 }
461
462 fclose(fp_ou);
463 return;
464 }
465
466
467 void gravatmp(char *oldaccuser, char *dirname, char *oldurl, long long int nacc, long long int nbytes, char *oldmsg, long long int nelap, int indexonly, long long int incache, long long int oucache)
468 {
469
470 FILE *fp_ou;
471
472 char reg[MAXLEN];
473 char wdirname[MAXLEN];
474
475 if(indexonly) return;
476 if(strstr(ReportType,"users_sites") == 0) return;
477
478 strcpy(wdirname,tmp);
479 strcat(wdirname,"/");
480 strcat(wdirname,oldaccuser);
481 strcat(wdirname,".utmp");
482
483 if((fp_ou=fopen(wdirname,"a"))==NULL){
484 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],wdirname);
485 exit(1);
486 }
487
488 my_lltoa(nacc,val1,15);
489 my_lltoa(nbytes,val2,15);
490 my_lltoa(nelap,val3,15);
491 my_lltoa(incache,val4,15);
492 my_lltoa(oucache,val5,15);
493 sprintf(reg,"%s %s %s %s %s %s %s\n",val1,val2,oldurl,oldmsg,val3,val4,val5);
494 fputs(reg,fp_ou);
495
496 fclose(fp_ou);
497 ttopen=0;
498
499 if(fp_tt) {
500 fputs("</table>\n",fp_tt);
501 fputs("</body>\n</html>\n",fp_tt);
502 fclose(fp_tt);
503 }
504
505 return;
506
507 }
508
509
510 void gravatmp_hora(char *dirname, char *user, char *data, char *hora, char *elap, char *bytes, int indexonly)
511 {
512
513 FILE *fp_ou;
514
515 char reg[MAXLEN];
516 char wdirname[MAXLEN];
517
518 if(indexonly) return;
519 if(strstr(ReportType,"users_sites") == 0) return;
520
521 strcpy(wdirname,tmp);
522 strcat(wdirname,"/");
523 strcat(wdirname,user);
524 strcat(wdirname,".htmp");
525
526 if((fp_ou=fopen(wdirname,"a"))==NULL){
527 fprintf(stderr, "SARG: (report-2) %s: %s - %s\n",text[45],wdirname,strerror(errno));
528 exit(1);
529 }
530
531 if(strcmp(datetimeby,"bytes") == 0)
532 sprintf(reg,"%s %s %s\n",data,hora,bytes);
533 else sprintf(reg,"%s %s %s\n",data,hora,elap);
534 fputs(reg,fp_ou);
535
536 fclose(fp_ou);
537
538 return;
539 }
540
541
542 void gravaporuser(char *user, char *dirname, char *url, char *ip, char *data, char *hora, char *tam, char *elap, int indexonly)
543 {
544
545 FILE *fp_ou;
546
547 char reg[MAXLEN];
548 char wdirname[MAXLEN];
549
550 if(indexonly) return;
551 if(strstr(ReportType,"users_sites") == 0) return;
552
553 strcpy(wdirname,tmp);
554 strcat(wdirname,"/");
555 strcat(wdirname,user);
556 strcat(wdirname,".ip");
557
558 if((fp_ou=fopen(wdirname,"a"))==NULL){
559 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],wdirname);
560 exit(1);
561 }
562
563 sprintf(reg,"%s %s %s %s %s %s\n",ip,url,data,hora,tam,elap);
564 fputs(reg,fp_ou);
565
566 fclose(fp_ou);
567
568 return;
569
570 }
571
572
573 void gravatmpf(char *oldaccuser, char *dirname, char *oldurl, long long int nacc, long long int nbytes, char *oldmsg, long long int nelap, int indexonly, long long int incache, long long int oucache)
574 {
575
576 FILE *fp_ou;
577
578 char reg[MAXLEN];
579 char wdirname[MAXLEN];
580
581 if(indexonly) return;
582 if(strstr(ReportType,"users_sites") == 0) return;
583
584 strcpy(wdirname,tmp);
585 strcat(wdirname,"/");
586 strcat(wdirname,oldaccuser);
587 strcat(wdirname,".utmp");
588
589 if((fp_ou=fopen(wdirname,"a"))==NULL){
590 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],wdirname);
591 exit(1);
592 }
593
594 my_lltoa(nacc,val1,15);
595 my_lltoa(nbytes,val2,15);
596 my_lltoa(nelap,val3,15);
597 my_lltoa(incache,val4,15);
598 my_lltoa(oucache,val5,15);
599 sprintf(reg,"%s %s %s %s %s %s %s\n",val1,val2,oldurl,oldmsg,val3,val4,val5);
600 fputs(reg,fp_ou);
601
602 fclose(fp_ou);
603 ttopen=0;
604 ind2=0;
605
606 if(fp_tt) {
607 fputs("</table>\n",fp_tt);
608 fputs("</html>\n",fp_tt);
609 fclose(fp_tt);
610 }
611
612 return;
613
614 }
615
616
617 void gravager(char *dirname, char *user, long long int nacc, char *url, long long int nbytes, char *ip, char *hora, char *dia, long long int nelap, long long int incache, long long int oucache)
618 {
619
620 FILE *fp_ou;
621 char reg[MAXLEN];
622
623 strcat(dirname,"/");
624 strcat(dirname,"geral");
625
626 if((fp_ou=fopen(dirname,"a"))==NULL){
627 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],dirname);
628 exit(1);
629 }
630
631 my_lltoa(nacc,val1,15);
632 my_lltoa(nbytes,val2,15);
633 my_lltoa(nelap,val3,15);
634 my_lltoa(incache,val4,15);
635 my_lltoa(oucache,val5,15);
636 sprintf(reg,"%s %s %s %s %s %s %s %s %s %s\n",user,val1,val2,url,ip,hora,dia,val3,val4,val5);
637 fputs(reg,fp_ou);
638
639 fclose(fp_ou);
640 return;
641
642 }
643
644 void grava_SmartFilter(char *dirname, char *user, char *ip, char *data, char *hora, char *url, char *smart)
645 {
646
647 FILE *fp_ou;
648
649 char reg[MAXLEN];
650 char wdirname[MAXLEN];
651
652 sprintf(wdirname,"%s/smartfilter.unsort",dirname);
653
654 if((fp_ou=fopen(wdirname,"a"))==NULL){
655 fprintf(stderr, "SARG: (report) %s: %s\n",text[45],wdirname);
656 exit(1);
657 }
658
659 sprintf(reg,"%s %s %s %s %s %s\n",user,data,hora,ip,url,smart);
660 fputs(reg,fp_ou);
661 fputs("</body>\n</html>\n",fp_tt);
662
663 fclose(fp_ou);
664
665 return;
666
667 }