Perl version can log to a file

2 files changed, 16 insertions, 7 deletions

diff --git a/Makefile.PL b/Makefile.PL
index 2344c9c..bb441c3 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,7 +1,8 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
-	NAME              => 'Pikul',
-	INC               => '`pkg-config --cflags json-c`',
-	LIBS              => ['-lpikul -lcurl -ljson-c'],
-	OBJECT            => '$(O_FILES)'
+	NAME	=> 'Pikul',
+	INC	=> '`pkg-config --cflags json-c`',
+	LIBS	=> ['-lpikul -lcurl -ljson-c'],
+	OBJECT	=> '$(O_FILES)',
+	DEFINE	=> '-DLOG_PATH=\"/var/log/pikul.log\"'
 );
diff --git a/pikul.c b/pikul.c
index c967c90..00d1284 100644
--- a/pikul.c
+++ b/pikul.c
@@ -1,5 +1,6 @@
-#ifdef DEBUG
+#if defined DEBUG || defined LOG_PATH
 #include <stdio.h>
+#include <time.h>
 #endif
 #include <string.h>
 #include <stdbool.h>
@@ -36,9 +37,16 @@ static void recurse(struct json_object *outer, const char *trail[], struct json_
 static size_t handle(char *contents, size_t size, size_t nmemb, struct shipping *shipping)
 {
 	size_t realsize = size * nmemb;
-#ifdef DEBUG
+#if defined DEBUG || defined LOG_PATH
 	contents[realsize] = '\0';
-	fprintf(stderr, "%s\n", contents);
+	time_t now = time(NULL);
+#ifdef LOG_PATH
+	FILE *log = fopen(LOG_PATH, "a");
+	fprintf(log, "%s%s\n", ctime(&now), contents);
+	fclose(log);
+#else
+	fprintf(stderr, "%s%s\n", ctime(&now), contents);
+#endif
 #endif
 	json_tokener *tokener = shipping->tokener;
 	json_object *response = json_tokener_parse_ex(tokener, contents, realsize);