]>
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
);
803 void formatdate(char *date
,int date_size
,int year
,int month
,int day
,int hour
,int minute
,int second
,int dst
)
809 memset(<m
,0,sizeof(ltm
));
810 if (year
>=1900) ltm
.tm_year
=year
-1900;
811 if (month
>=1 && month
<=12) ltm
.tm_mon
=month
-1;
812 if (day
>=1 && day
<=31) ltm
.tm_mday
=day
;
813 if (hour
>=0 && hour
<24) ltm
.tm_hour
=hour
;
814 if (minute
>=0 && minute
<60) ltm
.tm_min
=minute
;
815 if (second
>=0 && second
<60) ltm
.tm_sec
=second
;
817 unixtime
=mktime(<m
); //fill the missing entries
818 fulltm
=localtime(&unixtime
);
819 //strftime(date,date_size,"%a %b %d %H:%M:%S %Z %Y",fulltm);
820 strftime(date
,date_size
,"%c",fulltm
);
824 void computedate(int year
,int month
,int day
,struct tm
*t
)
826 memset(t
,0,sizeof(*t
));
827 t
->tm_year
=year
-1900;
833 int obtuser(const char *dirname
, const char *name
)
840 if (snprintf(wdir
,sizeof(wdir
),"%s%s/sarg-users",dirname
,name
)>=sizeof(wdir
)) {
841 debuga(_("Buffer too small to store "));
842 debuga_more("%s%s/sarg-users",dirname
,name
);
845 if((fp_in
=fopen(wdir
,"r"))==NULL
) {
846 if (snprintf(wdir
,sizeof(wdir
),"%s%s/users",dirname
,name
)>=sizeof(wdir
)) {
847 debuga(_("Buffer too small to store "));
848 debuga_more("%s%s/users",dirname
,name
);
851 if((fp_in
=fopen(wdir
,"r"))==NULL
) {
856 if (!fgets(tuser
,sizeof(tuser
),fp_in
)) {
857 debuga(_("Failed to read the number of users in %s\n"),wdir
);
867 void obttotal(const char *dirname
, const char *name
, int nuser
, long long int *tbytes
, long long int *media
)
872 char user
[MAX_USER_LEN
];
874 struct getwordstruct gwarea
;
880 if (snprintf(wdir
,sizeof(wdir
),"%s%s/sarg-general",dirname
,name
)>=sizeof(wdir
)) {
881 debuga(_("Buffer too small to store "));
882 debuga_more("%s%s/sarg-general",dirname
,name
);
885 if ((fp_in
= fopen(wdir
, "r")) == 0) {
886 if (snprintf(wdir
,sizeof(wdir
),"%s%s/general",dirname
,name
)>=sizeof(wdir
)) {
887 debuga(_("Buffer too small to store "));
888 debuga_more("%s%s/general",dirname
,name
);
891 if ((fp_in
= fopen(wdir
, "r")) == 0) {
896 if ((line
=longline_create())==NULL
) {
897 debuga(_("Not enough memory to read the file %s\n"),wdir
);
901 while((buf
=longline_read(fp_in
,line
))!=NULL
) {
902 if (strncmp(buf
,"TOTAL\t",6) == 0)
904 else if (strncmp(buf
,"TOTAL ",6) == 0)
908 getword_start(&gwarea
,buf
);
909 if (getword(user
,sizeof(user
),&gwarea
,sep
)<0) {
910 debuga(_("There is a invalid user in file %s\n"),wdir
);
913 if(strcmp(user
,"TOTAL") != 0)
915 if (getword_skip(MAXLEN
,&gwarea
,sep
)<0) {
916 debuga(_("There a broken total number of access in file %s\n"),wdir
);
919 if (getword_atoll(tbytes
,&gwarea
,sep
)<0) {
920 debuga(_("There is a broken number of bytes in file %s\n"),wdir
);
926 longline_destroy(&line
);
931 *media
=*tbytes
/ nuser
;
935 int getperiod_fromsarglog(const char *arqtt
,struct periodstruct
*period
)
938 int day0
, month0
, year0
, hour0
, minute0
;
939 int day1
, month1
, year1
, hour1
, minute1
;
942 memset(period
,0,sizeof(*period
));
945 while((str
=strstr(str
,"sarg-"))!=NULL
) {
947 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
948 day0
=(str
[0]-'0')*10+(str
[1]-'0');
949 if (day0
<1 || day0
>31) continue;
951 month0
=(str
[0]-'0')*10+(str
[1]-'0')-1;
952 if (month0
<0 || month0
>11) continue;
955 for (i
=0 ; isdigit(str
[i
]) && i
<4 ; i
++) year0
=year0
*10+(str
[i
]-'0');
958 if (str
[0]!='_') continue;
961 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
962 hour0
=(str
[0]-'0')*10+(str
[1]-'0');
964 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
965 minute0
=(str
[0]-'0')*10+(str
[1]-'0');
968 if (*str
!= '-') continue;
971 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
972 day1
=(str
[0]-'0')*10+(str
[1]-'0');
973 if (day1
<1 || day1
>31) continue;
975 month1
=(str
[0]-'0')*10+(str
[1]-'0')-1;
976 if (month1
<0 || month1
>11) continue;
979 for (i
=0 ; isdigit(str
[i
]) && i
<4 ; i
++) year1
=year1
*10+(str
[i
]-'0');
983 if (str
[0]!='_') continue;
986 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
987 hour1
=(str
[0]-'0')*10+(str
[1]-'0');
989 if (!isdigit(str
[0]) || !isdigit(str
[1])) continue;
990 minute1
=(str
[0]-'0')*10+(str
[1]-'0');
993 period
->start
.tm_mday
=day0
;
994 period
->start
.tm_mon
=month0
;
995 period
->start
.tm_year
=year0
-1900;
996 period
->start
.tm_hour
=hour0
;
997 period
->start
.tm_min
=minute0
;
998 period
->end
.tm_mday
=day1
;
999 period
->end
.tm_mon
=month1
;
1000 period
->end
.tm_year
=year1
-1900;
1001 period
->end
.tm_hour
=hour1
;
1002 period
->end
.tm_min
=minute1
;
1008 void getperiod_fromrange(struct periodstruct
*period
,int dfrom
,int duntil
)
1010 memset(&period
->start
,0,sizeof(period
->start
));
1011 period
->start
.tm_mday
=dfrom
%100;
1012 period
->start
.tm_mon
=(dfrom
/100)%100-1;
1013 period
->start
.tm_year
=(dfrom
/10000)-1900;
1015 memset(&period
->end
,0,sizeof(period
->end
));
1016 period
->end
.tm_mday
=duntil
%100;
1017 period
->end
.tm_mon
=(duntil
/100)%100-1;
1018 period
->end
.tm_year
=(duntil
/10000)-1900;
1022 Update the \a main period to encompass the period in \a candidate.
1024 void getperiod_merge(struct periodstruct
*main
,struct periodstruct
*candidate
)
1029 mdate
=(main
->start
.tm_year
)*10000+(main
->start
.tm_mon
)*100+main
->start
.tm_mday
;
1030 cdate
=(candidate
->start
.tm_year
)*10000+(candidate
->start
.tm_mon
)*100+candidate
->start
.tm_mday
;
1031 if (cdate
<mdate
) memcpy(&main
->start
,&candidate
->start
,sizeof(struct tm
));
1033 mdate
=(main
->end
.tm_year
)*10000+(main
->end
.tm_mon
)*100+main
->end
.tm_mday
;
1034 cdate
=(candidate
->end
.tm_year
)*10000+(candidate
->end
.tm_mon
)*100+candidate
->end
.tm_mday
;
1035 if (cdate
>mdate
) memcpy(&main
->end
,&candidate
->end
,sizeof(struct tm
));
1038 int getperiod_buildtext(struct periodstruct
*period
)
1042 char text1
[40], text2
[40];
1045 i
=strftime(text1
, sizeof(text1
), "%Y %b %d", &period
->start
);
1046 } else if(df
=='e') {
1047 i
=strftime(text1
, sizeof(text1
), "%d %b %Y", &period
->start
);
1048 } else /*if (df=='w')*/ {
1049 IndexTree
=INDEX_TREE_FILE
;
1050 i
=strftime(text1
, sizeof(text1
), "%Y.%U", &period
->start
);
1052 if (i
== 0) return(-1);
1054 range
=(period
->start
.tm_year
!=period
->end
.tm_year
||
1055 period
->start
.tm_mon
!=period
->end
.tm_mon
||
1056 period
->start
.tm_mday
!=period
->end
.tm_mday
);
1059 i
=strftime(text2
, sizeof(text2
)-i
, "%Y %b %d", &period
->end
);
1060 } else if (df
=='e') {
1061 i
=strftime(text2
, sizeof(text2
)-i
, "%d %b %Y", &period
->end
);
1063 i
=strftime(text2
, sizeof(text2
)-i
, "%Y.%U", &period
->end
);
1065 if (i
== 0) return(-1);
1069 snprintf(period
->text
,sizeof(period
->text
),"%s-%s",text1
,text2
);
1070 snprintf(period
->html
,sizeof(period
->html
),"%s—%s",text1
,text2
);
1072 safe_strcpy(period
->text
,text1
,sizeof(period
->text
));
1073 safe_strcpy(period
->html
,text1
,sizeof(period
->html
));
1078 static void copy_images(void)
1080 FILE *img_in
, *img_ou
;
1082 char srcfile
[MAXLEN
];
1083 char dstfile
[MAXLEN
];
1085 struct dirent
*direntp
;
1086 char buffer
[MAXLEN
];
1090 if (snprintf(images
,sizeof(images
),"%simages",outdir
)>=sizeof(images
)) {
1091 debuga(_("Cannot copy images to target directory %simages\n"),outdir
);
1094 if (access(images
,R_OK
)!=0) {
1095 if (PortableMkDir(images
,0755)) {
1096 debuga(_("Cannot create directory \"%s\": %s\n"),images
,strerror(errno
));
1101 dirp
= opendir(ImageDir
);
1103 debuga(_("Cannot open directory \"%s\": %s\n"),ImageDir
,strerror(errno
));
1106 while ((direntp
= readdir( dirp
)) != NULL
){
1107 if(direntp
->d_name
[0]=='.')
1109 if (snprintf(srcfile
,sizeof(srcfile
),"%s/%s",ImageDir
,direntp
->d_name
)>=sizeof(srcfile
)) {
1110 debuga(_("Buffer too small to store "));
1111 debuga_more("%s/%s",ImageDir
,direntp
->d_name
);
1114 if (stat(srcfile
,&info
)) {
1115 debuga(_("Cannot stat \"%s\": %s\n"),srcfile
,strerror(errno
));
1118 if (S_ISREG(info
.st_mode
)) {
1119 if (snprintf(dstfile
,sizeof(dstfile
),"%s/%s",images
,direntp
->d_name
)>=sizeof(dstfile
)) {
1120 debuga(_("Buffer too small to store "));
1121 debuga_more("%s/%s",images
,direntp
->d_name
);
1124 img_in
= fopen(srcfile
, "rb");
1126 img_ou
= fopen(dstfile
, "wb");
1128 while ((nread
= fread(buffer
,1,sizeof(buffer
),img_in
))>0) {
1129 if (fwrite(buffer
,1,nread
,img_ou
)!=nread
) {
1130 debuga(_("Failed to copy image %s to %s\n"),srcfile
,dstfile
);
1134 if (fclose(img_ou
)==EOF
) {
1135 debuga(_("Error while copying image %s: %s\n"),dstfile
,strerror(errno
));
1139 debuga(_("Cannot open file \"%s\": %s\n"), dstfile
, strerror(errno
));
1142 debuga(_("Cannot open file \"%s\": %s\n"), srcfile
, strerror(errno
));
1145 (void) closedir(dirp
);
1151 * Check if the proposed file name conforms to the directory structure layed out
1152 * as a file tree. It is used to check if the file name enumerated while scanning
1153 * a directory content may have been created by sarg running with IndexTree set to
1156 bool IsTreeFileDirName(const char *Name
)
1161 // start year (date format u) or start day (date format e)
1162 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1164 if (isdigit(Name
[2]) && isdigit(Name
[3]))
1166 // date format is either u or w
1170 if (!isdigit(Name
[5]) || !isdigit(Name
[6])) return(false);
1171 return(true);//date format w is confirmed
1178 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1179 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1180 if (i
<0) return(false);
1184 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1189 else if (isalpha(Name
[2]) && isalpha(Name
[3]) && isalpha(Name
[4]))
1195 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1196 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1197 if (i
<0) return(false);
1201 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1209 if (Name
[0]!='-') return(false);
1212 if (DateFormat
=='u')
1214 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1217 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1218 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1219 if (i
<0) return(false);
1222 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1225 else //DateFormat=='e'
1227 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1230 if (!isalpha(Name
[0]) || !isalpha(Name
[1]) || !isalpha(Name
[2])) return(false);
1231 for (i
=11 ; i
>=0 && memcmp(mtab1
[i
],Name
,3) ; i
--);
1232 if (i
<0) return(false);
1235 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1239 * The directory name may contains additional characters such as a counter if
1240 * a previous report is never overwritten.
1246 * Check if the proposed file name can be the year part of a report tree build with
1247 * IndexTree set to INDEX_TREE_DATE.
1249 bool IsTreeYearFileName(const char *Name
)
1251 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1256 if (!isdigit(Name
[0]) || !isdigit(Name
[1]) || !isdigit(Name
[2]) || !isdigit(Name
[3])) return(false);
1259 if (Name
[0]) return(false);
1264 * Check if the proposed file name can be the month part of a report tree build with
1265 * IndexTree set to INDEX_TREE_DATE.
1267 bool IsTreeMonthFileName(const char *Name
)
1271 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1272 m
=(Name
[0]-'0')*10+(Name
[1]-'0');
1273 if (m
<1 || m
>12) return(false);
1278 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1279 m
=(Name
[0]-'0')*10+(Name
[1]-'0');
1280 if (m
<1 || m
>12) return(false);
1283 if (Name
[0]) return(false);
1288 * Check if the proposed file name can be the day part of a report tree build with
1289 * IndexTree set to INDEX_TREE_DATE.
1291 bool IsTreeDayFileName(const char *Name
)
1295 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1296 d
=(Name
[0]-'0')*10+(Name
[1]-'0');
1297 if (d
<1 || d
>31) return(false);
1301 if (!isdigit(Name
[0]) || !isdigit(Name
[1])) return(false);
1302 d
=(Name
[0]-'0')*10+(Name
[1]-'0');
1303 if (d
<1 || d
>31) return(false);
1306 * The directory name may contains additional characters such as a counter if
1307 * a previous report is never overwritten.
1312 int vrfydir(const struct periodstruct
*per1
, const char *addr
, const char *site
, const char *us
, const char *form
)
1317 char dirname2
[MAXLEN
];
1325 strcpy(wdir
,outdir
);
1327 y1
=per1
->start
.tm_year
+1900;
1328 y2
=per1
->end
.tm_year
+1900;
1329 m1
=per1
->start
.tm_mon
+1;
1330 m2
=per1
->end
.tm_mon
+1;
1331 d1
=per1
->start
.tm_mday
;
1332 d2
=per1
->end
.tm_mday
;
1333 if(IndexTree
== INDEX_TREE_DATE
) {
1334 wlen
+=sprintf(wdir
+wlen
,"%04d",y1
);
1335 if(y1
!=y2
) wlen
+=sprintf(wdir
+wlen
,"-%04d",y2
);
1336 if(access(wdir
, R_OK
) != 0)
1339 wlen
+=sprintf(wdir
+wlen
,"/%02d",m1
);
1340 if(m1
!= m2
) wlen
+=sprintf(wdir
+wlen
,"-%02d",m2
);
1341 if(access(wdir
, R_OK
) != 0)
1344 wlen
+=sprintf(wdir
+wlen
,"/%02d",d1
);
1345 if(d1
!=d2
) wlen
+=sprintf(wdir
+wlen
,"-%02d",d2
);
1348 wlen
=snprintf(wdir
+wlen
,sizeof(wdir
)-wlen
,"%04d%s%02d-%04d%s%02d",y1
,
1349 conv_month_name(m1
),d1
,y2
,conv_month_name(m2
),d2
);
1350 } else if (df
== 'e') {
1351 wlen
=snprintf(wdir
+wlen
,sizeof(wdir
)-wlen
,"%02d%s%04d-%02d%s%04d",d1
,
1352 conv_month_name(m1
),y1
,d2
,conv_month_name(m2
),y2
);
1353 } else if (df
== 'w') {
1354 wlen2
=strftime(wdir
+wlen
, sizeof(wdir
)-wlen
, "%Y.%U", &per1
->start
);
1355 if (wlen2
==0) return(-1);
1361 struct userinfostruct
*uinfo
=userinfo_find_from_id(us
);
1364 strcat(wdir
,uinfo
->filename
);
1367 if(addr
[0] != '\0') {
1371 if(site
[0] != '\0') {
1376 strcpy(outdirname
,wdir
);
1378 if(IndexTree
!= INDEX_TREE_DATE
) {
1379 if(!OverwriteReport
) {
1381 if(access(wdir
,R_OK
) == 0) {
1382 sprintf(wdir
,"%s.%d",outdirname
,num
);
1391 debuga(_("File %s already exists, moved to %s\n"),outdirname
,wdir
);
1392 rename(outdirname
,wdir
);
1395 if(access(outdirname
,R_OK
) == 0) {
1396 unlinkdir(outdirname
,1);
1399 my_mkdir(outdirname
);
1401 strcpy(dirname2
,wdir
);
1402 if(!OverwriteReport
) {
1404 if(access(wdir
,R_OK
) == 0) {
1405 sprintf(wdir
,"%s.%d",dirname2
,num
);
1414 debuga(_("File %s already exists, moved to %s\n"),dirname2
,wdir
);
1415 rename(dirname2
,wdir
);
1416 strcpy(dirname2
,wdir
);
1419 if(access(wdir
,R_OK
) == 0) {
1424 if(access(wdir
, R_OK
) != 0)
1428 strcpy(dirname2
,wdir
);
1430 if (snprintf(wdir
,sizeof(wdir
),"%s/sarg-date",outdirname
)>=sizeof(wdir
)) {
1431 debuga(_("Buffer too small to store "));
1432 debuga_more("%s/sarg-date",outdirname
);
1435 if ((fp_ou
= fopen(wdir
, "wt")) == 0) {
1436 debuga(_("cannot open %s for writing: %s\n"),wdir
,strerror(errno
));
1441 //strftime(wdir,sizeof(wdir),"%a %b %d %H:%M:%S %Z %Y",localtime(&curtime));
1442 loctm
=localtime(&curtime
);
1443 strftime(wdir
,sizeof(wdir
),"%Y-%m-%d %H:%M:%S",loctm
);
1444 if (fprintf(fp_ou
,"%s %d\n",wdir
,loctm
->tm_isdst
)<0) {
1445 debuga(_("Failed to write the date in %s\n"),wdir
);
1449 if (fclose(fp_ou
)==EOF
) {
1450 debuga(_("Failed to write the date in %s: %s\n"),wdir
,strerror(errno
));
1459 Copy a string without overflowing the buffer. The copied string
1460 is properly terminated by an ASCII zero.
1462 \param dest The destination buffer.
1463 \param src The source buffer.
1464 \param length The size of the destination buffer. The program is aborted
1465 if the length is negative or zero.
1467 void safe_strcpy(char *dest
,const char *src
,int length
)
1470 debuga(_("Invalid buffer length passed to the function to safely copy a string\n"));
1473 strncpy(dest
,src
,length
-1);
1474 dest
[length
-1]='\0';
1477 void strip_latin(char *line
)
1484 for (i
=0;line
[i
];i
++){
1486 if (line
[i
]==';') skip
=0;
1498 void zdate(char *ftime
,int ftimesize
, char DateFormat
)
1504 local
= localtime(&t
);
1505 if (DateFormat
=='u')
1506 strftime(ftime
, ftimesize
, "%b/%d/%Y %H:%M", local
);
1507 else if (DateFormat
=='e')
1508 strftime(ftime
, ftimesize
, "%d/%b/%Y-%H:%M", local
);
1509 else if (DateFormat
=='w')
1510 strftime(ftime
, ftimesize
, "%W-%H-%M", local
);
1515 char *fixtime(long long int elap
)
1517 long int num
= elap
/ 1000LL;
1521 static char buf
[20];
1524 min
=(num
% 3600L) / 60L;
1527 if(hor
==0 && min
==0 && sec
==0)
1530 snprintf(buf
,sizeof(buf
),"%d:%02d:%02d",hor
,min
,sec
);
1536 void date_from(char *date
,int date_size
, int *dfrom
, int *duntil
)
1545 if (isdigit(date
[0])) {
1548 if (sscanf(date
,"%d/%d/%d%n",&d0
,&m0
,&y0
,&next
)!=3 || y0
<100 || m0
<1 || m0
>12 || d0
<1 || d0
>31 || next
<0) {
1549 debuga(_("The date passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1552 if (date
[next
]=='-') {
1553 if (sscanf(date
+next
+1,"%d/%d/%d",&d1
,&m1
,&y1
)!=3 || y1
<100 || m1
<1 || m1
>12 || d1
<1 || d1
>31) {
1554 debuga(_("The date range passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1557 } else if (date
[next
]!='\0') {
1558 debuga(_("The date range passed as argument is not formated as dd/mm/yyyy or dd/mm/yyyy-dd/mm/yyyy\n"));
1568 struct tm
*Date0
,Date1
;
1570 if (time(&Today
)==(time_t)-1) {
1571 debuga(_("Failed to get the current time\n"));
1574 if (sscanf(date
,"day-%d",&i
)==1) {
1576 debuga(_("Invalid number of days in -d parameter\n"));
1580 Date0
=localtime(&Today
);
1582 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1585 y0
=y1
=Date0
->tm_year
+1900;
1586 m0
=m1
=Date0
->tm_mon
+1;
1587 d0
=d1
=Date0
->tm_mday
;
1588 } else if (sscanf(date
,"week-%d",&i
)==1) {
1590 There is no portable way to find the first day of the week even though the
1591 information is available in the locale. nl_langinfo has the unofficial
1592 parameters _NL_TIME_FIRST_WEEKDAY and _NL_TIME_WEEK_1STDAY but they are
1593 undocumented as is their return value and it is discouraged to use them.
1594 Beside, nl_langinfo isn't available on windows and the first day of the
1595 week isn't available at all on that system.
1597 const int FirstWeekDay
=1;
1601 debuga(_("Invalid number of weeks in -d parameter\n"));
1604 Date0
=localtime(&Today
);
1606 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1609 WeekBegin
=Today
-((Date0
->tm_wday
-FirstWeekDay
+7)%7)*24*60*60;
1610 WeekBegin
-=i
*7*24*60*60;
1611 Date0
=localtime(&WeekBegin
);
1613 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1616 y0
=Date0
->tm_year
+1900;
1619 WeekBegin
+=6*24*60*60;
1620 Date0
=localtime(&WeekBegin
);
1622 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1625 y1
=Date0
->tm_year
+1900;
1628 } else if (sscanf(date
,"month-%d",&i
)==1) {
1630 debuga(_("Invalid number of months in -d parameter\n"));
1633 Date0
=localtime(&Today
);
1635 debuga(_("Cannot convert local time: %s\n"),strerror(errno
));
1638 if (Date0
->tm_mon
<i
%12) {
1639 y0
=Date0
->tm_year
+1900-i
/12-1;
1640 m0
=(Date0
->tm_mon
+12-i
%12)%12+1;
1643 y0
=Date0
->tm_year
+1900-i
/12;
1644 m0
=Date0
->tm_mon
-i
%12+1;
1647 memcpy(&Date1
,Date0
,sizeof(struct tm
));
1652 Date1
.tm_year
=y0
-1900;
1655 Date1
.tm_year
=y0
-1900+1;
1659 Date0
=localtime(&t1
);
1660 y1
=Date0
->tm_year
+1900;
1664 debuga(_("Invalid date range passed on command line\n"));
1669 *dfrom
=y0
*10000+m0
*100+d0
;
1670 *duntil
=y1
*10000+m1
*100+d1
;
1671 snprintf(date
,date_size
,"%02d/%02d/%04d-%02d/%02d/%04d",d0
,m0
,y0
,d1
,m1
,y1
);
1676 char *strlow(char *string
)
1682 for (s
= string
; *s
; ++s
)
1692 char *strup(char *string
)
1698 for (s
= string
; *s
; ++s
)
1706 void removetmp(const char *outdir
)
1711 if(!RemoveTempFiles
)
1715 debuga(_("Purging temporary file sarg-general\n"));
1717 if (snprintf(filename
,sizeof(filename
),"%s/sarg-general",outdir
)>=sizeof(filename
)) {
1718 debuga(_("Path too long: "));
1719 debuga_more("%s/sarg-period\n",outdir
);
1722 if((fp_gen
=fopen(filename
,"w"))==NULL
){
1723 debuga(_("Cannot open file \"%s\": %s\n"),filename
,strerror(errno
));
1726 totalger(fp_gen
,filename
);
1727 if (fclose(fp_gen
)==EOF
) {
1728 debuga(_("Failed to close %s after writing the total line: %s\n"),filename
,strerror(errno
));
1733 void load_excludecodes(const char *ExcludeCodes
)
1741 if(ExcludeCodes
[0] == '\0')
1744 if((fp_in
=fopen(ExcludeCodes
,"r"))==NULL
) {
1745 debuga(_("Cannot open file \"%s\": %s\n"),ExcludeCodes
,strerror(errno
));
1749 if (fseek(fp_in
, 0, SEEK_END
)==-1) {
1750 debuga(_("Failed to move till the end of the excluded codes file %s: %s\n"),ExcludeCodes
,strerror(errno
));
1753 MemSize
= ftell(fp_in
);
1755 debuga(_("Cannot get the size of file %s\n"),ExcludeCodes
);
1758 if (fseek(fp_in
, 0, SEEK_SET
)==-1) {
1759 debuga(_("Failed to rewind the excluded codes file %s: %s\n"),ExcludeCodes
,strerror(errno
));
1764 if((excludecode
=(char *) malloc(MemSize
))==NULL
) {
1765 debuga(_("malloc error (%ld bytes required)\n"),MemSize
);
1768 memset(excludecode
,0,MemSize
);
1771 while(fgets(data
,sizeof(data
),fp_in
)!=NULL
) {
1772 if (data
[0]=='#') continue;
1773 for (i
=strlen(data
)-1 ; i
>=0 && (unsigned char)data
[i
]<=' ' ; i
--) data
[i
]='\0';
1775 if (Stored
+i
+2>=MemSize
) {
1776 debuga(_("Too many codes to exclude in file %s\n"),ExcludeCodes
);
1779 strcat(excludecode
,data
);
1780 strcat(excludecode
,";");
1788 void free_excludecodes(void)
1796 int vercode(const char *code
)
1801 if (excludecode
&& excludecode
[0]!='\0') {
1805 if (strncmp(code
,cod
,clen
)==0 && cod
[clen
]==';')
1807 cod
=strchr(cod
,';');
1814 void fixnone(char *str
)
1818 for (i
=strlen(str
)-1 ; i
>=0 && (unsigned char)str
[i
]<=' ' ; i
--);
1819 if(i
==3 && strncmp(str
,"none",4) == 0)
1825 void fixendofline(char *str
)
1829 for (i
=strlen(str
)-1 ; i
>=0 && (unsigned char)str
[i
]<=' ' ; i
--) str
[i
]=0;
1832 #ifdef LEGACY_TESTVALIDUSERCHAR
1833 int testvaliduserchar(const char *user
)
1838 for (y
=0; y
<strlen(UserInvalidChar
); y
++) {
1839 for (x
=0; x
<strlen(user
); x
++) {
1840 if(user
[x
] == UserInvalidChar
[y
])
1847 int testvaliduserchar(const char *user
)
1849 char * p_UserInvalidChar
= UserInvalidChar
;
1850 const char * p_user
;
1852 while( *p_UserInvalidChar
) {
1855 if( *p_UserInvalidChar
== *p_user
)
1859 p_UserInvalidChar
++ ;
1865 int compar( const void *a
, const void *b
)
1867 if( *(int *)a
> *(int *)b
) return 1;
1868 if( *(int *)a
< *(int *)b
) return -1;
1872 int getnumlist( char *buf
, numlist
*list
, const int len
, const int maxvalue
)
1874 int i
, j
, d
, flag
, r1
, r2
;
1875 char *pbuf
, **bp
, *strbufs
[ 24 ];
1878 strtok( buf
, " \t" );
1879 for( *bp
= strtok( NULL
, "," ), list
->len
= 0; *bp
; *bp
= strtok( NULL
, "," ) ) {
1880 if( ++bp
>= &strbufs
[ 24 ] )
1887 for( i
= 0; i
< list
->len
; i
++ ) {
1888 if( strchr( strbufs
[ i
], '-' ) != 0 ) {
1889 pbuf
= strbufs
[ i
];
1890 strtok( pbuf
, "-" );
1891 pbuf
= strtok( NULL
, "\0" );
1892 r1
= atoi( strbufs
[ i
] );
1893 if( ( r2
= atoi( pbuf
) ) >= maxvalue
|| r1
>= r2
)
1895 if( i
+ d
+ ( r2
- r1
) + 1 <= len
) {
1896 for( j
= r1
; j
<= r2
; j
++ )
1897 list
->list
[ i
+ d
++ ] = j
;
1902 if( ( list
->list
[ i
+ d
] = atoi( strbufs
[ i
] ) ) >= maxvalue
)
1906 qsort( list
->list
, list
->len
, sizeof( int ), compar
);
1909 for( i
= 0; i
< list
->len
- 1; i
++ )
1910 if( list
->list
[ i
] == list
->list
[ i
+ 1 ] ) {
1911 for( j
= i
+ 1; j
< list
->len
; j
++ )
1912 list
->list
[ j
- 1 ] = list
->list
[ j
];
1921 void show_info(FILE *fp_ou
)
1925 if(!ShowSargInfo
) return;
1926 zdate(ftime
, sizeof(ftime
), df
);
1927 fputs("<div class=\"info\">",fp_ou
);
1928 fprintf(fp_ou
,_("Generated by <a href='%s'>%s-%s</a> on %s"),URL
,PGM
,VERSION
,ftime
);
1929 fputs("</div>\n",fp_ou
);
1932 void show_sarg(FILE *fp_ou
, int depth
)
1936 if(!ShowSargLogo
) return;
1937 fputs("<div class=\"logo\"><a href=\"http://sarg.sourceforge.net\"><img src=\"",fp_ou
);
1938 for (i
=0 ; i
<depth
; i
++)
1940 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
);
1943 void write_logo_image(FILE *fp_ou
)
1945 if(LogoImage
[0]!='\0')
1946 fprintf(fp_ou
, "<div class=\"logo\"><img src=\"%s\" width=\"%s\" height=\"%s\" alt=\"Logo\"> %s</div>\n",LogoImage
,Width
,Height
,LogoText
);
1949 void write_html_head(FILE *fp_ou
, int depth
, const char *page_title
,int javascript
)
1953 fputs("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n<html>\n",fp_ou
);
1954 fprintf(fp_ou
, "<head>\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">\n",CharSet
);
1955 if (page_title
) fprintf(fp_ou
,"<title>%s</title>\n",page_title
);
1957 if ((javascript
& HTML_JS_SORTTABLE
)!=0 && SortTableJs
[0]) {
1958 fputs("<script type=\"text/javascript\" src=\"",fp_ou
);
1959 if (strncmp(SortTableJs
,"../",3)==0) {
1960 for (i
=0 ; i
<depth
; i
++) fputs("../",fp_ou
);
1962 fputs(SortTableJs
,fp_ou
);
1963 fputs("\"></script>\n",fp_ou
);
1965 fputs("</head>\n<body>\n",fp_ou
);
1968 void write_html_header(FILE *fp_ou
, int depth
, const char *page_title
,int javascript
)
1970 write_html_head(fp_ou
,depth
,page_title
,javascript
);
1971 write_logo_image(fp_ou
);
1972 show_sarg(fp_ou
, depth
);
1973 fprintf(fp_ou
,"<div class=\"title\"><table cellpadding=\"0\" cellspacing=\"0\">\n<tr><th class=\"title_c\">%s</th></tr>\n",Title
);
1976 void close_html_header(FILE *fp_ou
)
1978 fputs("</table></div>\n",fp_ou
);
1981 void write_html_trailer(FILE *fp_ou
)
1984 fputs("</body>\n</html>\n",fp_ou
);
1987 void output_html_string(FILE *fp_ou
,const char *str
,int maxlen
)
1991 while (*str
&& (maxlen
<=0 || i
<maxlen
)) {
1994 fputs("&",fp_ou
);
1997 fputs("<",fp_ou
);
2000 fputs(">",fp_ou
);
2003 fputs(""",fp_ou
);
2006 fputs("'",fp_ou
);
2014 if (maxlen
>0 && i
>=maxlen
)
2015 fputs("…",fp_ou
);
2018 void output_html_url(FILE *fp_ou
,const char *url
)
2022 fputs("&",fp_ou
);
2030 Write a host name inside an A tag of a HTML file. If the host name starts
2031 with a star, it is assumed to be an alias that cannot be put inside a link
2032 so the A tag is not written around the host name.
2034 \param fp_ou The handle of the HTML file.
2035 \param url The host to display in the HTML file.
2036 \param maxlen The maximum number of characters to print into the host name.
2038 void output_html_link(FILE *fp_ou
,const char *url
,int maxlen
)
2040 if (url
[0]==ALIAS_PREFIX
) {
2041 // this is an alias, no need for a A tag
2042 output_html_string(fp_ou
,url
+1,100);
2044 if (skip_scheme(url
)==url
)
2045 fputs("<a href=\"http://",fp_ou
);//no scheme in the url, assume http:// to make the link clickable
2047 fputs("<a href=\"",fp_ou
);//the scheme is in the url, no need to add one
2048 output_html_url(fp_ou
,url
);
2050 output_html_string(fp_ou
,url
,100);
2051 fputs("</a>",fp_ou
);
2055 void url_module(const char *url
, char *w2
)
2061 for(x
=strlen(url
)-1; x
>=0; x
--) {
2062 if(url
[x
] == '/' || y
>=sizeof(w
)-1) break;
2071 for(y
=y
-1; y
>=0; y
--) {
2078 Mangle an URL to produce a part that can be used as an anchor in
2079 a html <a name=""> tag.
2081 \param url The URL to mangle.
2082 \param anchor The buffer to write the mangled URL.
2083 \param size The size of the buffer.
2085 void url_to_anchor(const char *url
,char *anchor
,int size
)
2091 for (i
=0 ; url
[i
] && url
[i
]!='/' && url
[i
]!='?' ; i
++);
2098 // only keep really safe characters
2104 if(isalnum(url
[i
]) || url
[i
]=='-' || url
[i
]=='_' || url
[i
]=='.') {
2108 if (!skip
) anchor
[--j
]='_';
2126 printf(_("SARG Version: %s\n"),VERSION
);
2127 #if defined(ENABLE_NLS) && defined(HAVE_LOCALE_H)
2129 printf(_("\nFor the translation to work, a valid message file should be installed as "
2130 "\"%s/<Locale>/LC_MESSAGES/%s.mo\" where <Locale> is derived from the effective locale.\n"),LOCALEDIR
,PACKAGE_NAME
);
2131 if (CurrentLocale
) {
2132 printf(_("Currently effective locale is \"%s\".\n"),CurrentLocale
);
2134 printf(_("Locale is not set in the environment variable.\n"));
2136 // TRANSLATORS: You may change this message to tell the reader that the language is correctly supported.
2137 printf(_("If this message is in English, then your language is not supported or not correctly installed.\n"));
2143 char *get_param_value(const char *param
,char *line
)
2147 while (*line
==' ' || *line
=='\t') line
++;
2149 if (strncasecmp(line
,param
,plen
)) return(NULL
);
2150 if (line
[plen
]!=' ' && line
[plen
]!='\t') return(NULL
);
2152 while (*line
==' ' || *line
=='\t') line
++;
2156 void unlinkdir(const char *dir
,bool contentonly
)
2160 struct dirent
*direntp
;
2166 while ((direntp
= readdir(dirp
)) != NULL
) {
2167 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2168 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2170 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2171 debuga(_("Path too long: "));
2172 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2176 err
=lstat(dname
,&st
);
2178 err
=stat(dname
,&st
);
2181 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2184 if (S_ISREG(st
.st_mode
)) {
2185 if (unlink(dname
)) {
2186 debuga(_("Cannot delete \"%s\": %s\n"),dname
,strerror(errno
));
2189 } else if (S_ISDIR(st
.st_mode
)) {
2192 debuga(_("Unknown path type %s\n"),dname
);
2199 debuga(_("Cannot delete \"%s\": %s\n"),dir
,strerror(errno
));
2206 Delete every file from the temporary directory where sarg is told to store its
2209 As any stray file left over by a previous run would be included in the report, we
2210 must delete every file from the temporary directory before we start processing the logs.
2212 But the temporary directory is given by the user either in the configuration file or
2213 on the command line. We check that the user didn't give a wrong directory by looking
2214 at the files stored in the directory. If a single file is not one of ours, we abort.
2216 \param dir The temporary directory to purge.
2218 void emptytmpdir(const char *dir
)
2222 struct dirent
*direntp
;
2228 static const char *TmpExt
[]=
2245 // make sure the temporary directory contains only our files
2246 while ((direntp
= readdir(dirp
)) != NULL
) {
2247 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2248 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2251 // is it one of our files
2252 dlen
=strlen(direntp
->d_name
);
2253 for (i
=sizeof(TmpExt
)/sizeof(TmpExt
[0])-1 ; i
>=0 ; i
--) {
2254 elen
=strlen(TmpExt
[i
]);
2255 if (dlen
>=elen
&& strcasecmp(direntp
->d_name
+dlen
-elen
,TmpExt
[i
])==0) break;
2258 debuga(_("Unknown file \"%s\" found in temporary directory \"%s\". It is not one of our files. "
2259 "Please check the temporary directory you gave to sarg. Adjust the path to a safe "
2260 "directory or manually delete the content of \"%s\"\n"),direntp
->d_name
,dir
,dir
);
2264 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2265 debuga(_("Path too long: "));
2266 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2271 err
=lstat(dname
,&st
);
2273 err
=stat(dname
,&st
);
2276 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2279 if (S_ISDIR(st
.st_mode
)) {
2281 } else if (!S_ISREG(st
.st_mode
)) {
2282 debuga(_("Unknown path type for \"%s\". Check temporary directory\n"),dname
);
2288 // now delete our files
2289 while ((direntp
= readdir(dirp
)) != NULL
) {
2290 if (direntp
->d_name
[0] == '.' && (direntp
->d_name
[1] == '\0' ||
2291 (direntp
->d_name
[1] == '.' && direntp
->d_name
[2] == '\0')))
2294 // is it one of our files
2295 dlen
=strlen(direntp
->d_name
);
2296 for (i
=sizeof(TmpExt
)/sizeof(TmpExt
[0])-1 ; i
>=0 ; i
--) {
2297 elen
=strlen(TmpExt
[i
]);
2298 if (dlen
>=elen
&& strcasecmp(direntp
->d_name
+dlen
-elen
,TmpExt
[i
])==0) break;
2301 debuga(_("Unknown file \"%s\" found in temporary directory \"%s\". It is not one of our files. "
2302 "Please check the temporary directory you gave to sarg. Adjust the path to a safe "
2303 "directory or manually delete the content of \"%s\"\n"),direntp
->d_name
,dir
,dir
);
2307 if (snprintf(dname
,sizeof(dname
),"%s/%s",dir
,direntp
->d_name
)>=sizeof(dname
)) {
2308 debuga(_("Path too long: "));
2309 debuga_more("%s/%s\n",dir
,direntp
->d_name
);
2313 err
=lstat(dname
,&st
);
2315 err
=stat(dname
,&st
);
2318 debuga(_("Cannot stat \"%s\": %s\n"),dname
,strerror(errno
));
2321 if (S_ISREG(st
.st_mode
)) {
2322 if (unlink(dname
)) {
2323 debuga(_("Cannot delete \"%s\": %s\n"),dname
,strerror(errno
));
2327 debuga(_("Unknown path type %s\n"),dname
);
2334 Extract an url, IPv4 or IPv6 from a buffer. The IP addresses may end with a
2337 \param buf The buffer to parse.
2338 \param text A pointer to set to the beginning of the string pattern. No terminating zero is inserted.
2339 The pointer may be NULL.
2340 \param ipv4 A 4 bytes buffer to store the bytes of the IPv4 address.
2341 \param ipv6 A 8 short integers buffer to store the values of the IPv6 address.
2342 \param nbits The number of prefix bits for an IP address.
2343 \param next The content of the line after the extracted address.
2345 \retval 3 The pattern is a IPv6 address.
2346 \retval 2 The pattern is a IPv4 address.
2347 \retval 1 The patter is a string.
2348 \retval 0 Empty pattern.
2350 int extract_address_mask(const char *buf
,const char **text
,unsigned char *ipv4
,unsigned short int *ipv6
,int *nbits
,const char **next
)
2355 unsigned int value4
, value6
;
2356 unsigned short int addr
[8];
2366 // skip leading spaces and tabs
2367 while (*buf
&& (*buf
==' ' || *buf
=='\t')) buf
++;
2369 // find out the nature of the pattern
2370 ip_size
=0x60 | 0x04;
2381 for (i
=0 ; (unsigned char)buf
[i
]>' ' && buf
[i
]!='/' && buf
[i
]!='?' && (!bracket
|| buf
[i
]!=']') && ip_size
; i
++) {
2382 if (ip_size
& 0x04) {
2383 if (isdigit(buf
[i
])) {
2385 port_num
=port_num
*10+(buf
[i
]-'0');
2386 if (port_num
>65535) ip_size
&=~0x04;
2388 value4
=value4
*10+(buf
[i
]-'0');
2389 if (value4
>0xFFU
) ip_size
&=~0x04;
2391 } else if (buf
[i
]=='.' && addr_len
<4) {
2392 addr
[addr_len
++]=(unsigned short)(value4
& 0xFFU
);
2394 } else if (!port
&& buf
[i
]==':') {
2400 if (ip_size
& 0x60) {
2401 if (isdigit(buf
[i
])) {
2402 value6
=(value6
<<4)+(buf
[i
]-'0');
2404 if (value6
>0xFFFFU
) ip_size
&=~0x60;
2405 } else if (toupper(buf
[i
])>='A' && toupper(buf
[i
])<='F') {
2406 value6
=(value6
<<4)+(toupper(buf
[i
])-'A'+10);
2408 if (value6
>0xFFFFU
) ip_size
&=~0x60;
2409 } else if (buf
[i
]==':' && addr_len
<8) {
2410 if (nibble6_len
>0) {
2411 addr
[addr_len
++]=(unsigned short)(value6
& 0xFFFFU
);
2415 if (buf
[i
+1]==':') {
2424 if (i
==0) return(0);
2425 if (ip_size
& 0x04) {
2429 addr
[addr_len
++]=(unsigned short)(value4
& 0xFFU
);
2431 if (ip_size
& 0x60) {
2432 if (pad_pos
<0 && addr_len
!=7) {
2434 } else if (pad_pos
>=0 && addr_len
>=7)
2436 else if (nibble6_len
>0)
2437 addr
[addr_len
++]=(unsigned short)(value6
& 0xFFFFU
);
2442 if (bracket
) (*text
)--;
2444 while ((unsigned char)buf
[i
]>' ') i
++;
2445 if (next
) *next
=buf
+i
;
2448 max_mask
=(ip_size
& 0x04) ? 4*8 : 8*16;
2452 while (isdigit(buf
[i
])) i
++;
2453 if (mask
<0 || mask
>max_mask
) mask
=max_mask
;
2456 if (ip_size
& 0x60 && bracket
&& buf
[i
]==']') i
++;
2457 if (next
) *next
=buf
+i
;
2458 if (ip_size
& 0x04) {
2459 if (nbits
) *nbits
=mask
;
2460 for (i
=0 ; i
<addr_len
; i
++)
2461 ipv4
[i
]=(unsigned char)addr
[i
];
2466 if (nbits
) *nbits
=mask
;
2471 ipv6
[j
++]=(unsigned short int)addr
[i
++];
2473 while (j
<pad_pos
+pad_len
)
2477 ipv6
[j
++]=(unsigned short int)addr
[i
++];