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/

---
 server.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'server.pl')

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+) ';
-- 
cgit v1.2.3-1-g7c22