]>
git.ipfire.org Git - thirdparty/sarg.git/blob - util.c
2 * SARG Squid Analysis Report Generator http://sarg.sourceforge.net
6 * please look at http://sarg.sourceforge.net/donations.php
8 * http://sourceforge.net/projects/sarg/forums/forum/363374
9 * ---------------------------------------------------------------------
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 2 of the License, or
14 * (at your option) any later version.
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software
23 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
27 // #define LEGACY_MY_ATOLL
28 // #define LEGACY_TESTVALIDUSERCHAR
30 #include "include/conf.h"
31 #include "include/defs.h"
33 #if defined(__MINGW32__) && defined(HAVE_DIRECT_H)
38 #if defined(HAVE_BACKTRACE)
39 #define USE_GETWORD_BACKTRACE 1
41 #define USE_GETWORD_BACKTRACE 0
44 static char mtab1
[12][4]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
46 //! The list of the HTTP codes to exclude from the report.
47 static char *excludecode
=NULL
;
49 //! Directory where the images are stored.
50 char ImageDir
[MAXLEN
]=IMAGEDIR
;
52 extern char *CurrentLocale
;
54 #if USE_GETWORD_BACKTRACE
55 static void getword_backtrace(void)
61 n
=backtrace(buffer
,sizeof(buffer
)/sizeof(buffer
[0]));
63 calls
=backtrace_symbols(buffer
,n
);
65 debuga(_("getword backtrace:\n"));
66 for (i
=0 ; i
<n
; i
++) {
67 fprintf(stderr
,"SARG: %d:%s\n",i
+1,calls
[i
]);
72 #endif //USE_GETWORD_BACKTRACE
74 void getword_start(struct getwordstruct
*gwarea
, const char *line
)
76 gwarea
->beginning
=line
;
81 void getword_restart(struct getwordstruct
*gwarea
)
83 if (gwarea
->modified
) {
84 debuga(_("Cannot parse again the line as it was modified\n"));
87 gwarea
->current
=gwarea
->beginning
;
90 int getword(char *word
, int limit
, struct getwordstruct
*gwarea
, char stop
)
94 for(x
=0;((gwarea
->current
[x
]) && (gwarea
->current
[x
] != stop
));x
++) {
97 TRANSLATORS: The %s is the name of the function reporting the
100 debuga(_("End of word not found in %s after %d bytes.\n"),__func__
,x
);
101 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
102 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
103 debuga(_("searching for \'x%x\'\n"),stop
);
104 word
[(limit
>0) ? limit
-1 : 0]='\0';
105 #if USE_GETWORD_BACKTRACE
110 word
[x
] = gwarea
->current
[x
];
114 if (gwarea
->current
[x
]) ++x
;
119 int getword_limit(char *word
, int limit
, struct getwordstruct
*gwarea
, char stop
)
124 for(x
=0; x
<limit
&& gwarea
->current
[x
] && gwarea
->current
[x
] != stop
;x
++) {
125 word
[x
] = gwarea
->current
[x
];
129 while (*gwarea
->current
&& *gwarea
->current
!= stop
) gwarea
->current
++;
130 if (*gwarea
->current
) ++gwarea
->current
;
134 int getword_multisep(char *word
, int limit
, struct getwordstruct
*gwarea
, char stop
)
138 for(x
=0;((gwarea
->current
[x
]) && (gwarea
->current
[x
] != stop
));x
++) {
140 debuga(_("End of word not found in %s after %d bytes.\n"),__func__
,x
);
141 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
142 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
143 debuga(_("searching for \'x%x\'\n"),stop
);
144 if (limit
>0) word
[limit
-1]='\0';
145 #if USE_GETWORD_BACKTRACE
148 //exit(EXIT_FAILURE);
151 word
[x
] = gwarea
->current
[x
];
155 while (gwarea
->current
[x
] && gwarea
->current
[x
]==stop
) ++x
;
160 int getword_skip(int limit
, struct getwordstruct
*gwarea
, char stop
)
164 for(x
=0;(gwarea
->current
[x
] && (gwarea
->current
[x
] != stop
));x
++) {
166 debuga(_("End of word not found in %s after %d bytes.\n"),__func__
,x
);
167 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
168 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
169 debuga(_("searching for \'x%x\'\n"),stop
);
170 #if USE_GETWORD_BACKTRACE
177 if (gwarea
->current
[x
]) ++x
;
182 int getword_atoll(long long int *number
, struct getwordstruct
*gwarea
, char stop
)
188 if (gwarea
->current
[0] == '-') {
191 } else if (gwarea
->current
[0] == '+') {
195 for(x
=0;isdigit(gwarea
->current
[x
]);x
++) {
196 digit
=gwarea
->current
[x
]-'0';
197 if (*number
>= (LLONG_MAX
-digit
)/10) {
199 TRANSLATORS: The first %s is the function name (in the source code) where the
200 overflow is detected.
202 debuga(_("Integer overflow detected in %s in line %s\n"),__func__
,gwarea
->beginning
);
205 *number
=(*number
* 10) + digit
;
207 if(gwarea
->current
[x
] && gwarea
->current
[x
]!=stop
) {
209 TRANSLATORS: The %s is the function name, in the source code, where the problem occured.
211 debuga(_("End of number not found in %s after %d bytes.\n"),__func__
,x
);
212 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
213 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
214 debuga(_("searching for \'x%x\'\n"),stop
);
215 #if USE_GETWORD_BACKTRACE
222 if (gwarea
->current
[x
]) ++x
;
227 int getword_atoi(int *number
, struct getwordstruct
*gwarea
, char stop
)
233 if (gwarea
->current
[0] == '-') {
236 } else if (gwarea
->current
[0] == '+') {
240 for(x
=0;isdigit(gwarea
->current
[x
]);x
++) {
241 digit
=gwarea
->current
[x
]-'0';
242 if (*number
> (INT_MAX
-digit
)/10) {
243 debuga(_("Integer overflow detected in %s in line %s\n"),__func__
,gwarea
->beginning
);
246 *number
=(*number
* 10) + digit
;
248 if(gwarea
->current
[x
] && gwarea
->current
[x
]!=stop
) {
249 debuga(_("End of number not found in %s after %d bytes.\n"),__func__
,x
);
250 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
251 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
252 debuga(_("searching for \'x%x\'\n"),stop
);
253 #if USE_GETWORD_BACKTRACE
260 if (gwarea
->current
[x
]) ++x
;
265 int getword_atol(long int *number
, struct getwordstruct
*gwarea
, char stop
)
271 if (gwarea
->current
[0] == '-') {
274 } else if (gwarea
->current
[0] == '+') {
278 for(x
=0;isdigit(gwarea
->current
[x
]);x
++) {
279 digit
=gwarea
->current
[x
]-'0';
280 if (*number
> (LONG_MAX
-digit
)/10) {
281 debuga(_("Integer overflow detected in %s in line %s\n"),__func__
,gwarea
->beginning
);
284 *number
=(*number
* 10) + digit
;
286 if(gwarea
->current
[x
] && gwarea
->current
[x
]!=stop
) {
287 debuga(_("End of number not found in %s after %d bytes.\n"),__func__
,x
);
288 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
289 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
290 debuga(_("searching for \'x%x\'\n"),stop
);
291 #if USE_GETWORD_BACKTRACE
298 if (gwarea
->current
[x
]) ++x
;
303 int getword_atolu(unsigned long int *number
, struct getwordstruct
*gwarea
, char stop
)
308 if (gwarea
->current
[0] == '-') {
309 debuga(_("getword_atolu got a negative number.\n"));
310 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
311 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
314 if (gwarea
->current
[0] == '+') {
318 for(x
=0;isdigit(gwarea
->current
[x
]);x
++) {
319 digit
=gwarea
->current
[x
]-'0';
320 if (*number
> (ULONG_MAX
-digit
)/10) {
321 debuga(_("Integer overflow detected in %s in line %s\n"),__func__
,gwarea
->beginning
);
324 *number
=(*number
* 10) + digit
;
326 if(gwarea
->current
[x
] && gwarea
->current
[x
]!=stop
) {
327 debuga(_("End of number not found in %s after %d bytes.\n"),__func__
,x
);
328 debuga(_("Line=\"%s\"\n"),gwarea
->beginning
);
329 debuga(_("Record=\"%s\"\n"),gwarea
->current
);
330 debuga(_("searching for \'x%x\'\n"),stop
);
331 #if USE_GETWORD_BACKTRACE
337 if (gwarea
->current
[x
]) ++x
;
343 int getword_ptr(char *orig_line
,char **word
, struct getwordstruct
*gwarea
, char stop
)
346 \note Why pass the original buffer to the function ? Because we must modify it to
347 insert the terminating ASCII zero for the word we return and that's not compatible
348 with getword_restart(). Moreover, getword_start() sometime works on constant strings
349 so this function require the original buffer to detect any missuse.
355 if (orig_line
&& orig_line
!=gwarea
->beginning
) {
356 debuga(_("Invalid buffer passed to getword_ptr\n"));
360 start
=(gwarea
->current
-gwarea
->beginning
);
361 if (word
&& orig_line
) *word
=orig_line
+start
;
362 for(x
=0;((gwarea
->current
[x
]) && (gwarea
->current
[x
] != stop
));x
++);
363 sep
=(gwarea
->current
[x
]!='\0');
364 if (word
&& orig_line
) orig_line
[start
+x
] = '\0';
371 #define MAXLLL 30 //!< Maximum number of digits in long long (a guess).
372 long long int my_atoll (const char *nptr
)
374 long long int returnval
=0LL;
375 int max_digits
= MAXLLL
;
377 // Soak up all the white space
378 while (isspace( *nptr
)) {
382 //For each character left to right
383 //change the character to a single digit
384 //multiply what we had before by 10 and add the new digit
386 while (--max_digits
&& isdigit( *nptr
))
388 returnval
= ( returnval
* 10 ) + ( *nptr
++ - '0' ) ;
394 int is_absolute(const char *path
)
396 if (*path
=='/') return(1);
398 if (isalpha(path
[0]) && path
[1]==':') return(1);
403 int PortableMkDir(const char *path
,int mode
)
405 #if defined(__linux__)
406 int mkerror
=mkdir(path
,mode
);
409 int mkerror
=_mkdir(path
);
414 void my_mkdir(const char *name
)
420 if(!is_absolute(name
)) {
421 debuga(_("Invalid path (%s). Please, use absolute paths only.\n"),name
);
426 for (i
=0 ; name
[i
] ; i
++) {
428 debuga(_("Path too long: "));
429 debuga_more("%s\n",name
);
432 if (chars
>0 && name
[i
] == '/') {
434 if (access(w0
, R_OK
) != 0) {
435 if (PortableMkDir(w0
,0755)) {
436 debuga(_("Cannot create directory \"%s\": %s\n"),w0
,strerror(errno
));
441 if (name
[i
] != '/') chars
++;
445 if (access(name
, R_OK
) != 0) {
446 if (PortableMkDir(name
,0755)) {
447 debuga(_("Cannot create directory \"%s\": %s\n"),name
,strerror(errno
));
454 void my_lltoa(unsigned long long int n
, char *s
, int ssize
, int len
)
463 debuga(_("The requested number of digits passed to my_lltoa (%d) is bigger than the output buffer size (%d)\n"),len
,ssize
);
468 s
[slen
++] = (n
% 10) + '0';
469 } while ((n
/= 10) > 0 && slen
<ssize
);
472 for (i
= 0, j
= slen
-1; i
<j
; i
++, j
--) {
480 for(j
=slen
; j
>=0; j
--)
487 int month2num(const char *month
)
491 for(m
=0 ; m
<12 && strcmp(mtab1
[m
],month
) != 0; m
++);
495 int builddia(int day
, int month
, int year
)
497 return(year
*10000+month
*100+day
);
503 \param date1 The first date to compare.
504 \param date2 The second date to compare.
506 \retval -1 If date1<date2.
507 \retval 0 If date1==date2.
508 \retval 1 if date1>date2.
510 int compare_date(struct tm
*date1
,struct tm
*date2
)
512 if (date1
->tm_year
<date2
->tm_year
) return(-1);
513 if (date1
->tm_year
>date2
->tm_year
) return(1);
514 if (date1
->tm_mon
<date2
->tm_mon
) return(-1);
515 if (date1
->tm_mon
>date2
->tm_mon
) return(1);
516 if (date1
->tm_mday
<date2
->tm_mday
) return(-1);
517 if (date1
->tm_mday
>date2
->tm_mday
) return(1);
518 if (date1
->tm_hour
<date2
->tm_hour
) return(-1);
519 if (date1
->tm_hour
>date2
->tm_hour
) return(1);
520 if (date1
->tm_min
<date2
->tm_min
) return(-1);
521 if (date1
->tm_min
>date2
->tm_min
) return(1);
522 if (date1
->tm_sec
<date2
->tm_sec
) return(-1);
523 if (date1
->tm_sec
>date2
->tm_sec
) return(1);
527 void buildymd(const char *dia
, const char *mes
, const char *ano
, char *wdata
,int wdata_size
)
532 snprintf(wdata
,wdata_size
,"%04d%02d%02d",atoi(ano
),nmes
+1,atoi(dia
));
536 int conv_month(const char *month
)
540 for(x
=0; x
<12 && strncmp(mtab1
[x
],month
,3)!=0; x
++);
545 const char *conv_month_name(int month
)
549 if (month
<1 || month
>12) {
550 snprintf(str
,sizeof(str
),"%03d",month
);
553 return(mtab1
[month
-1]);
557 Write a debug message to stderr. The message is prefixed by "SARG:" to identify its origin.
559 \param msg The printf like message to format.
560 \param ... The arguments to format in the message.
562 void debuga(const char *msg
,...)
566 fputs(_("SARG: "),stderr
);
568 vfprintf(stderr
,msg
,ap
);
573 Write a debug message to stderr. The message is supposed
574 to be displayed after a message from debuga().
576 \param msg The printf like message to format.
577 \param ... The arguments to format in the message.
579 void debuga_more(const char *msg
,...)
584 vfprintf(stderr
,msg
,ap
);
589 Write a debug message to stderr. The message is prefixed by "SARG: (info)".
591 \param msg The printf like message to format.
592 \param ... The arguments to format in the message.
594 void debugaz(const char *msg
,...)
598 fputs(_("SARG: (info) "),stderr
);
600 vfprintf(stderr
,msg
,ap
);
605 char *fixnum(long long int value
, int n
)
607 #define MAXLEN_FIXNUM 256
608 char num
[MAXLEN_FIXNUM
]="";
609 char buf
[MAXLEN_FIXNUM
* 2];
611 static char ret
[MAXLEN_FIXNUM
* 2];
613 register int i
, j
, k
;
615 static char abbrev
[30]="";
617 my_lltoa(value
, num
, sizeof(num
), 0);
619 if(DisplayedValues
==DISPLAY_ABBREV
) {
620 numlen
= strlen(num
);
623 else if (numlen
%3 == 1) {
625 abbrev
[1]=(UseComma
) ? ',' : '.';
630 else if (numlen
%3 == 2) {
633 abbrev
[2]=(UseComma
) ? ',' : '.';
638 else if (numlen
%3 == 0) {
642 abbrev
[3]=(UseComma
) ? ',' : '.';
651 else if (numlen
<= 6)
653 else if (numlen
<= 9)
655 else if (numlen
<= 12)
657 else if (numlen
<= 15)
659 else if (numlen
>= 18)
661 else if (numlen
<= 21)
663 else if (numlen
<= 24)
665 else if (numlen
<= 27)
668 strcat(abbrev
,"???");
673 memset(buf
,0,MAXLEN_FIXNUM
*2);
679 for ( i
= strlen(num
) - 1, j
= 0 ; i
> -1; i
--) {
680 if ( k
== 2 && i
!= 0 ) {
683 pbuf
[j
++] = (UseComma
) ? ',' : '.';
693 for ( i
= strlen(pbuf
) - 1, j
= 0 ; i
> -1; i
--, j
++)
702 char *fixnum2(long long int value
, int n
)
704 #define MAXLEN_FIXNUM2 1024
705 char num
[MAXLEN_FIXNUM2
];
706 char buf
[MAXLEN_FIXNUM2
* 2];
708 static char ret
[MAXLEN_FIXNUM2
* 2];
710 register int i
, j
, k
;
712 my_lltoa(value
, num
, sizeof(num
), 0);
713 memset(buf
,0,MAXLEN_FIXNUM2
*2);
719 for ( i
= strlen(num
) - 1, j
= 0 ; i
> -1; i
--) {
720 if ( k
== 2 && i
!= 0 ) {
723 pbuf
[j
++] = (UseComma
) ? ',' : '.';
733 for ( i
= strlen(pbuf
) - 1, j
= 0 ; i
> -1; i
--, j
++)
742 char *buildtime(long long int elap
)
744 long int num
= elap
/ 1000LL;
751 min
=(num
% 3600L) / 60L;
753 snprintf(buf
,sizeof(buf
),"%02d:%02d:%02d",hor
,min
,sec
);
760 Get the date stored in the <tt>sarg-date</tt> file of a directory with the connection data.
762 \param dirname The directory to look for the connection directory.
763 \param name The name of the directory whose <tt>sarg-date</tt> file must be read.
764 \param data The buffer to store the content of the file. It must be more than 80
768 \retval -1 File not found.
770 int obtdate(const char *dirname
, const char *name
, char *data
)
775 if (snprintf(wdir
,sizeof(wdir
),"%s%s/sarg-date",dirname
,name
)>=sizeof(wdir
)) {
776 debuga(_("Buffer too small to store "));
777 debuga_more("%s%s/sarg-date",dirname
,name
);
780 if ((fp_in
= fopen(wdir
, "rt")) == 0) {
781 if (snprintf(wdir
,sizeof(wdir
),"%s%s/date",dirname
,name
)>=sizeof(wdir
)) {
782 debuga(_("Buffer too small to store "));
783 debuga_more("%s%s/date",dirname
,name
);
786 if ((fp_in
= fopen(wdir
, "rt")) == 0) {
792 if (!fgets(data
,80,fp_in
)) {
793 debuga(_("Failed to read the date in %s\n"),wdir
);
796 if (fclose(fp_in
)==EOF
) {
797 debuga(_("Read error in \"%s\": %s\n"),wdir
,strerror(errno
));
806 void formatdate(char *date
,int date_size
,int year
,int month
,int day
,int hour
,int minute
,int second
,int dst
)
812 memset(<m
,0,sizeof(ltm
));
813 if (year
>=1900) ltm
.tm_year
=year
-1900;
814 if (month
>=1 && month
<=12) ltm
.tm_mon
=month
-1;
815 if (day
>=1 && day
<=31) ltm
.tm_mday
=day
;
816 if (hour
>=0 && hour
<24) ltm
.tm_hour
=hour
;
817 if (minute
>=0 && minute
<60) ltm
.tm_min
=minute
;
818 if (second
>=0 && second
<60) ltm
.tm_sec
=second
;
820 unixtime
=mktime(<m
); //fill the missing entries
821 fulltm
=localtime(&unixtime
);
822 //strftime(date,date_size,"%a %b %d %H:%M:%S %Z %Y",fulltm);
823 strftime(date
,date_size
,"%c",fulltm
);
827 void computedate(int year
,int month
,int day
,struct tm
*t
)
829 memset(t
,0,sizeof(*t
));
830 t
->tm_year
=year
-1900;
836 int obtuser(const char *dirname
, const char *name
)
843 if (snprintf(wdir
,sizeof(wdir
),"%s%s/sarg-users",dirname
,name
)>=sizeof(wdir
)) {
844 debuga(_("Buffer too small to store "));
845 debuga_more("%s%s/sarg-users",dirname
,name
);
848 if((fp_in
=fopen(wdir
,"r"))==NULL
) {
849 if (snprintf(wdir
,sizeof(wdir
),"%s%s/users",dirname
,name
)>=sizeof(wdir
)) {
850 debuga(_("Buffer too small to store "));
851 debuga_more("%s%s/users",dirname
,name
);
854 if((fp_in
=fopen(wdir
,"r"))==NULL
) {
859 if (!fgets(tuser
,sizeof(tuser
),fp_in
)) {
860 debuga(_("Failed to read the number of users in %s\n"),wdir
);
863 if (fclose(fp_in
)==EOF
) {
864 debuga(_("Read error in \"%s\": %s\n"),wdir
,strerror(errno
));
873 void obttotal(const char *dirname
, const char *name
, int nuser
, long long int *tbytes
, long long int *media
)
878 char user
[MAX_USER_LEN
];
880 struct getwordstruct gwarea
;
886 if (snprintf(wdir
,sizeof(wdir
),"%s%s/sarg-general",dirname
,name
)>=sizeof(wdir
)) {
887 debuga(_("Buffer too small to store "));
888 debuga_more("%s%s/sarg-general",dirname
,name
);
891 if ((fp_in
= fopen(wdir
, "r")) == 0) {
892 if (snprintf(wdir
,sizeof(wdir
),"%s%s/general",dirname
,name
)>=sizeof(wdir
)) {
893 debuga(_("Buffer too small to store "));
894 debuga_more("%s%s/general",dirname
,name
);
897 if ((fp_in
= fopen(wdir
, "r")) == 0) {
902 if ((line
=longline_create())==NULL
) {
903 debuga(_("Not enough memory to read the file %s\n"),wdir
);
907 while((buf
=longline_read(fp_in
,line
))!=NULL
) {
908 if (strncmp(buf
,"TOTAL\t",6) == 0)
910 else if (strncmp(buf
,"TOTAL ",6) == 0)
914 getword_start(&gwarea
,buf
);
915 if (getword(user
,sizeof(user
),&gwarea
,sep
)<0) {
916 debuga(_("There is a invalid user in file %s\n"),wdir
);
919 if(strcmp(user
,"TOTAL") != 0)
921 if (getword_skip(MAXLEN
,&gwarea
,sep
)<0) {
922 debuga(_("There a broken total number of access in file %s\n"),wdir
);
925 if (getword_atoll(tbytes
,&gwarea
,sep
)<0) {
926 debuga(_("There is a broken number of bytes in file %s\n"),wdir
);
931 if (fclose(fp_in
)==EOF
) {
932 debuga(_("Read error in \"%s\": %s\n"),wdir
,strerror(errno
));
935 longline_destroy(&line
);
940 *media
=*tbytes
/ nuser
;
944 int getperiod_fromsarglog(const char *arqtt
,struct periodstruct
*period
)
947 int day0
, month0
, year0
, hour0
, minute0
;
948 int day1
, month1
, year1
, hour1
, minute1
;
951 memset(period
,0,sizeof(*period
));
954 while((str
=strstr(str
,"sarg-"))!=NULL
) {
956 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
957 day0
=(str
[0]-'0')*10+(str
[1]-'0');
958 if (day0
<1 || day0
>31) continue;
960 month0
=(str
[0]-'0')*10+(str
[1]-'0')-1;
961 if (month0
<0 || month0
>11) continue;
964 for (i
=0 ; isdigit(str
[i
]) && i
<4 ; i
++) year0
=year0
*10+(str
[i
]-'0');
967 if (str
[0]!='_') continue;
970 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
971 hour0
=(str
[0]-'0')*10+(str
[1]-'0');
973 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
974 minute0
=(str
[0]-'0')*10+(str
[1]-'0');
977 if (*str
!= '-') continue;
980 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
981 day1
=(str
[0]-'0')*10+(str
[1]-'0');
982 if (day1
<1 || day1
>31) continue;
984 month1
=(str
[0]-'0')*10+(str
[1]-'0')-1;
985 if (month1
<0 || month1
>11) continue;
988 for (i
=0 ; isdigit(str
[i
]) && i
<4 ; i
++) year1
=year1
*10+(str
[i
]-'0');
992 if (str
[0]!='_') continue;
995 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
996 hour1
=(str
[0]-'0')*10+(str
[1]-'0');
998 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
999 minute1
=(str
[0]-'0')*10+(str
[1]-'0');
1002 period
->start
.tm_mday
=day0
;
1003 period
->start
.tm_mon
=month0
;
1004 period
->start
.tm_year
=year0
-1900;
1005 period
->start
.tm_hour
=hour0
;
1006 period
->start
.tm_min
=minute0
;
1007 period
->end
.tm_mday
=day1
;
1008 period
->end
.tm_mon
=month1
;
1009 period
->end
.tm_year
=year1
-1900;
1010 period
->end
.tm_hour
=hour1
;
1011 period
->end
.tm_min
=minute1
;
1017 void getperiod_fromrange(struct periodstruct
*period
,int dfrom
,int duntil
)
1019 memset(&period
->start
,0,sizeof(period
->start
));
1020 period
->start
.tm_mday
=dfrom
%100;
1021 period
->start
.tm_mon
=(dfrom
/100)%100-1;
1022 period
->start
.tm_year
=(dfrom
/10000)-1900;
1024 memset(&period
->end
,0,sizeof(period
->end
));
1025 period
->end
.tm_mday
=duntil
%100;
1026 period
->end
.tm_mon
=(duntil
/100)%100-1;
1027 period
->end
.tm_year
=(duntil
/10000)-1900;
1031 Update the \a main period to encompass the period in \a candidate.
1033 void getperiod_merge(struct periodstruct
*main
,struct periodstruct
*candidate
)
1038 mdate
=(main
->start
.tm_year
)*10000+(main
->start
.tm_mon
)*100+main
->start
.tm_mday
;
1039 cdate
=(candidate
->start
.tm_year
)*10000+(candidate
->start
.tm_mon
)*100+candidate
->start
.tm_mday
;
1040 if (cdate
<mdate
) memcpy(&main
->start
,&candidate
->start
,sizeof(struct tm
));
1042 mdate
=(main
->end
.tm_year
)*10000+(main
->end
.tm_mon
)*100+main
->end
.tm_mday
;
1043 cdate
=(candidate
->end
.tm_year
)*10000+(candidate
->end
.tm_mon
)*100+candidate
->end
.tm_mday
;
1044 if (cdate
>mdate
) memcpy(&main
->end
,&candidate
->end
,sizeof(struct tm
));
1047 int getperiod_buildtext(struct periodstruct
*period
)
1051 char text1
[40], text2
[40];
1054 i
=strftime(text1
, sizeof(text1
), "%Y %b %d", &period
->start
);
1055 } else if(df
=='e') {
1056 i
=strftime(text1
, sizeof(text1
), "%d %b %Y", &period
->start
);
1057 } else /*if (df=='w')*/ {
1058 IndexTree
=INDEX_TREE_FILE
;
1059 i
=strftime(text1
, sizeof(text1
), "%Y.%U", &period
->start
);
1061 if (i
== 0) return(-1);
1063 range
=(period
->start
.tm_year
!=period
->end
.tm_year
||
1064 period
->start
.tm_mon
!=period
->end
.tm_mon
||
1065 period
->start
.tm_mday
!=period
->end
.tm_mday
);
1068 i
=strftime(text2
, sizeof(text2
)-i
, "%Y %b %d", &period
->end
);
1069 } else if (df
=='e') {
1070 i
=strftime(text2
, sizeof(text2
)-i
, "%d %b %Y", &period
->end
);
1072 i
=strftime(text2
, sizeof(text2
)-i
, "%Y.%U", &period
->end
);
1074 if (i
== 0) return(-1);
1078 snprintf(period
->text
,sizeof(period
->text
),"%s-%s",text1
,text2
);
1079 snprintf(period
->html
,sizeof(period
->html
),"%s—%s",text1
,text2
);
1081 safe_strcpy(period
->text
,text1
,sizeof(period
->text
));
1082 safe_strcpy(period
->html
,text1
,sizeof(period
->html
));
1087 static void copy_images(void)
1089 FILE *img_in
, *img_ou
;
1091 char srcfile
[MAXLEN
];
1092 char dstfile
[MAXLEN
];
1094 struct dirent
*direntp
;
1095 char buffer
[MAXLEN
];
1099 if (snprintf(images
,sizeof(images
),"%simages",outdir
)>=sizeof(images
)) {
1100 debuga(_("Cannot copy images to target directory %simages\n"),outdir
);
1103 if (access(images
,R_OK
)!=0) {
1104 if (PortableMkDir(images
,0755)) {
1105 debuga(_("Cannot create directory \"%s\": %s\n"),images
,strerror(errno
));
1110 dirp
= opendir(ImageDir
);
1112 debuga(_("Cannot open directory \"%s\": %s\n"),ImageDir
,strerror(errno
));
1115 while ((direntp
= readdir( dirp
)) != NULL
){
1116 if(direntp
->d_name
[0]=='.')
1118 if (snprintf(srcfile
,sizeof(srcfile
),"%s/%s",ImageDir
,direntp
->d_name
)>=sizeof(srcfile
)) {
1119 debuga(_("Buffer too small to store "));
1120 debuga_more("%s/%s",ImageDir
,direntp
->d_name
);
1123 if (stat(srcfile
,&info
)) {
1124 debuga(_("Cannot stat \"%s\": %s\n"),srcfile
,strerror(errno
));
1127 if (S_ISREG(info
.st_mode
)) {
1128 if (snprintf(dstfile
,sizeof(dstfile
),"%s/%s",images
,direntp
->d_name
)>=sizeof(dstfile
)) {
1129 debuga(_("Buffer too small to store "));
1130 debuga_more("%s/%s",images
,direntp
->d_name
);
1133 img_in
= fopen(srcfile
, "rb");
1135 img_ou
= fopen(dstfile
, "wb");
1137 while ((nread
= fread(buffer
,1,sizeof(buffer
),img_in
))>0) {
1138 if (fwrite(buffer
,1,nread
,img_ou
)!=nread
) {
1139 debuga(_("Failed to copy image %s to %s\n"),srcfile
,dstfile
);
1143 if (fclose(img_ou
)==EOF
) {
1144 debuga(_("Write error in \"%s\": %s\n"),dstfile
,strerror(errno
));
1148 debuga(_("Cannot open file \"%s\": %s\n"), dstfile
, strerror(errno
));
1149 if (fclose(img_in
)==EOF
) {
1150 debuga(_("Read error in \"%s\": %s\n"),srcfile
,strerror(errno
));
1154 debuga(_("Cannot open file \"%s\": %s\n"), srcfile
, strerror(errno
));
1157 (void) closedir(dirp
);
1163 * Check if the proposed file name conforms to the directory structure layed out
1164 * as a file tree. It is used to check if the file name enumerated while scanning
1165 * a directory content may have been created by sarg running with IndexTree set to
1168 bool IsTreeFileDirName(const char *Name
)
1173 // start year (date format u) or start day (date format e)
1174 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1176 if (isdigit(Name
[2]) && isdigit(Name
[3]))
1178 // date format is either u or w
1182 if (!isdigit(Name
[5]) || !isdigit(Name
[6])) return(false);
1183 return(true);//date format w is confirmed
1190 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1191 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1192 if (i
<0) return(false);
1196 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1201 else if (isalpha(Name
[2]) && isalpha(Name
[3]) && isalpha(Name
[4]))
1207 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1208 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1209 if (i
<0) return(false);
1213 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1221 if (Name
[0]!='-') return(false);
1224 if (DateFormat
=='u')
1226 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1229 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1230 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1231 if (i
<0) return(false);
1234 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1237 else //DateFormat=='e'
1239 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1242 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1243 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1244 if (i
<0) return(false);
1247 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1251 * The directory name may contains additional characters such as a counter if
1252 * a previous report is never overwritten.
1258 * Check if the proposed file name can be the year part of a report tree build with
1259 * IndexTree set to INDEX_TREE_DATE.
1261 bool IsTreeYearFileName(const char *Name
)
1263 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1268 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1271 if (Name
[0]) return(false);
1276 * Check if the proposed file name can be the month part of a report tree build with
1277 * IndexTree set to INDEX_TREE_DATE.
1279 bool IsTreeMonthFileName(const char *Name
)
1283 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1284 m
=(Name
[0]-'0')*10+(Name
[1]-'0');
1285 if (m
<1 || m
>12) return(false);
1290 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1291 m
=(Name
[0]-'0')*10+(Name
[1]-'0');
1292 if (m
<1 || m
>12) return(false);
1295 if (Name
[0]) return(false);
1300 * Check if the proposed file name can be the day part of a report tree build with
1301 * IndexTree set to INDEX_TREE_DATE.
1303 bool IsTreeDayFileName(const char *Name
)
1307 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1308 d
=(Name
[0]-'0')*10+(Name
[1]-'0');
1309 if (d
<1 || d
>31) return(false);
1313 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1314 d
=(Name
[0]-'0')*10+(Name
[1]-'0');
1315 if (d
<1 || d
>31) return(false);
1318 * The directory name may contains additional characters such as a counter if
1319 * a previous report is never overwritten.
1324 int vrfydir(const struct periodstruct
*per1
, const char *addr
, const char *site
, const char *us
, const char *form
)
1329 char dirname2
[MAXLEN
];
1337 strcpy(wdir
,outdir
);
1339 y1
=per1
->start
.tm_year
+1900;
1340 y2
=per1
->end
.tm_year
+1900;
1341 m1
=per1
->start
.tm_mon
+1;
1342 m2
=per1
->end
.tm_mon
+1;
1343 d1
=per1
->start
.tm_mday
;
1344 d2
=per1
->end
.tm_mday
;
1345 if(IndexTree
== INDEX_TREE_DATE
) {
1346 wlen
+=sprintf(wdir
+wlen
,"%04d",y1
);
1347 if(y1
!=y2
) wlen
+=sprintf(wdir
+wlen
,"-%04d",y2
);
1348 if(access(wdir
, R_OK
) != 0)
1351 wlen
+=sprintf(wdir
+wlen
,"/%02d",m1
);
1352 if(m1
!= m2
) wlen
+=sprintf(wdir
+wlen
,"-%02d",m2
);
1353 if(access(wdir
, R_OK
) != 0)
1356 wlen
+=sprintf(wdir
+wlen
,"/%02d",d1
);
1357 if(d1
!=d2
) wlen
+=sprintf(wdir
+wlen
,"-%02d",d2
);
1360 wlen
=snprintf(wdir
+wlen
,sizeof(wdir
)-wlen
,"%04d%s%02d-%04d%s%02d",y1
,
1361 conv_month_name(m1
),d1
,y2
,conv_month_name(m2
),d2
);
1362 } else if (df
== 'e') {
1363 wlen
=snprintf(wdir
+wlen
,sizeof(wdir
)-wlen
,"%02d%s%04d-%02d%s%04d",d1
,
1364 conv_month_name(m1
),y1
,d2
,conv_month_name(m2
),y2
);
1365 } else if (df
== 'w') {
1366 wlen2
=strftime(wdir
+wlen
, sizeof(wdir
)-wlen
, "%Y.%U", &per1
->start
);
1367 if (wlen2
==0) return(-1);
1373 struct userinfostruct
*uinfo
=userinfo_find_from_id(us
);
1376 strcat(wdir
,uinfo
->filename
);
1379 if(addr
[0] != '\0') {
1383 if(site
[0] != '\0') {
1388 strcpy(outdirname
,wdir
);
1390 if(IndexTree
!= INDEX_TREE_DATE
) {
1391 if(!OverwriteReport
) {
1393 if(access(wdir
,R_OK
) == 0) {
1394 sprintf(wdir
,"%s.%d",outdirname
,num
);
1403 debuga(_("File %s already exists, moved to %s\n"),outdirname
,wdir
);
1404 rename(outdirname
,wdir
);
1407 if(access(outdirname
,R_OK
) == 0) {
1408 unlinkdir(outdirname
,1);
1411 my_mkdir(outdirname
);
1413 strcpy(dirname2
,wdir
);
1414 if(!OverwriteReport
) {
1416 if(access(wdir
,R_OK
) == 0) {
1417 sprintf(wdir
,"%s.%d",dirname2
,num
);
1426 debuga(_("File %s already exists, moved to %s\n"),dirname2
,wdir
);
1427 rename(dirname2
,wdir
);
1428 strcpy(dirname2
,wdir
);
1431 if(access(wdir
,R_OK
) == 0) {
1436 if(access(wdir
, R_OK
) != 0)
1440 strcpy(dirname2
,wdir
);
1442 if (snprintf(wdir
,sizeof(wdir
),"%s/sarg-date",outdirname
)>=sizeof(wdir
)) {
1443 debuga(_("Buffer too small to store "));
1444 debuga_more("%s/sarg-date",outdirname
);
1447 if ((fp_ou
= fopen(wdir
, "wt")) == 0) {
1448 debuga(_("cannot open %s for writing: %s\n"),wdir
,strerror(errno
));
1453 //strftime(wdir,sizeof(wdir),"%a %b %d %H:%M:%S %Z %Y",localtime(&curtime));
1454 loctm
=localtime(&curtime
);
1455 strftime(wdir
,sizeof(wdir
),"%Y-%m-%d %H:%M:%S",loctm
);
1456 if (fprintf(fp_ou
,"%s %d\n",wdir
,loctm
->tm_isdst
)<0) {
1457 debuga(_("Failed to write the date in %s\n"),wdir
);
1461 if (fclose(fp_ou
)==EOF
) {
1462 debuga(_("Write error in \"%s\": %s\n"),wdir
,strerror(errno
));
1471 Copy a string without overflowing the buffer. The copied string
1472 is properly terminated by an ASCII zero.
1474 \param dest The destination buffer.
1475 \param src The source buffer.
1476 \param length The size of the destination buffer. The program is aborted
1477 if the length is negative or zero.
1479 void safe_strcpy(char *dest
,const char *src
,int length
)
1482 debuga(_("Invalid buffer length passed to the function to safely copy a string\n"));
1485 strncpy(dest
,src
,length
-1);
1486 dest
[length
-1]='\0';
1489 void strip_latin(char *line
)
1496 for (i
=0;line
[i
];i
++){
1498 if (line
[i
]==';') skip
=0;
1510 void zdate(char *ftime
,int ftimesize
, char DateFormat
)
1516 local
= localtime(&t
);
1517 if (DateFormat
=='u')
1518 strftime(ftime
, ftimesize
, "%b/%d/%Y %H:%M", local
);
1519 else if (DateFormat
=='e')
1520 strftime(ftime
, ftimesize
, "%d/%b/%Y-%H:%M", local
);
1521 else if (DateFormat
=='w')
1522 strftime(ftime
, ftimesize
, "%W-%H-%M", local
);
1527 char *fixtime(long long int elap
)
1529 long int num
= elap
/ 1000LL;
1533 static char buf
[20];
1536 min
=(num
% 3600L) / 60L;
1539 if(hor
==0 && min
==0 && sec
==0)
1542 snprintf(buf
,sizeof(buf
),"%d:%02d:%02d",hor
,min
,sec
);
1548 void date_from(char *date
,int date_size
, int *dfrom
, int *duntil
)
1557 if (isdigit(date
[0])) {
1560 if (sscanf(date
,"%d/%d/%d%n",&d0
,&m0
,&y0
,&next
)!=3 || y0
<100 || m0
<1 || m0
>12 || d0
<1 || d0
>31 || next
<0) {
1561 debuga(_("The date passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1564 if (date
[next
]=='-') {
1565 if (sscanf(date
+next
+1,"%d/%d/%d",&d1
,&m1
,&y1
)!=3 || y1
<100 || m1
<1 || m1
>12 || d1
<1 || d1
>31) {
1566 debuga(_("The date range passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1569 } else if (date
[next
]!='\0') {
1570 debuga(_("The date range passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1580 struct tm
*Date0
,Date1
;
1582 if (time(&Today
)==(time_t)-1) {
1583 debuga(_("Failed to get the current time\n"));
1586 if (sscanf(date
,"day-%d",&i
)==1) {
1588 debuga(_("Invalid number of days in -d parameter\n"));
1592 Date0
=localtime(&Today
);
1594 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1597 y0
=y1
=Date0
->tm_year
+1900;
1598 m0
=m1
=Date0
->tm_mon
+1;
1599 d0
=d1
=Date0
->tm_mday
;
1600 } else if (sscanf(date
,"week-%d",&i
)==1) {
1602 There is no portable way to find the first day of the week even though the
1603 information is available in the locale. nl_langinfo has the unofficial
1604 parameters _NL_TIME_FIRST_WEEKDAY and _NL_TIME_WEEK_1STDAY but they are
1605 undocumented as is their return value and it is discouraged to use them.
1606 Beside, nl_langinfo isn't available on windows and the first day of the
1607 week isn't available at all on that system.
1609 const int FirstWeekDay
=1;
1613 debuga(_("Invalid number of weeks in -d parameter\n"));
1616 Date0
=localtime(&Today
);
1618 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1621 WeekBegin
=Today
-((Date0
->tm_wday
-FirstWeekDay
+7)%7)*24*60*60;
1622 WeekBegin
-=i
*7*24*60*60;
1623 Date0
=localtime(&WeekBegin
);
1625 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1628 y0
=Date0
->tm_year
+1900;
1631 WeekBegin
+=6*24*60*60;
1632 Date0
=localtime(&WeekBegin
);
1634 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1637 y1
=Date0
->tm_year
+1900;
1640 } else if (sscanf(date
,"month-%d",&i
)==1) {
1642 debuga(_("Invalid number of months in -d parameter\n"));
1645 Date0
=localtime(&Today
);
1647 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1650 if (Date0
->tm_mon
<i
%12) {
1651 y0
=Date0
->tm_year
+1900-i
/12-1;
1652 m0
=(Date0
->tm_mon
+12-i
%12)%12+1;
1655 y0
=Date0
->tm_year
+1900-i
/12;
1656 m0
=Date0
->tm_mon
-i
%12+1;
1659 memcpy(&Date1
,Date0
,sizeof(struct tm
));
1664 Date1
.tm_year
=y0
-1900;
1667 Date1
.tm_year
=y0
-1900+1;
1671 Date0
=localtime(&t1
);
1672 y1
=Date0
->tm_year
+1900;
1676 debuga(_("Invalid date range passed on command line\n"));
1681 *dfrom
=y0
*10000+m0
*100+d0
;
1682 *duntil
=y1
*10000+m1
*100+d1
;
1683 snprintf(date
,date_size
,"%02d/%02d/%04d-%02d/%02d/%04d",d0
,m0
,y0
,d1
,m1
,y1
);
1688 char *strlow(char *string
)
1694 for (s
= string
; *s
; ++s
)
1704 char *strup(char *string
)
1710 for (s
= string
; *s
; ++s
)
1718 void removetmp(const char *outdir
)
1723 if(!RemoveTempFiles
)
1727 debuga(_("Purging temporary file sarg-general\n"));
1729 if (snprintf(filename
,sizeof(filename
),"%s/sarg-general",outdir
)>=sizeof(filename
)) {
1730 debuga(_("Path too long: "));
1731 debuga_more("%s/sarg-period\n",outdir
);
1734 if((fp_gen
=fopen(filename
,"w"))==NULL
){
1735 debuga(_("Cannot open file \"%s\": %s\n"),filename
,strerror(errno
));
1738 totalger(fp_gen
,filename
);
1739 if (fclose(fp_gen
)==EOF
) {
1740 debuga(_("Write error in \"%s\": %s\n"),filename
,strerror(errno
));
1745 void load_excludecodes(const char *ExcludeCodes
)
1753 if(ExcludeCodes
[0] == '\0')
1756 if((fp_in
=fopen(ExcludeCodes
,"r"))==NULL
) {
1757 debuga(_("Cannot open file \"%s\": %s\n"),ExcludeCodes
,strerror(errno
));
1761 if (fseek(fp_in
, 0, SEEK_END
)==-1) {
1762 debuga(_("Failed to move till the end of the excluded codes file %s: %s\n"),ExcludeCodes
,strerror(errno
));
1765 MemSize
= ftell(fp_in
);
1767 debuga(_("Cannot get the size of file %s\n"),ExcludeCodes
);
1770 if (fseek(fp_in
, 0, SEEK_SET
)==-1) {
1771 debuga(_("Failed to rewind the excluded codes file %s: %s\n"),ExcludeCodes
,strerror(errno
));
1776 if((excludecode
=(char *) malloc(MemSize
))==NULL
) {
1777 debuga(_("malloc error (%ld bytes required)\n"),MemSize
);
1780 memset(excludecode
,0,MemSize
);
1783 while(fgets(data
,sizeof(data
),fp_in
)!=NULL
) {
1784 if (data
[0]=='#') continue;
1785 for (i
=strlen(data
)-1 ; i
>=0 && (unsigned char)data
[i
]<=' ' ; i
--) data
[i
]='\0';
1787 if (Stored
+i
+2>=MemSize
) {
1788 debuga(_("Too many codes to exclude in file %s\n"),ExcludeCodes
);
1791 strcat(excludecode
,data
);
1792 strcat(excludecode
,";");
1796 if (fclose(fp_in
)==EOF
) {
1797 debuga(_("Read error in \"%s\": %s\n"),ExcludeCodes
,strerror(errno
));
1803 void free_excludecodes(void)
1811 int vercode(const char *code
)
1816 if (excludecode
&& excludecode
[0]!='\0') {
1820 if (strncmp(code
,cod
,clen
)==0 && cod
[clen
]==';')
1822 cod
=strchr(cod
,';');
1829 void fixnone(char *str
)
1833 for (i
=strlen(str
)-1 ; i
>=0 && (unsigned char)str
[i
]<=' ' ; i
--);
1834 if(i
==3 && strncmp(str
,"none",4) == 0)
1840 void fixendofline(char *str
)
1844 for (i
=strlen(str
)-1 ; i
>=0 && (unsigned char)str
[i
]<=' ' ; i
--) str
[i
]=0;
1847 #ifdef LEGACY_TESTVALIDUSERCHAR
1848 int testvaliduserchar(const char *user
)
1853 for (y
=0; y
<strlen(UserInvalidChar
); y
++) {
1854 for (x
=0; x
<strlen(user
); x
++) {
1855 if(user
[x
] == UserInvalidChar
[y
])
1862 int testvaliduserchar(const char *user
)
1864 char * p_UserInvalidChar
= UserInvalidChar
;
1865 const char * p_user
;
1867 while( *p_UserInvalidChar
) {
1870 if( *p_UserInvalidChar
== *p_user
)
1874 p_UserInvalidChar
++ ;
1880 int compar( const void *a
, const void *b
)
1882 if( *(int *)a
> *(int *)b
) return 1;
1883 if( *(int *)a
< *(int *)b
) return -1;
1887 int getnumlist( char *buf
, numlist
*list
, const int len
, const int maxvalue
)
1889 int i
, j
, d
, flag
, r1
, r2
;
1890 char *pbuf
, **bp
, *strbufs
[ 24 ];
1893 strtok( buf
, " \t" );
1894 for( *bp
= strtok( NULL
, "," ), list
->len
= 0; *bp
; *bp
= strtok( NULL
, "," ) ) {
1895 if( ++bp
>= &strbufs
[ 24 ] )
1902 for( i
= 0; i
< list
->len
; i
++ ) {
1903 if( strchr( strbufs
[ i
], '-' ) != 0 ) {
1904 pbuf
= strbufs
[ i
];
1905 strtok( pbuf
, "-" );
1906 pbuf
= strtok( NULL
, "\0" );
1907 r1
= atoi( strbufs
[ i
] );
1908 if( ( r2
= atoi( pbuf
) ) >= maxvalue
|| r1
>= r2
)
1910 if( i
+ d
+ ( r2
- r1
) + 1 <= len
) {
1911 for( j
= r1
; j
<= r2
; j
++ )
1912 list
->list
[ i
+ d
++ ] = j
;
1917 if( ( list
->list
[ i
+ d
] = atoi( strbufs
[ i
] ) ) >= maxvalue
)
1921 qsort( list
->list
, list
->len
, sizeof( int ), compar
);
1924 for( i
= 0; i
< list
->len
- 1; i
++ )
1925 if( list
->list
[ i
] == list
->list
[ i
+ 1 ] ) {
1926 for( j
= i
+ 1; j
< list
->len
; j
++ )
1927 list
->list
[ j
- 1 ] = list
->list
[ j
];
1936 void show_info(FILE *fp_ou
)
1940 if(!ShowSargInfo
) return;
1941 zdate(ftime
, sizeof(ftime
), df
);
1942 fputs("<div class=\"info\">",fp_ou
);
1943 fprintf(fp_ou
,_("Generated by <a href=\"%s\">%s-%s</a> on %s"),URL
,PGM
,VERSION
,ftime
);
1944 fputs("</div>\n",fp_ou
);
1947 void show_sarg(FILE *fp_ou
, int depth
)
1951 if(!ShowSargLogo
) return;
1952 fputs("<div class=\"logo\"><a href=\"http://sarg.sourceforge.net\"><img src=\"",fp_ou
);
1953 for (i
=0 ; i
<depth
; i
++)
1955 fputs("images/sarg.png\" title=\"SARG, Squid Analysis Report Generator. Logo by Osamu Matsuzaki\" alt=\"Sarg\"></a> Squid Analysis Report Generator</div>\n",fp_ou
);
1958 void write_logo_image(FILE *fp_ou
)
1960 if(LogoImage
[0]!='\0')
1961 fprintf(fp_ou
, "<div class=\"logo\"><img src=\"%s\" width=\"%s\" height=\"%s\" alt=\"Logo\"> %s</div>\n",LogoImage
,Width
,Height
,LogoText
);
1964 void write_html_head(FILE *fp_ou
, int depth
, const char *page_title
,int javascript
)
1968 fputs("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n<html>\n",fp_ou
);
1969 fprintf(fp_ou
, "<head>\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">\n",CharSet
);
1970 if (page_title
) fprintf(fp_ou
,"<title>%s</title>\n",page_title
);
1972 if ((javascript
& HTML_JS_SORTTABLE
)!=0 && SortTableJs
[0]) {
1973 fputs("<script type=\"text/javascript\" src=\"",fp_ou
);
1974 if (strncmp(SortTableJs
,"../",3)==0) {
1975 for (i
=0 ; i
<depth
; i
++) fputs("../",fp_ou
);
1977 fputs(SortTableJs
,fp_ou
);
1978 fputs("\"></script>\n",fp_ou
);
1980 fputs("</head>\n<body>\n",fp_ou
);
1983 void write_html_header(FILE *fp_ou
, int depth
, const char *page_title
,int javascript
)
1985 write_html_head(fp_ou
,depth
,page_title
,javascript
);
1986 write_logo_image(fp_ou
);
1987 show_sarg(fp_ou
, depth
);
1988 fprintf(fp_ou
,"<div class=\"title\"><table cellpadding=\"0\" cellspacing=\"0\">\n<tr><th class=\"title_c\">%s</th></tr>\n",Title
);
1991 void close_html_header(FILE *fp_ou
)
1993 fputs("</table></div>\n",fp_ou
);
1996 void write_html_trailer(FILE *fp_ou
)
1999 fputs("</body>\n</html>\n",fp_ou
);
2002 void output_html_string(FILE *fp_ou
,const char *str
,int maxlen
)
2006 while (*str
&& (maxlen
<=0 || i
<maxlen
)) {
2009 fputs("&",fp_ou
);
2012 fputs("<",fp_ou
);
2015 fputs(">",fp_ou
);
2018 fputs(""",fp_ou
);
2021 fputs("'",fp_ou
);
2029 if (maxlen
>0 && i
>=maxlen
)
2030 fputs("…",fp_ou
);
2033 void output_html_url(FILE *fp_ou
,const char *url
)
2037 fputs("&",fp_ou
);
2045 Write a host name inside an A tag of a HTML file. If the host name starts
2046 with a star, it is assumed to be an alias that cannot be put inside a link
2047 so the A tag is not written around the host name.
2049 \param fp_ou The handle of the HTML file.
2050 \param url The host to display in the HTML file.
2051 \param maxlen The maximum number of characters to print into the host name.
2053 void output_html_link(FILE *fp_ou
,const char *url
,int maxlen
)
2055 if (url
[0]==ALIAS_PREFIX
) {
2056 // this is an alias, no need for a A tag
2057 output_html_string(fp_ou
,url
+1,100);
2059 if (skip_scheme(url
)==url
)
2060 fputs("<a href=\"http://",fp_ou
);//no scheme in the url, assume http:// to make the link clickable
2062 fputs("<a href=\"",fp_ou
);//the scheme is in the url, no need to add one
2063 output_html_url(fp_ou
,url
);
2065 output_html_string(fp_ou
,url
,100);
2066 fputs("</a>",fp_ou
);
2070 void url_module(const char *url
, char *w2
)
2076 for(x
=strlen(url
)-1; x
>=0; x
--) {
2077 if(url
[x
] == '/' || y
>=sizeof(w
)-1) break;
2086 for(y
=y
-1; y
>=0; y
--) {
2093 Mangle an URL to produce a part that can be used as an anchor in
2094 a html <a name=""> tag.
2096 \param url The URL to mangle.
2097 \param anchor The buffer to write the mangled URL.
2098 \param size The size of the buffer.
2100 void url_to_anchor(const char *url
,char *anchor
,int size
)
2106 for (i
=0 ; url
[i
] && url
[i
]!='/' && url
[i
]!='?' ; i
++);
2113 // only keep really safe characters
2119 if(isalnum(url
[i
]) || url
[i
]=='-' || url
[i
]=='_' || url
[i
]=='.') {
2123 if (!skip
) anchor
[--j
]='_';
2141 printf(_("SARG Version: %s\n"),VERSION
);
2142 #if defined(ENABLE_NLS) && defined(HAVE_LOCALE_H)
2144 printf(_("\nFor the translation to work, a valid message file should be installed as "
2145 "\"%s/<Locale>/LC_MESSAGES/%s.mo\" where <Locale> is derived from the effective locale.\n"),LOCALEDIR
,PACKAGE_NAME
);
2146 if (CurrentLocale
) {
2147 printf(_("Currently effective locale is \"%s\".\n"),CurrentLocale
);
2149 printf(_("Locale is not set in the environment variable.\n"));
2151 // TRANSLATORS: You may change this message to tell the reader that the language is correctly supported.
2152 printf(_("If this message is in English, then your language is not supported or not correctly installed.\n"));
2158 char *get_param_value(const char *param
,char *line
)
2162 while (*line
==' ' || *line
=='\t') line
++;
2164 if (strncasecmp(line
,param
,plen
)) return(NULL
);
2165 if (line
[plen
]!=' ' && line
[plen
]!='\t') return(NULL
);
2167 while (*line
==' ' || *line
=='\t') line
++;
2171 void unlinkdir(const char *dir
,bool contentonly
)
2175 struct dirent
*direntp
;
2181 while ((direntp
= readdir(dirp
)) != NULL
) {
2182 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2183 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2185 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2186 debuga(_("Path too long: "));
2187 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2191 err
=lstat(dname
,&st
);
2193 err
=stat(dname
,&st
);
2196 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2199 if (S_ISREG(st
.st_mode
)) {
2200 if (unlink(dname
)) {
2201 debuga(_("Cannot delete \"%s\": %s\n"),dname
,strerror(errno
));
2204 } else if (S_ISDIR(st
.st_mode
)) {
2207 debuga(_("Unknown path type %s\n"),dname
);
2214 debuga(_("Cannot delete \"%s\": %s\n"),dir
,strerror(errno
));
2221 Delete every file from the temporary directory where sarg is told to store its
2224 As any stray file left over by a previous run would be included in the report, we
2225 must delete every file from the temporary directory before we start processing the logs.
2227 But the temporary directory is given by the user either in the configuration file or
2228 on the command line. We check that the user didn't give a wrong directory by looking
2229 at the files stored in the directory. If a single file is not one of ours, we abort.
2231 \param dir The temporary directory to purge.
2233 void emptytmpdir(const char *dir
)
2237 struct dirent
*direntp
;
2243 static const char *TmpExt
[]=
2260 // make sure the temporary directory contains only our files
2261 while ((direntp
= readdir(dirp
)) != NULL
) {
2262 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2263 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2266 // is it one of our files
2267 dlen
=strlen(direntp
->d_name
);
2268 for (i
=sizeof(TmpExt
)/sizeof(TmpExt
[0])-1 ; i
>=0 ; i
--) {
2269 elen
=strlen(TmpExt
[i
]);
2270 if (dlen
>=elen
&& strcasecmp(direntp
->d_name
+dlen
-elen
,TmpExt
[i
])==0) break;
2273 debuga(_("Unknown file \"%s\" found in temporary directory \"%s\". It is not one of our files. "
2274 "Please check the temporary directory you gave to sarg. Adjust the path to a safe "
2275 "directory or manually delete the content of \"%s\"\n"),direntp
->d_name
,dir
,dir
);
2279 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2280 debuga(_("Path too long: "));
2281 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2286 err
=lstat(dname
,&st
);
2288 err
=stat(dname
,&st
);
2291 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2294 if (S_ISDIR(st
.st_mode
)) {
2296 } else if (!S_ISREG(st
.st_mode
)) {
2297 debuga(_("Unknown path type for \"%s\". Check temporary directory\n"),dname
);
2303 // now delete our files
2304 while ((direntp
= readdir(dirp
)) != NULL
) {
2305 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2306 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2309 // is it one of our files
2310 dlen
=strlen(direntp
->d_name
);
2311 for (i
=sizeof(TmpExt
)/sizeof(TmpExt
[0])-1 ; i
>=0 ; i
--) {
2312 elen
=strlen(TmpExt
[i
]);
2313 if (dlen
>=elen
&& strcasecmp(direntp
->d_name
+dlen
-elen
,TmpExt
[i
])==0) break;
2316 debuga(_("Unknown file \"%s\" found in temporary directory \"%s\". It is not one of our files. "
2317 "Please check the temporary directory you gave to sarg. Adjust the path to a safe "
2318 "directory or manually delete the content of \"%s\"\n"),direntp
->d_name
,dir
,dir
);
2322 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2323 debuga(_("Path too long: "));
2324 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2328 err
=lstat(dname
,&st
);
2330 err
=stat(dname
,&st
);
2333 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2336 if (S_ISREG(st
.st_mode
)) {
2337 if (unlink(dname
)) {
2338 debuga(_("Cannot delete \"%s\": %s\n"),dname
,strerror(errno
));
2342 debuga(_("Unknown path type %s\n"),dname
);
2349 Extract an url, IPv4 or IPv6 from a buffer. The IP addresses may end with a
2352 \param buf The buffer to parse.
2353 \param text A pointer to set to the beginning of the string pattern. No terminating zero is inserted.
2354 The pointer may be NULL.
2355 \param ipv4 A 4 bytes buffer to store the bytes of the IPv4 address.
2356 \param ipv6 A 8 short integers buffer to store the values of the IPv6 address.
2357 \param nbits The number of prefix bits for an IP address.
2358 \param next The content of the line after the extracted address.
2360 \retval 3 The pattern is a IPv6 address.
2361 \retval 2 The pattern is a IPv4 address.
2362 \retval 1 The patter is a string.
2363 \retval 0 Empty pattern.
2365 int extract_address_mask(const char *buf
,const char **text
,unsigned char *ipv4
,unsigned short int *ipv6
,int *nbits
,const char **next
)
2370 unsigned int value4
, value6
;
2371 unsigned short int addr
[8];
2381 // skip leading spaces and tabs
2382 while (*buf
&& (*buf
==' ' || *buf
=='\t')) buf
++;
2384 // find out the nature of the pattern
2385 ip_size
=0x60 | 0x04;
2396 for (i
=0 ; (unsigned char)buf
[i
]>' ' && buf
[i
]!='/' && buf
[i
]!='?' && (!bracket
|| buf
[i
]!=']') && ip_size
; i
++) {
2397 if (ip_size
& 0x04) {
2398 if (isdigit(buf
[i
])) {
2400 port_num
=port_num
*10+(buf
[i
]-'0');
2401 if (port_num
>65535) ip_size
&=~0x04;
2403 value4
=value4
*10+(buf
[i
]-'0');
2404 if (value4
>0xFFU
) ip_size
&=~0x04;
2406 } else if (buf
[i
]=='.' && addr_len
<4) {
2407 addr
[addr_len
++]=(unsigned short)(value4
& 0xFFU
);
2409 } else if (!port
&& buf
[i
]==':') {
2415 if (ip_size
& 0x60) {
2416 if (isdigit(buf
[i
])) {
2417 value6
=(value6
<<4)+(buf
[i
]-'0');
2419 if (value6
>0xFFFFU
) ip_size
&=~0x60;
2420 } else if (toupper(buf
[i
])>='A' && toupper(buf
[i
])<='F') {
2421 value6
=(value6
<<4)+(toupper(buf
[i
])-'A'+10);
2423 if (value6
>0xFFFFU
) ip_size
&=~0x60;
2424 } else if (buf
[i
]==':' && addr_len
<8) {
2425 if (nibble6_len
>0) {
2426 addr
[addr_len
++]=(unsigned short)(value6
& 0xFFFFU
);
2430 if (buf
[i
+1]==':') {
2439 if (i
==0) return(0);
2440 if (ip_size
& 0x04) {
2444 addr
[addr_len
++]=(unsigned short)(value4
& 0xFFU
);
2446 if (ip_size
& 0x60) {
2447 if (pad_pos
<0 && addr_len
!=7) {
2449 } else if (pad_pos
>=0 && addr_len
>=7)
2451 else if (nibble6_len
>0)
2452 addr
[addr_len
++]=(unsigned short)(value6
& 0xFFFFU
);
2457 if (bracket
) (*text
)--;
2459 while ((unsigned char)buf
[i
]>' ') i
++;
2460 if (next
) *next
=buf
+i
;
2463 max_mask
=(ip_size
& 0x04) ? 4*8 : 8*16;
2467 while (isdigit(buf
[i
])) i
++;
2468 if (mask
<0 || mask
>max_mask
) mask
=max_mask
;
2471 if (ip_size
& 0x60 && bracket
&& buf
[i
]==']') i
++;
2472 if (next
) *next
=buf
+i
;
2473 if (ip_size
& 0x04) {
2474 if (nbits
) *nbits
=mask
;
2475 for (i
=0 ; i
<addr_len
; i
++)
2476 ipv4
[i
]=(unsigned char)addr
[i
];
2481 if (nbits
) *nbits
=mask
;
2486 ipv6
[j
++]=(unsigned short int)addr
[i
++];
2488 while (j
<pad_pos
+pad_len
)
2492 ipv6
[j
++]=(unsigned short int)addr
[i
++];