diff options
author | Alexander Sulfrian <alex@spline.inf.fu-berlin.de> | 2015-10-28 18:47:33 +0100 |
---|---|---|
committer | spamd-stats <spamd-stats@vm-mail.spline.inf.fu-berlin.de> | 2015-10-28 18:47:33 +0100 |
commit | 463de8fb5daf8178039f397cd73e5bd7fe134836 (patch) | |
tree | 13403498b930f00b5f5731661d725fd5181e61d2 /server.pl | |
parent | b6660f01127b75ea1acf61a192931165318f4fb1 (diff) | |
download | spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.tar.gz spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.tar.bz2 spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.zip |
Move socket files into $HOME/var/
Diffstat (limited to 'server.pl')
-rwxr-xr-x | server.pl | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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+) '; |