adam/lutim
1
0
Fork 0
mirror of https://framagit.org/fiat-tux/hat-softwares/lutim.git synced 2026-06-25 04:21:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Anonymise logs

Browse Source
This commit is contained in:
Luc Didry
2014-02-17 20:27:13 +01:00
parent bc7a7fabf0
commit 096e2b3e07
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/Lutim.pm
+6 -8
View File
@@ -120,7 +120,7 @@ sub startup {
$c->on(finish => sub {
my $c = shift;
$c->provisionning();
$c->app->log->info('[HIT] '.$c->ip.' visited site index');
$c->app->log->info('[HIT] someone visited site index');
}
);
}
@@ -176,7 +176,7 @@ sub startup {
);
# Log image creation
$c->app->log->info('[CREATION] '.$ip.' pushed '.$filename.' (path: '.$path.')');
$c->app->log->info('[CREATION] someone pushed '.$filename.' (path: '.$path.')');
# Give url to user
$short = $records[0]->short;
@@ -230,12 +230,11 @@ sub startup {
my $dl = (defined($c->param('dl'))) ? 'attachment' : 'inline';
my @images = LutimModel::Lutim->select('WHERE short = ? AND ENABLED = 1 AND path IS NOT NULL', $short);
my $ip = $c->ip;
if (scalar(@images)) {
if($images[0]->delete_at_day && $images[0]->created_at + $images[0]->delete_at_day * 86400 <= time()) {
# Log deletion
$c->app->log->info('[DELETION] '.$ip.' tried to view '.$images[0]->filename.' but it has been removed by expiration (path: '.$images[0]->path.')');
$c->app->log->info('[DELETION] someone tried to view '.$images[0]->filename.' but it has been removed by expiration (path: '.$images[0]->path.')');
# Delete image
unlink $images[0]->path();
@@ -265,19 +264,18 @@ sub startup {
# Update counter and check provisionning
$c->on(finish => sub {
# Log access
$c->app->log->info('[VIEW] '.$ip.' viewed '.$images[0]->filename.' (path: '.$images[0]->path.')');
$c->app->log->info('[VIEW] someone viewed '.$images[0]->filename.' (path: '.$images[0]->path.')');
# Update record
my $counter = $images[0]->counter + 1;
$images[0]->update(counter => $counter);
$images[0]->update(last_access_at => time());
$images[0]->update(last_access_by => $ip);
# Delete image if needed
if ($images[0]->delete_at_first_view) {
# Log deletion
$c->app->log->info('[DELETION] '.$ip.' made '.$images[0]->filename.' removed (path: '.$images[0]->path.')');
$c->app->log->info('[DELETION] someone made '.$images[0]->filename.' removed (path: '.$images[0]->path.')');
# Delete image
unlink $images[0]->path();
@@ -292,7 +290,7 @@ sub startup {
if (scalar(@images)) {
# Log access try
$c->app->log->info('[NOT FOUND] '.$ip.' tried to view '.$short.' but it does\'nt exist.');
$c->app->log->info('[NOT FOUND] someone tried to view '.$short.' but it does\'nt exist.');
# Warn user
$c->flash(