Move socket files into $HOME/var/

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;