From 463de8fb5daf8178039f397cd73e5bd7fe134836 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Wed, 28 Oct 2015 18:47:33 +0100
Subject: Move socket files into $HOME/var/

---
 log.pl    | 3 ++-
 server.pl | 5 +++--
 stats.pl  | 3 ++-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/log.pl b/log.pl
index 468d322..16786a0 100755
--- a/log.pl
+++ b/log.pl
@@ -4,8 +4,9 @@ use strict;
 use AnyEvent;
 use AnyEvent::Socket;
 use AnyEvent::Handle;
+use File::HomeDir;
 
-my $log_socket = '/tmp/log.sock';
+my $log_socket = File::HomeDir->my_home . '/var/log.sock';
 
 my $cv = AnyEvent->condvar;
 
diff --git a/server.pl b/server.pl
index e56b0b4..14804e7 100755
--- a/server.pl
+++ b/server.pl
@@ -4,6 +4,7 @@ use strict;
 use AnyEvent;
 use AnyEvent::Handle;
 use AnyEvent::Socket;
+use File::HomeDir;
 use Storable;
 
 my $stats = {
@@ -12,8 +13,8 @@ my $stats = {
     block => 0,
 };
 
-my $log_socket = '/tmp/log.sock';
-my $stats_socket = '/tmp/stats.sock';
+my $log_socket = File::HomeDir->my_home . '/var/log.sock';
+my $stats_socket = File::HomeDir->my_home . '/var/stats.sock';
 
 # regex to match the spamd log lines
 my $regex = '^[A-Z][a-z][a-z]  ?\d{1,2} \d{2}:\d{2}:\d{2} vm-mail spamd\[\d+\]: spamd: result: ([Y.]) (-?\d+) ';
diff --git a/stats.pl b/stats.pl
index 5dd65a9..2670297 100755
--- a/stats.pl
+++ b/stats.pl
@@ -6,12 +6,13 @@ use AnyEvent::Socket;
 use AnyEvent::Handle;
 use Storable;
 use Data::Dumper;
+use File::HomeDir;
 
 # timeout in seconds
 my $timeout = 10;
 
 # socket
-my $socket = '/tmp/stats.sock';
+my $socket = File::HomeDir->my_home . '/var/stats.sock';
 
 my $cv = AnyEvent->condvar;
 
-- 
cgit v1.2.3-1-g7c22