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 | |
parent | b6660f01127b75ea1acf61a192931165318f4fb1 (diff) | |
download | spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.tar.gz spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.tar.bz2 spamd-stats-463de8fb5daf8178039f397cd73e5bd7fe134836.zip |
Move socket files into $HOME/var/
-rwxr-xr-x | log.pl | 3 | ||||
-rwxr-xr-x | server.pl | 5 | ||||
-rwxr-xr-x | stats.pl | 3 |
3 files changed, 7 insertions, 4 deletions
@@ -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; @@ -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+) '; @@ -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; |