Restore the creation of the link to the image directory lost during the rewritting...

[thirdparty/sarg.git] / index.c

/*
 * AUTHOR: Pedro Lineu Orso                         pedro.orso@gmail.com
 *                                                            1998, 2008
 * SARG Squid Analysis Report Generator      http://sarg.sourceforge.net
 *
 * SARG donations:
 *      please look at http://sarg.sourceforge.net/donations.php
 * ---------------------------------------------------------------------
 *
 *  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"

static void file_index_to_date_index(const char *entry);
static void date_index_to_file_index(const char *entry);

void make_index(void)
{
   FILE *fp_ou, *fp_ou2, *fp_ou3, *fp_tmp, *fp_tmp2, *fp_tmp3;
   DIR *dirp, *dirp2, *dirp3;
   struct dirent *direntp;
   struct dirent *direntp2;
   struct dirent *direntp3;
   char html[MAXLEN];
   char wdir[MAXLEN];
   char wdir_tmp[MAXLEN];
   char wdir_tmp2[MAXLEN];
   char wdir_tmp3[MAXLEN];
   char newname[512];
   char month[4];
   char period[80];
   char data[80];
   char tuser[20];
   char tbytes[20];
   char media[20];
   char ftime[128];
   char day[16], mon[16], year[40], hour[10];
   char *str;
   char tmp2[MAXLEN];
   int cstatus;
   int iyear, imonth, iday, ihour, iminute, isecond, idst;
   struct getwordstruct gwarea;

   if(LastLog[0] != '\0') mklastlog(outdir);

   sprintf(wdir,"%sindex.html",outdir);
   sprintf(wdir_tmp,"%sindex.unsort",outdir);
   sprintf(wdir_tmp2,"%sindex.sort",outdir);
   strcpy(hbc1,"class=\"header\"");

   if(strcmp(Index,"no") == 0) {
      if(access(wdir, R_OK) == 0) unlink(wdir);
      return;
   }

   if(debug) debuga("%s",text[53]);

   // convert any old report hierarchy
   dirp = opendir(outdir);
   while ((direntp = readdir( dirp )) != NULL) {
      if(isdigit(direntp->d_name[0]) && isdigit(direntp->d_name[1])) {
         if(strcmp(IndexTree,"date") == 0)
            file_index_to_date_index(direntp->d_name);
         else
            date_index_to_file_index(direntp->d_name);
      }
   }

   if((fp_tmp=fopen(wdir_tmp,"w"))==NULL) {
      fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir_tmp);
      exit(1);
   }

   rewinddir(dirp);
   while ((direntp = readdir( dirp )) != NULL) {
      if(strcmp(IndexTree,"date") == 0) {
         if(strlen(direntp->d_name) > 4 || !isdigit(direntp->d_name[0]) || !isdigit(direntp->d_name[1]) ||
            !isdigit(direntp->d_name[2]) || !isdigit(direntp->d_name[3])) continue;
         fprintf(fp_tmp,"%s\t%s\n",direntp->d_name,get_size(outdir,direntp->d_name));
      } else {
         if(strchr(direntp->d_name,'-') == 0) continue;
         bzero(newname, sizeof(newname));
         if(strcmp(df,"u") == 0) {
            strncat(newname,direntp->d_name,4);
            strncpy(month,direntp->d_name+4,3);
         } else {
            strncat(newname,direntp->d_name+5,4);
            strncpy(month,direntp->d_name+2,3);
         }
         month[3]='\0';
         conv_month(month);
         strcat(newname,month);
         if(strcmp(df,"u") == 0) strncat(newname,direntp->d_name+7,2);
         else strncat(newname,direntp->d_name,2);
         obtdate(outdir,direntp->d_name,data);
         obtuser(outdir,direntp->d_name,tuser);
         obttotal(outdir,direntp->d_name,tbytes,tuser,media);
         if (sscanf(data,"%d-%d-%d %d:%d:%d %d",&iyear,&imonth,&iday,&ihour,&iminute,&isecond,&idst)==7) {
            formatdate(data,sizeof(data),iyear,imonth,iday,ihour,iminute,isecond,idst);
            fprintf(fp_tmp,"%04d%02d%02d%02d%02d%02d;%s;%s;%s;%s;%s;%s\n",iyear,imonth,iday,ihour,iminute,isecond, direntp->d_name, data, tuser, tbytes, media,newname);
         } else {
            /*
            Old code to parse a date stored by sarg before 2.2.6.1 in the sarg-date file of each report directory.
            */
            getword_start(&gwarea,data);
            if (getword_multisep(mon,sizeof(mon),&gwarea,' ')<0) {
               printf("SARG: Maybe you have a broken week day in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
               exit(1);
            }
            if (getword_multisep(mon,sizeof(mon),&gwarea,' ')<0) {
               printf("SARG: Maybe you have a broken month in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
               exit(1);
            }
            if (getword_multisep(day,sizeof(day),&gwarea,' ')<0) {
               printf("SARG: Maybe you have a broken day in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
               exit(1);
            }
            if (getword_multisep(hour,sizeof(hour),&gwarea,' ')<0) {
               printf("SARG: Maybe you have a broken time in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
               exit(1);
            }
            do {
               if (getword_multisep(year,sizeof(year),&gwarea,' ')<0) {
                  printf("SARG: Maybe you have a broken year in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
                  exit(1);
               }
            } while (year[0] && !isdigit(year[0])); //skip time zone information with spaces until the year is found
            strcpy(html,hour);
            if (sscanf(hour,"%d:%d:%d",&ihour,&iminute,&isecond)!=3) {
               printf("SARG: Maybe you have a broken time in your %s%s/sarg-date file.\n",outdir,direntp->d_name);
               exit(1);
            }
            buildymd(day,mon,year,ftime);
            fprintf(fp_tmp,"%s%02d%02d%02d;%s;%s;%s;%s;%s;%s\n",ftime, ihour, iminute, isecond, direntp->d_name, data, tuser, tbytes, media,newname);
         }
      }
   }

   fclose(fp_tmp);
   (void)closedir( dirp );

   if(strcmp(IndexTree,"date") == 0) {
      if(strcmp(IndexSortOrder,"A") == 0) sprintf(warea,"sort -k 1,1 \"%s\" -o \"%s\"", wdir_tmp, wdir_tmp2);
      else sprintf(warea,"sort -r -k 1,1 \"%s\" -o \"%s\"", wdir_tmp, wdir_tmp2);
      cstatus=system(warea);
      if (!WIFEXITED(cstatus) || WEXITSTATUS(cstatus)) {
         fprintf(stderr, "SARG: sort command return status %d\n",WEXITSTATUS(cstatus));
         fprintf(stderr, "SARG: sort command: %s\n",warea);
         exit(1);
      }
      if((fp_tmp=fopen(wdir_tmp2,"r"))==NULL) {
         fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir_tmp2);
         fprintf(stderr, "SARG: sort command: %s\n",warea);
         exit(1);
      }
      unlink(wdir_tmp);
      if((fp_ou=fopen(wdir,"w"))==NULL) {
         fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir);
         exit(1);
      }
      write_html_header(fp_ou, ".");
      fprintf(fp_ou,"<tr><th %s>%s</th><th %s>%s</th></tr>\n",hbc1,text[130],hbc1,text[132]);
      while(fgets(wwork1,sizeof(wwork1),fp_tmp)!=NULL) {
         getword_start(&gwarea,wwork1);
         if (getword(tmp4,sizeof(tmp4),&gwarea,'\t')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         fprintf(fp_ou,"<tr><td class=\"data2\"><a href=\"%s/index.html\">%s</a></td><td class=\"data2\">%s</td></tr>\n",tmp4,tmp4,gwarea.current);
         sprintf(tmp2,"%s%s",outdir,tmp4);
         sprintf(tmp3,"%s%s/index.unsort",outdir,tmp4);
         // Year dir
         if((fp_ou2=fopen(tmp3,"w"))==NULL) {
            fprintf(stderr, "SARG: (index) %s: %s\n",text[45],tmp3);
            exit(1);
         }
         dirp2 = opendir(tmp2);
         while ((direntp2 = readdir( dirp2 )) != NULL) {
            if(!isdigit(direntp2->d_name[0]) || !isdigit(direntp2->d_name[1])) continue;
            fprintf(fp_ou2,"%s\n",direntp2->d_name);
         }
         if(fp_ou2) fclose(fp_ou2);
         (void)closedir(dirp2);
         sprintf(wdir_tmp3,"%s%s/index.sort",outdir,tmp4);
         if(strcmp(IndexSortOrder,"A") == 0) sprintf(csort,"sort -n \"%s\" -o \"%s\"", tmp3, wdir_tmp3);
         else sprintf(csort,"sort -n -r \"%s\" -o \"%s\"", tmp3, wdir_tmp3);
         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);
         }
         unlink(tmp3);
         if((fp_tmp2=fopen(wdir_tmp3,"r"))==NULL) {
            fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir_tmp3);
            exit(1);
         }
         sprintf(tmp3,"%s%s/index.html",outdir,tmp4);
         if((fp_ou2=fopen(tmp3,"w"))==NULL) {
            fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir);
            exit(1);
         }
         write_html_header(fp_ou2,"..");
         fprintf(fp_ou2,"<tr><th %s>%s/%s</th></tr>\n",hbc1,text[130],text[131]);
         while(fgets(wwork1,sizeof(wwork1),fp_tmp2)!=NULL) {
            fixendofline(wwork1);
            strcpy(tmp5,wwork1);
            if((str = strchr(tmp5,'-')) != 0) {
               *str++ = '\0';
               strcpy(tmp6,str);
               name_month(tmp5,sizeof(tmp5));
               name_month(tmp6,sizeof(tmp6));
               sprintf(nmonth,"%s-%s",tmp5,tmp6);
            } else {
               strcpy(nmonth,tmp5);
               name_month(nmonth,sizeof(nmonth));
            }
            fprintf(fp_ou2,"<tr><td class=\"data2\"><a href=\"%s/index.html\">%s %s</a></td></tr>\n",wwork1,tmp4,nmonth);

            sprintf(val1,"%s%s/%s",outdir,tmp4,wwork1);
            sprintf(tmp5,"%s%s/%s/index.unsort",outdir,tmp4,wwork1);
            if((fp_ou3=fopen(tmp5,"w"))==NULL) {
               fprintf(stderr, "SARG: (index) %s: %s\n",text[45],tmp5);
               exit(1);
            }
            // month dir
            dirp3 = opendir(val1);
            while ((direntp3 = readdir( dirp3 )) != NULL) {
               if(!isdigit(direntp3->d_name[0]) && !isdigit(direntp3->d_name[1])) continue;
               fprintf(fp_ou3,"%s\n",direntp3->d_name);
            }
            if(fp_ou3) fclose(fp_ou3);
            (void)rewinddir(dirp3);
            (void)closedir(dirp3);
            unlink(wdir_tmp3);
            sprintf(tmp6,"%s%s/%s/index.sort",outdir,tmp4,wwork1);
            if(strcmp(IndexSortOrder,"A") == 0) sprintf(csort,"sort -n \"%s\" -o \"%s\"", tmp5, tmp6);
            else sprintf(csort,"sort -n -r \"%s\" -o \"%s\"", tmp5, tmp6);
            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);
            }
            unlink(tmp5);
            sprintf(val2,"%s%s/%s/index.html",outdir,tmp4,wwork1);
            sprintf(val3,"%s/%s",tmp4,wwork1);
            unlink(val2);
            if((fp_ou3=fopen(val2,"w"))==NULL) {
               fprintf(stderr, "SARG: (index) %s: %s\n",text[45],val2);
               exit(1);
            }
            if((fp_tmp3=fopen(tmp6,"r"))==NULL) {
               fprintf(stderr, "SARG: (index) %s: %s\n",text[45],tmp6);
               exit(1);
            }
            write_html_header(fp_ou3,"../..");
            fprintf(fp_ou3,"<tr><th %s>%s/%s/%s</th></tr>\n",hbc1,text[130],text[131],text[127]);
            while(fgets(warea,sizeof(warea),fp_tmp3)!=NULL) {
               warea[strlen(warea)-1]='\0';
               fprintf(fp_ou3,"<tr><td class=\"data2\"><a href=\"%s/index.html\">%s %s %s</a></td></tr>\n",warea,tmp4,nmonth,warea);
            }
            if(fp_tmp3) fclose(fp_tmp3);
            write_html_trailer(fp_ou3);
            if(fp_ou3) fclose(fp_ou3);
            unlink(tmp6);
         }
         write_html_trailer(fp_ou2);
         if(fp_ou2) fclose(fp_ou2);
      }
      if(fp_tmp) fclose(fp_tmp);
      unlink(tmp6);
      unlink(wdir_tmp2);
   } else {
      if(strcmp(IndexSortOrder,"A") == 0) sprintf(warea,"sort -t\";\" -k 7,7 -k 1,1 \"%s\" -o \"%s\"", wdir_tmp, wdir_tmp2);
      else sprintf(warea,"sort -r -t\";\" -k 7,7 -k 1,1 \"%s\" -o \"%s\"", wdir_tmp, wdir_tmp2);
      cstatus=system(warea);
      if (!WIFEXITED(cstatus) || WEXITSTATUS(cstatus)) {
         fprintf(stderr, "SARG: sort command return status %d\n",WEXITSTATUS(cstatus));
         fprintf(stderr, "SARG: sort command: %s\n",warea);
         exit(1);
      }
      if((fp_tmp2=fopen(wdir_tmp2,"r"))==NULL) {
         fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir_tmp2);
         fprintf(stderr, "SARG: sort command: %s\n",warea);
         exit(1);
      }
      unlink(wdir_tmp);
      if((fp_ou=fopen(wdir,"w"))==NULL) {
         fprintf(stderr, "SARG: (index) %s: %s\n",text[45],wdir);
         exit(1);
      }
      write_html_header(fp_ou,".");
      fprintf(fp_ou,"<tr><th %s>%s</th><th %s>%s</th><th %s>%s</th><th %s>%s</th><th %s>%s</th></tr>\n",hbc1,text[101],hbc1,text[102],hbc1,text[103],hbc1,text[93],hbc1,text[96]);
      while(fgets(buf,sizeof(buf),fp_tmp2)!=NULL) {
         getword_start(&gwarea,buf);
         if (getword_multisep(period,sizeof(period),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         if (getword_multisep(period,sizeof(period),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         if (getword_multisep(data,sizeof(data),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         if (getword_multisep(tuser,sizeof(tuser),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         if (getword_multisep(tbytes,sizeof(tbytes),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         if (getword_multisep(media,sizeof(media),&gwarea,';')<0) {
            printf("SARG: Maybe you have a broken record or garbage in your %s file.\n",wdir_tmp2);
            exit(1);
         }
         fprintf(fp_ou,"<tr><td class=\"data2\"><a href='%s/%s'>%s</a></td><td class=\"data2\">%s</td><td class=\"data\">%s</td><td class=\"data\">%s</td><td class=\"data\">%s</td></tr>\n",period,ReplaceIndex,period,data,tuser,tbytes,media);
      }
      if(fp_tmp2) fclose(fp_tmp2);
      unlink(wdir_tmp2);
   }

   write_html_trailer(fp_ou);
   if(fp_ou) fclose(fp_ou);
}

static void file_index_to_date_index(const char *entry)
{
   int y1, y2, d1, d2;
   int i, j;
   int ndirlen;
   int monthlen;
   char m1[8], m2[8];
   char olddir[MAXLEN], newdir[MAXLEN];

   if(strlen(entry) < 19) return;

   y1=0;
   y2=0;
   memset(m1,0,sizeof(m1));
   memset(m2,0,sizeof(m2));
   d1=0;
   d2=0;
   i=0;
   if(strcmp(df,"u") == 0) {
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         y1=y1*10+(entry[i++]-'0');
      if (j!=4) return;
      for (j=0 ; j<sizeof(m1)-1 && entry[i] && isalpha(entry[i]) ; j++)
         m1[j]=entry[i++];
      if (j!=3) return;
      m1[j]='\0';
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         d1=d1*10+(entry[i++]-'0');
      if (j!=2) return;

      if (entry[i++]!='-') return;

      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         y2=y2*10+(entry[i++]-'0');
      if (j!=4) return;
      for (j=0 ; j<sizeof(m2)-1 && entry[i] && isalpha(entry[i]) ; j++)
         m2[j]=entry[i++];
      if (j!=3) return;
      m2[j]='\0';
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         d2=d2*10+(entry[i++]-'0');
      if (j!=2) return;
   } else if(strcmp(df,"e") == 0) {
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         d1=d1*10+(entry[i++]-'0');
      if (j!=2) return;
      for (j=0 ; j<sizeof(m1)-1 && entry[i] && isalpha(entry[i]) ; j++)
         m1[j]=entry[i++];
      if (j!=3) return;
      m1[j]='\0';
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         y1=y1*10+(entry[i++]-'0');
      if (j!=4) return;

      if (entry[i++]!='-') return;

      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         d2=d2*10+(entry[i++]-'0');
      if (j!=2) return;
      for (j=0 ; j<sizeof(m2)-1 && entry[i] && isalpha(entry[i]) ; j++)
         m2[j]=entry[i++];
      if (j!=3) return;
      m2[j]='\0';
      for (j=0 ; entry[i] && isdigit(entry[i]) ; j++)
         y2=y2*10+(entry[i++]-'0');
      if (j!=4) return;
   } else
      return;

   conv_month(m1);
   conv_month(m2);
   ndirlen=sprintf(newdir,"%s%04d",outdir,y1);
   if(access(newdir, R_OK) != 0) mkdir(newdir,0755);
   if(strcmp(m1,m2) != 0) ndirlen+=sprintf(newdir+ndirlen,"/%s-%s",m1,m2);
   else ndirlen+=sprintf(newdir+ndirlen,"/%s",m1);
   if(access(newdir, R_OK) != 0) mkdir(newdir,0755);
   monthlen=ndirlen;
   if(d1!=d2) ndirlen+=sprintf(newdir+ndirlen,"/%02d-%02d",d1,d2);
   else ndirlen+=sprintf(newdir+ndirlen,"/%02d",d1);

   sprintf(olddir,"%s%s",outdir,entry);
   if (rename(olddir,newdir)) {
      fprintf(stderr, "SARG: (index) rename error from \"%s\" to \"%s\" - %s\n",olddir,newdir,strerror(errno));
      exit(1);
   }

   strcpy(newdir+monthlen,"/images");
   if(access(newdir, R_OK) != 0) {
#ifdef HAVE_SYMLINK
      char linkdir[MAXLEN];

      sprintf(linkdir,"%simages",outdir);
      if (symlink(linkdir,newdir)) {
         fprintf(stderr, "SARG: failed to create link \"%s\" to \"%s\" - %s\n",linkdir,newdir,strerror(errno));
         exit(1);
      }
#else
      char cmd[MAXLEN];
      int cstatus;

      sprintf(cmd,"ln -s \"%simages\" \"%s/images\"",outdir,newdir);
      cstatus=system(cmd);
      if (!WIFEXITED(cstatus) || WEXITSTATUS(cstatus)) {
         fprintf(stderr, "SARG: command return status %d\n",WEXITSTATUS(cstatus));
         fprintf(stderr, "SARG: command: %s\n",cmd);
         exit(1);
      }
#endif
   }
}

static void date_index_to_file_index(const char *entry)
{
   int y1, next;
   int val1len;
   int d1, d2;
   int i, j;
   char val1[MAXLEN];
   char m1[8], m2[8];
   char *str;
   char newdir[MAXLEN], olddir[MAXLEN];
   DIR *dirp2, *dirp3;
   struct dirent *direntp2;
   struct dirent *direntp3;

   if(strlen(entry) != 4) return;

   next=-1;
   if (sscanf(entry,"%d%n",&y1,&next)!=1 || next<0 || entry[next]) return;

   val1len=sprintf(val1,"%s%s",outdir,entry);
   dirp2 = opendir(val1);
   if (!dirp2) return;
   while ((direntp2 = readdir( dirp2 )) != NULL) {
      if(!isdigit(direntp2->d_name[0]) || !isdigit(direntp2->d_name[1])) continue;
      i=0;
      str=direntp2->d_name;
      for (j=0 ; j<sizeof(m1) && str[i] && isdigit(str[i]) ; j++)
         m1[j]=str[i++];
      if (j>=sizeof(m1)) continue;
      m1[j]='\0';
      conv_month_name(m1);
      if (str[i]=='-') {
         i++;
         for (j=0 ; j<sizeof(m2) && str[i] && isdigit(str[i]) ; j++)
            m2[j]=str[i++];
         if (j>=sizeof(m2)) continue;
         m2[j]='\0';
         conv_month_name(m2);
      } else if (!str[i]) {
         strcpy(m2,m1);
      } else {
         continue;
      }

      sprintf(val1+val1len,"/%s",direntp2->d_name);
      dirp3 = opendir(val1);
      if (!dirp3) continue;
      while ((direntp3 = readdir( dirp3 )) != NULL) {
         if(!isdigit(direntp3->d_name[0]) || !isdigit(direntp3->d_name[1])) continue;
         i=0;
         str=direntp3->d_name;
         d1=0;
         for (j=0 ; str[i] && isdigit(str[i]) ; j++)
            d1=d1*10+(str[i++]-'0');
         if (j!=2) continue;
         if (str[i]=='-') {
            i++;
            d2=0;
            for (j=0 ; str[i] && isdigit(str[i]) ; j++)
               d2=d2*10+(str[i++]-'0');
            if (j!=2) continue;
         } else if (!str[i]) {
            d2=d1;
         } else {
            continue;
         }

         if(strcmp(df,"u") == 0) sprintf(newdir,"%s%04d%s%02d-%04d%s%02d",outdir,y1,m1,d1,y1,m2,d2);
         else if(strcmp(df,"e") == 0) sprintf(newdir,"%s%02d%s%04d-%02d%s%04d",outdir,d1,m1,y1,d2,m2,y1);
         else continue;
         sprintf(olddir,"%s%04d/%s/%s",outdir,y1,direntp2->d_name,direntp3->d_name);
         if(rename(olddir,newdir)) {
            fprintf(stderr, "SARG: (index) rename error from \"%s\" to \"%s\" - %s\n",olddir,newdir,strerror(errno));
            exit(1);
         }
      }
      (void)closedir( dirp3 );
   }
   (void)closedir( dirp2 );

   /*!
   \bug The links to the images in the reports are broken after moving the directories
   as the the HTML files are not at the right level for the images any more.
   */
}