[thirdparty/sarg.git] / html.c

/*
 * SARG Squid Analysis Report Generator      http://sarg.sourceforge.net
 *                                                            1998, 2010
 *
 * SARG donations:
 *      please look at http://sarg.sourceforge.net/donations.php
 * Support:
 *     http://sourceforge.net/projects/sarg/forums/forum/363374
 * ---------------------------------------------------------------------
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 *
 */

#include "include/conf.h"
#include "include/defs.h"

void htmlrel(void)
{
   DIR *dirp;
   FILE *fp_in, *fp_ou, *fp_ip, *fp_ip2, *fp_usr;

   struct dirent *direntp;
   long long int nnbytes=0, unbytes=0, tnbytes=0, totbytes=0, totbytes2=0;
   long long int totelap=0, totelap2=0, nnelap=0, unelap=0, tnelap=0;
   long long int incache=0, oucache=0, tnincache=0, tnoucache=0, twork=0;
   long long int ltemp;
   long long int ntotuser;
   long long int userbytes, userelap;
   char *buf;
   char arqin[MAXLEN], arqou[MAXLEN], arqper[MAXLEN], arqip[MAXLEN];
   char *url, tmsg[50], csort[MAXLEN];
   char period[MAXLEN], user[MAXLEN], duser[MAXLEN];
   char userhora[9], userdia[9];
   char user_ip[MAXLEN], olduserip[MAXLEN], tmp2[MAXLEN], tmp3[MAXLEN];
   char denied_report[255];
   char *str;
   char warea[MAXLEN];
   char totuser[8];
   char ltext110[100];
   char tmp6[MAXLEN];
   long long int tnacc=0, ttnacc=0, unacc=0;
   double perc=0, perc2=0, ouperc=0, inperc=0;
   char *s;
   int count;
   int cstatus;
   const char txtext[]=".txt";
   int dlen;
   char siteind[MAX_TRUNCATED_URL];
   struct getwordstruct gwarea;
   struct longlinestruct line,line1;
   struct generalitemstruct item;
   const struct userinfostruct *uinfo;

   if((ReportType & REPORT_TYPE_USERS_SITES) == 0) return;

   strcpy(tmp2,TempDir);
   strcat(tmp2,"/sargtmp.unsort");

   strcpy(tmp3,TempDir);
   strcat(tmp3,"/sargtmp.log");

   strcpy(arqper,dirname);
   strcat(arqper,"/sarg-period");
   if ((fp_in = fopen(arqper, "r")) == 0){
      fprintf(stderr, "SARG: (html1) %s: %s\n",_("Cannot open file"),arqper);
      exit(1);
   }
   if (!fgets(period,sizeof(period),fp_in)) {
      fprintf(stderr,"SARG: (html1) read error in %s\n",arqper);
      exit(1);
   }
   fclose(fp_in);

   strcpy(arqper,dirname);
   strcat(arqper,"/sarg-general");
   if ((fp_in = fopen(arqper, "r")) == 0){
      fprintf(stderr, "SARG: (html2) %s: %s\n",_("Cannot open file"),arqper);
      exit(1);
   }
   if (longline_prepare(&line)<0) {
      debuga(_("Not enough memory to read file %s\n"),arqper);
      exit(1);
   }
   ttnacc=0;
   totbytes=0;
   totelap=0;
   while((buf=longline_read(fp_in,&line))!=NULL) {
      ger_read(buf,&item,arqper);
      if(item.total) {
         ttnacc+=item.nacc;
         totbytes+=item.nbytes;
         totelap+=item.nelap;
      }
   }
   fclose(fp_in);
   longline_free(&line);

   strcpy(arqper,dirname);
   strcat(arqper,"/sarg-users");
   if ((fp_in = fopen(arqper, "r")) == 0){
      fprintf(stderr, "SARG: (html11) %s: %s\n",_("Cannot open file"),arqper);
      exit(1);
   }
   if (!fgets(totuser,sizeof(totuser),fp_in)) {
      fprintf(stderr,"SARG: (html11) read error in %s\n",arqper);
      exit(1);
   }
   fclose(fp_in);
   ntotuser=my_atoll(totuser);
   if (ntotuser<=0) ntotuser=1;

   dirp = opendir(tmp);
   while ( (direntp = readdir( dirp )) != NULL ) {
      dlen=strlen(direntp->d_name)-(sizeof(txtext)-1);
      if (dlen<0) continue;
      if(strcmp(direntp->d_name+dlen,txtext) != 0)
         continue;

      count=1;
      if (dlen>0) {
         if (dlen>=sizeof(user)) continue;
         strncpy(user,direntp->d_name,dlen);
         user[dlen]=0;
      } else {
         user[0]=0;
      }

      uinfo=userinfo_find_from_file(user);
      if (!uinfo) {
         debuga(_("Unknown user ID %s in directory %s\n"),user,tmp);
         exit(1);
      }
      str=strrchr(user,'.');
      if (str)
         strcpy(denied_report,str+1);
      else
         strcpy(denied_report,user);

      if (snprintf(warea,sizeof(warea),"%s/%s",dirname,user)>=sizeof(warea)) {
         debuga(_("Destination directory too long: %s/%s\n"),dirname,user);
         exit(1);
      }
      mkdir(warea,0755);

      report_day(uinfo);
      greport_day(uinfo);

      if (snprintf(arqin,sizeof(arqin),"%s/%s",tmp,direntp->d_name)>=sizeof(arqin)) {
         debuga(_("Input file name too long: %s/%s\n"),tmp,direntp->d_name);
         exit(1);
      }
      if (snprintf(arqou,sizeof(arqou),"%s/%s/%s.html",dirname,uinfo->filename,uinfo->filename)>=sizeof(arqou)) {
         debuga(_("Output file name too long: %s/%s/%s.html\n"),dirname,uinfo->filename,uinfo->filename);
         exit(1);
      }
      if (snprintf(duser,sizeof(duser),"%s/%s/denied_%s.html",tmp,direntp->d_name,denied_report)>=sizeof(duser)) {
         debuga(_("File name too long: %s/%s/denied_%s.html\n"),tmp,direntp->d_name,denied_report);
         exit(1);
      }
      if(access(duser, R_OK) != 0)
         denied_report[0]='\0';

      if ((fp_in = fopen(arqin, "r")) == 0){
         fprintf(stderr, "SARG: (html3) %s: %s\n",_("Cannot open file"),arqin);
         exit(1);
      }

      if (longline_prepare(&line)<0) {
         debuga(_("Not enough memory to read file %s\n"),arqin);
         exit(1);
      }

      tnacc=0;
      tnbytes=0;
      tnelap=0;
      tnincache=0;
      tnoucache=0;
      while((buf=longline_read(fp_in,&line))!=NULL) {
         getword_start(&gwarea,buf);
         if (getword_atoll(&ltemp,&gwarea,'\t')<0) {
            debuga(_("There is a broken number of access in file %s\n"),arqin);
            exit(1);
         }
         tnacc+=ltemp;
         if (getword_atoll(&ltemp,&gwarea,'\t')<0) {
            debuga(_("There is a broken downloaded size in file %s\n"),arqin);
            exit(1);
         }
         tnbytes+=ltemp;
         if (getword_ptr(NULL,NULL,&gwarea,'\t')<0) {
            debuga(_("There is a broken url in file %s\n"),arqin);
            exit(1);
         }
         if (getword_skip(MAXLEN,&gwarea,'\t')<0) {
            debuga(_("There is a broken access code in file %s\n"),arqin);
            exit(1);
         }
         if (getword_atoll(&ltemp,&gwarea,'\t')<0) {
            debuga(_("There is a broken elapsed time in file %s\n"),arqin);
            exit(1);
         }
         tnelap+=ltemp;
         if (getword_atoll(&ltemp,&gwarea,'\t')<0) {
            debuga(_("There is a broken in-cache volume in file %s\n"),arqin);
            exit(1);
         }
         tnincache+=ltemp;
         if (getword_atoll(&ltemp,&gwarea,'\n')<0) {
            debuga(_("There is a broken out-cache volume in file %s\n"),arqin);
            exit(1);
         }
         tnoucache+=ltemp;
      }

      rewind(fp_in);

      if ((fp_ou = fopen(arqou, "w")) == 0){
         fprintf(stderr, "SARG: (html5) %s: %s\n",_("Cannot open file"),arqou);
         exit(1);
      }

      write_html_header(fp_ou,(IndexTree == INDEX_TREE_DATE) ? 4 : 2,_("User report"));
      fprintf(fp_ou,"<tr><td class=\"header_l\">%s:&nbsp;%s</td></tr>\n",_("Period"),period);
      fprintf(fp_ou,"<tr><td class=\"header_l\">%s:&nbsp;%s</td></tr>\n",_("User"),uinfo->label);
      fprintf(fp_ou,"<tr><td class=\"header_l\">%s:&nbsp;%s, %s</td></tr>\n",_("Sort"),UserSortField,UserSortOrder);
      fprintf(fp_ou,"<tr><td class=\"header_c\">%s %s</td></tr>\n",_("User"),_("Report"));
      //fputs("<tr><td></td></tr>\n",fp_ou);
      close_html_header(fp_ou);

      fputs("<div class=\"report\"><table cellpadding=\"2\" cellspacing=\"1\">\n",fp_ou);

      if(denied_report[0]!='\0') {
         fprintf(fp_ou,"<tr><td class=\"header_l\" colspan=\"11\"><a href=\"denied_%s.html\">%s</a> %s</td></tr>\n",denied_report,_("SmartFilter"),_("Report"));
      }

      fprintf(fp_ou,"<tr><th></th><th class=\"header_l\">%s</th>",_("ACCESSED SITE"));

      if((UserReportFields & USERREPORTFIELDS_CONNECT) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%s</th>",_("CONNECT"));
      if((UserReportFields & USERREPORTFIELDS_BYTES) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%s</th>",_("BYTES"));
      if((UserReportFields & USERREPORTFIELDS_SETYB) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%%%s</th>",_("BYTES"));
      if((UserReportFields & USERREPORTFIELDS_IN_CACHE_OUT) != 0)
         fprintf(fp_ou,"<th class=\"header_c\" colspan=\"2\">%s-%s-%s</th>",_("IN"),_("CACHE"),_("OUT"));
      if((UserReportFields & USERREPORTFIELDS_USED_TIME) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%s</th>",_("ELAPSED TIME"));
      if((UserReportFields & USERREPORTFIELDS_MILISEC) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%s</th>",_("MILISEC"));
      if((UserReportFields & USERREPORTFIELDS_PTIME) != 0)
         fprintf(fp_ou,"<th class=\"header_l\">%%%s</th>",_("TIME"));

      fputs("</tr>\n",fp_ou);

      if(debug) {
         debuga(_("Making report: %s\n"),uinfo->id);
      }

      while((buf=longline_read(fp_in,&line))!=NULL) {
         getword_start(&gwarea,buf);
         if (getword_atoll(&twork,&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken number of access in your %s file.\n",arqin);
            exit(1);
         }
         if (getword_atoll(&nnbytes,&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken number of bytes in your %s file.\n",arqin);
            exit(1);
         }
         if (getword_ptr(buf,&url,&gwarea,'\t')<0) {
            debuga(_("Maybe you have a broken url in your %s file\n"),arqin);
            exit(1);
         }
         if (getword(tmsg,sizeof(tmsg),&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken status in your %s file.\n",arqin);
            exit(1);
         }
         if (getword_atoll(&nnelap,&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken elapsed time in your %s file.\n",arqin);
            exit(1);
         }
         if (getword_atoll(&incache,&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken in cache column in your %s file.\n",arqin);
            exit(1);
         }
         if (getword_atoll(&oucache,&gwarea,'\n')<0) {
            printf("SARG: Maybe you have a broken not in cache column in your %s file (%d).\n",arqin,__LINE__);
            exit(1);
         }

         if(UserReportLimit<=0 || count<=UserReportLimit) {
            fputs("<tr>",fp_ou);

            if(IndexTree == INDEX_TREE_DATE)
               sprintf(tmp6,"../%s",ImageFile);
            else
               strcpy(tmp6,"../../images");

            if((ReportType & REPORT_TYPE_SITE_USER_TIME_DATE) != 0) {
               s=_("DATE/TIME");
               for(z1=0 ; z1<sizeof(ltext110)-1 && s[z1] ; z1++)
                  ltext110[z1]=tolower(s[z1]);
               ltext110[z1]='\0';
               url_to_file(url,siteind,sizeof(siteind));
               fprintf(fp_ou,"<td class=\"data\"><a href=\"tt%s-%s.html\"><img src=\"%s/datetime.png\" title=\"%s %s\" alt=\"T\"></a></td>",uinfo->filename,siteind,tmp6,ltext110,_("Report"));
            } else {
               fprintf(fp_ou,"<td class=\"data\"></td>");
            }

            if(Privacy)
               fprintf(fp_ou,"<td class=\"data2\"><span style=\"color:%s;\">%s</span></td>",PrivacyStringColor,PrivacyString);
            else {
               fputs("<td class=\"data2\">",fp_ou);
               if(BlockIt[0]!='\0') {
                  fprintf(fp_ou,"<a href=\"%s%s?url=",wwwDocumentRoot,BlockIt);
                  output_html_url(fp_ou,url);
                  fprintf(fp_ou,"\"><img src=\"%s/sarg-squidguard-block.png\"></a>&nbsp;",tmp6);
               }
               fputs("<a href=\"http://",fp_ou);
               output_html_url(fp_ou,url);
               fputs("\">",fp_ou);
               output_html_string(fp_ou,url,100);
               fputs("</a></td>",fp_ou);
            }

            if((UserReportFields & USERREPORTFIELDS_CONNECT) != 0)
               fprintf(fp_ou,"<td class=\"data\">%s</td>",fixnum(twork,1));
            if((UserReportFields & USERREPORTFIELDS_BYTES) != 0)
               fprintf(fp_ou,"<td class=\"data\">%s</td>",fixnum(nnbytes,1));
            if((UserReportFields & USERREPORTFIELDS_SETYB) != 0) {
               perc=(tnbytes) ? nnbytes * 100. / tnbytes : 0.;
               fprintf(fp_ou,"<td class=\"data\">%3.2lf%%</td>",perc);
            }
            if((UserReportFields & USERREPORTFIELDS_IN_CACHE_OUT) != 0) {
               inperc=(nnbytes) ? incache * 100. / nnbytes : 0.;
               ouperc=(nnbytes) ? oucache * 100. / nnbytes : 0.;
               fprintf(fp_ou,"<td class=\"data\">%3.2lf%%</td><td class=\"data\">%3.2lf%%</td>",inperc,ouperc);
            }
            if((UserReportFields & USERREPORTFIELDS_USED_TIME) != 0)
               fprintf(fp_ou,"<td class=\"data\">%s</td>",buildtime(nnelap));
            if((UserReportFields & USERREPORTFIELDS_MILISEC) != 0)
               fprintf(fp_ou,"<td class=\"data\">%s</td>",fixnum2(nnelap,1));
            if((UserReportFields & USERREPORTFIELDS_PTIME) != 0) {
               perc2=(tnelap) ? nnelap * 100. / tnelap : 0.;
               fprintf(fp_ou,"<td class=\"data\">%3.2lf%%</td>",perc2);
            }

            if(strncmp(tmsg,"OK",2) != 0)
               fprintf(fp_ou,"<td class=\"data\">%s</td>",_("DENIED"));

            fputs("</tr>\n",fp_ou);
            count++;
         }

         if(iprel) {
            if (snprintf(arqip,sizeof(arqip),"%s/%s.ip",tmp,uinfo->filename)>=sizeof(arqip)) {
               debuga(_("File name too long: %s/%s.ip\n"),tmp,uinfo->filename);
               exit(1);
            }

            if ((fp_ip = fopen(arqip, "r")) == 0){
               fprintf(stderr, "SARG: (html6) %s: %s\n",_("Cannot open file"),arqip);
               exit(1);
            }

            if ((fp_ip2 = MY_FOPEN(tmp2, "a")) == 0){
               fprintf(stderr, "SARG: (html7) %s: %s\n",_("Cannot open file"),tmp2);
               exit(1);
            }

            if (longline_prepare(&line1)<0) {
               debuga(_("Not enough memory to read file %s\n"),arqip);
               exit(1);
            }
            while((buf=longline_read(fp_ip,&line1))!=NULL) {
               if(strstr(buf,url) != 0)
                  fputs(buf,fp_ip2);
            }
            longline_free(&line1);

            fclose(fp_ip);
            fclose(fp_ip2);

            sprintf(csort,"sort -n -T \"%s\" -k 1,1 -k 5,5 -o \"%s\" \"%s\"",TempDir,tmp3,tmp2);
            cstatus=system(csort);
            if (!WIFEXITED(cstatus) || WEXITSTATUS(cstatus)) {
               fprintf(stderr, "SARG: sort command return status %d\n",WEXITSTATUS(cstatus));
               fprintf(stderr, "SARG: sort command: %s\n",csort);
               exit(1);
            }

            if ((fp_ip = MY_FOPEN(tmp3, "r")) == 0) {
               fprintf(stderr, "SARG: (html8) %s: %s\n",_("Cannot open file"),tmp3);
               exit(1);
            }

            olduserip[0]='\0';

            if (longline_prepare(&line1)<0) {
               debuga(_("Not enough memory to read file %s\n"),arqip);
               exit(1);
            }
            while((buf=longline_read(fp_ip,&line1))!=NULL) {
               getword_start(&gwarea,buf);
               if (getword(user_ip,sizeof(user_ip),&gwarea,'\t')<0) {
                  printf("SARG: Maybe you have a broken user IP in your %s file.\n",tmp3);
                  exit(1);
               }
               if (getword_ptr(NULL,NULL,&gwarea,'\t')<0) {
                  debuga(_("Maybe you have a broken user url in your %s file\n"),tmp3);
                  exit(1);
               }
               if (getword(userdia,sizeof(userdia),&gwarea,'\t')<0) {
                  printf("SARG: Maybe you have a broken day in your %s file.\n",tmp3);
                  exit(1);
               }
               if (getword(userhora,sizeof(userhora),&gwarea,'\t')<0) {
                  printf("SARG: Maybe you have a broken time in your %s file.\n",tmp3);
                  exit(1);
               }
               if (getword_atoll(&userbytes,&gwarea,'\t')<0) {
                  printf("SARG: Maybe you have a broken size in your %s file.\n",tmp3);
                  exit(1);
               }
               if (getword_atoll(&userelap,&gwarea,'\t')<0) {
                  printf("SARG: Maybe you have a broken elapsed time in your %s file (%d).\n",tmp3,__LINE__);
                  exit(1);
               }
               if(strcmp(user_ip,olduserip) != 0) {
                  sprintf(wwork1,"%s",fixnum(unbytes,1));
                  fprintf(fp_ou,"<tr><td></td><td class=\"data\">%s</td><td></td><td class=\"data\">%s</td><td></td><td></td><td></td><td class=\"data\">%s</td><td class=\"data\">%lld</td></tr>\n",olduserip,wwork1,buildtime(unelap),unelap);

                  strcpy(olduserip,user_ip);
                  unacc=0;
                  unbytes=0;
                  unelap=0;
               }

               unbytes=unbytes+userbytes;
               unelap=unelap+userelap;
            }

            fclose(fp_ip);
            longline_free(&line1);

            unlink(tmp2);
            unlink(tmp3);

            sprintf(wwork1,"%s",fixnum(unbytes,1));
            fprintf(fp_ou,"<tr><td></td><td class=\"data\">%s</td><td></td><td class=\"data\">%s</td><td></td><td></td><td></td><td class=\"data\">%s</td><td class=\"data\">%lld</td></tr>\n",olduserip,wwork1,buildtime(unelap),unelap);
         }

         unacc=0;
         unbytes=0;
         unelap=0;
      }

      fclose(fp_in);
      longline_free(&line);

      if(iprel)
         unlink(arqip);
      unlink(arqin);

      if((UserReportFields & USERREPORTFIELDS_TOTAL) != 0) {
         fprintf(fp_ou,"<tr><th></th><th class=\"header_l\">%s</th>",_("TOTAL"));
         if((UserReportFields & USERREPORTFIELDS_CONNECT) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum(tnacc,1));
         if((UserReportFields & USERREPORTFIELDS_BYTES) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum(tnbytes,1));
         if((UserReportFields & USERREPORTFIELDS_SETYB) != 0) {
            perc=(totbytes) ? tnbytes *100. / totbytes :0.;
            fprintf(fp_ou,"<th class=\"header_r\">%3.2lf%%</th>",perc);
         }
         if((UserReportFields & USERREPORTFIELDS_IN_CACHE_OUT) != 0) {
            inperc=(tnbytes) ? tnincache * 100. / tnbytes : 0.;
            ouperc=(tnbytes) ? tnoucache * 100. / tnbytes : 0.;
            fprintf(fp_ou,"<th class=\"header_r\">%3.2lf%%</th><th class=\"header_r\">%3.2lf%%</th>",inperc,ouperc);
         }
         if((UserReportFields & USERREPORTFIELDS_USED_TIME) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",buildtime(tnelap));
         if((UserReportFields & USERREPORTFIELDS_MILISEC) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum2(tnelap,1));
         if((UserReportFields & USERREPORTFIELDS_PTIME) != 0) {
            perc2=(totelap) ? tnelap * 100. / totelap : 0.;
            fprintf(fp_ou,"<th class=\"header_r\">%3.2lf%%</th>",perc2);
         }
         fputs("</tr>\n",fp_ou);
      }

      if(PerUserLimit > 0) {
         if(tnbytes > (PerUserLimit*1000000)) {
            limit_flag=0;
            if(access(PerUserLimitFile, R_OK) == 0) {
               if((fp_usr = fopen(PerUserLimitFile, "r")) == 0) {
                  fprintf(stderr, "SARG: (html9) %s: %s\n",_("Cannot open file"),PerUserLimitFile);
                  exit(1);
               }
               while(fgets(tmp6,sizeof(tmp6),fp_usr)!=NULL) {
                  fixendofline(tmp6);
                  if(strcmp(tmp6,uinfo->label) == 0) {
                     limit_flag=1;
                     break;
                  }
               }
               fclose(fp_usr);
            }

            if(!limit_flag) {
               if((fp_usr = fopen(PerUserLimitFile, "a")) == 0) {
                  fprintf(stderr, "SARG: (html10) %s: %s\n",_("Cannot open file"),PerUserLimitFile);
                  exit(1);
               }
               fprintf(fp_usr,"%s\n",uinfo->label);
               fclose(fp_usr);

               if(debug)
                  debuga(_("User %s limit exceeded (%d MB). Added to file %s\n"),uinfo->label,PerUserLimit,PerUserLimitFile);
            }
         }
      }

//      if(indexonly) {
//	unlink(arqou);
//	continue;
//      }

      if ((ReportType & REPORT_TYPE_TOPUSERS) != 0 && (UserReportFields & USERREPORTFIELDS_AVERAGE) != 0) {
         totbytes2=totbytes/ntotuser;
         totelap2=totelap/ntotuser;

         fprintf(fp_ou,"<tr><th></th><th class=\"header_l\">%s</th>",_("AVERAGE"));
         if((UserReportFields & USERREPORTFIELDS_CONNECT) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum(ttnacc/ntotuser,1));
         if((UserReportFields & USERREPORTFIELDS_BYTES) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum(totbytes2,1));
         fprintf(fp_ou,"<th></th><th></th><th></th>");
         if((UserReportFields & USERREPORTFIELDS_USED_TIME) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",buildtime(totelap2));
         if((UserReportFields & USERREPORTFIELDS_MILISEC) != 0)
            fprintf(fp_ou,"<th class=\"header_r\">%s</th>",fixnum2(totelap2,1));
         if((UserReportFields & USERREPORTFIELDS_PTIME) != 0) {
            perc2 = (totelap) ? totelap2 * 100. / totelap : 0.;
            fprintf(fp_ou,"<th class=\"header_r\">%3.2lf%%</th>",perc2);
         }
         fputs("</tr>\n",fp_ou);
      }

      fputs("</table></div>\n",fp_ou);
      write_html_trailer(fp_ou);
      fclose(fp_ou);

      htaccess(uinfo);
   }

   (void)closedir(dirp);
   greport_cleanup();

   return;
}