iarv/lutim
1
0
Fork 0
mirror of https://framagit.org/fiat-tux/hat-softwares/lutim.git synced 2026-03-28 17:42:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes #46

Browse Source
This commit is contained in:
Luc Didry
2015-01-06 02:38:15 +01:00
parent 2e5a3c9c0b
commit a049163646
16 changed files with 278 additions and 237 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@@ -3,6 +3,7 @@ Revision history for Lutim
0.7 ?
- Use .po files for internationalization
- Add spanish translation (thx to Laura Arjona Reina)
- Allow Lutim to be on a sub-directory (like http://example.org/lutim/) (#46)
- Remove deprecated (due to typo) option "provisionning".
0.6 2014-10-03

1
cpanfile
View File

@@ -3,7 +3,6 @@ requires 'EV';
requires 'IO::Socket::SSL';
requires 'Data::Validate::URI';
requires 'Mojolicious::Plugin::I18N';
requires 'Mojolicious::Plugin::ConfigHashMerge';
requires 'Mojolicious::Plugin::AssetPack';
requires 'ORLite';
requires 'File::Type';

370
cpanfile.snapshot
View File

@@ -1,13 +1,41 @@
# carton snapshot format: version 1.0
DISTRIBUTIONS
Algorithm-Diff-1.1902
pathname: T/TY/TYEMQ/Algorithm-Diff-1.1902.tar.gz
CPAN-Meta-2.143240
pathname: D/DA/DAGOLDEN/CPAN-Meta-2.143240.tar.gz
provides:
Algorithm::Diff 1.1902
Algorithm::Diff::_impl 1.1902
Algorithm::DiffOld 1.1
CPAN::Meta 2.143240
CPAN::Meta::Converter 2.143240
CPAN::Meta::Feature 2.143240
CPAN::Meta::History 2.143240
CPAN::Meta::Merge 2.143240
CPAN::Meta::Prereqs 2.143240
CPAN::Meta::Spec 2.143240
CPAN::Meta::Validator 2.143240
requirements:
ExtUtils::MakeMaker 0
CPAN::Meta::Requirements 2.121
CPAN::Meta::YAML 0.008
Carp 0
ExtUtils::MakeMaker 6.17
JSON::PP 2.27200
Parse::CPAN::Meta 1.4414
Scalar::Util 0
perl 5.008
strict 0
version 0.88
warnings 0
CPAN-Meta-YAML-0.012
pathname: D/DA/DAGOLDEN/CPAN-Meta-YAML-0.012.tar.gz
provides:
CPAN::Meta::YAML 0.012
requirements:
B 0
Carp 0
Exporter 0
ExtUtils::MakeMaker 6.17
Fcntl 0
Scalar::Util 0
strict 0
warnings 0
CSS-Minifier-XS-0.09
pathname: G/GT/GTERMARS/CSS-Minifier-XS-0.09.tar.gz
provides:
@@ -50,10 +78,9 @@ DISTRIBUTIONS
Clone-0.36
pathname: G/GA/GARU/Clone-0.36.tar.gz
provides:
Clone 0.36
Class::Singleton 1.5
requirements:
ExtUtils::MakeMaker 0
Test::More 0
Crypt-Blowfish-2.14
pathname: D/DP/DPARIS/Crypt-Blowfish-2.14.tar.gz
provides:
@@ -67,13 +94,19 @@ DISTRIBUTIONS
requirements:
Digest::MD5 2.00
ExtUtils::MakeMaker 0
DBD-SQLite-1.40
pathname: I/IS/ISHIGAKI/DBD-SQLite-1.40.tar.gz
DBD-SQLite-1.46
pathname: I/IS/ISHIGAKI/DBD-SQLite-1.46.tar.gz
provides:
DBD::SQLite 1.40
DBD::SQLite::_WriteOnceHash 1.40
DBD::SQLite::db 1.40
DBD::SQLite::dr 1.40
DBD::SQLite 1.46
DBD::SQLite::VirtualTable 1.46
DBD::SQLite::VirtualTable::Cursor 1.46
DBD::SQLite::VirtualTable::FileContent undef
DBD::SQLite::VirtualTable::FileContent::Cursor undef
DBD::SQLite::VirtualTable::PerlData undef
DBD::SQLite::VirtualTable::PerlData::Cursor undef
DBD::SQLite::_WriteOnceHash 1.46
DBD::SQLite::db 1.46
DBD::SQLite::dr 1.46
requirements:
DBI 1.57
ExtUtils::MakeMaker 0
@@ -82,8 +115,8 @@ DISTRIBUTIONS
Test::More 0.47
Tie::Hash 0
perl 5.006
DBI-1.631
pathname: T/TI/TIMB/DBI-1.631.tar.gz
DBI-1.632
pathname: T/TI/TIMB/DBI-1.632.tar.gz
provides:
Bundle::DBI 12.008696
DBD::DBM 0.08
@@ -96,15 +129,15 @@ DISTRIBUTIONS
DBD::ExampleP::db 12.014311
DBD::ExampleP::dr 12.014311
DBD::ExampleP::st 12.014311
DBD::File 0.42
DBD::File::DataSource::File 0.42
DBD::File::DataSource::Stream 0.42
DBD::File::Statement 0.42
DBD::File::Table 0.42
DBD::File::TableSource::FileSystem 0.42
DBD::File::db 0.42
DBD::File::dr 0.42
DBD::File::st 0.42
DBD::File 0.43
DBD::File::DataSource::File 0.43
DBD::File::DataSource::Stream 0.43
DBD::File::Statement 0.43
DBD::File::Table 0.43
DBD::File::TableSource::FileSystem 0.43
DBD::File::db 0.43
DBD::File::dr 0.43
DBD::File::st 0.43
DBD::Gofer 0.015327
DBD::Gofer::Policy::Base 0.010088
DBD::Gofer::Policy::classic 0.010088
@@ -132,7 +165,7 @@ DISTRIBUTIONS
DBD::Sponge::dr 12.010003
DBD::Sponge::st 12.010003
DBDI 12.015129
DBI 1.631
DBI 1.632
DBI::Const::GetInfo::ANSI 2.008697
DBI::Const::GetInfo::ODBC 2.011374
DBI::Const::GetInfoReturn 2.008697
@@ -173,22 +206,11 @@ DISTRIBUTIONS
DBI::SQL::Nano::Table_ 1.015544
DBI::Util::CacheMemory 0.010315
DBI::Util::_accessor 0.009479
DBI::common 1.631
DBI::common 1.632
requirements:
ExtUtils::MakeMaker 6.48
Test::Simple 0.90
perl 5.008
Data-OptList-0.109
pathname: R/RJ/RJBS/Data-OptList-0.109.tar.gz
provides:
Data::OptList 0.109
requirements:
ExtUtils::MakeMaker 6.30
List::Util 0
Params::Util 0
Sub::Install 0.921
strict 0
warnings 0
Data-Validate-Domain-0.10
pathname: N/NE/NEELY/Data-Validate-Domain-0.10.tar.gz
provides:
@@ -197,13 +219,13 @@ DISTRIBUTIONS
ExtUtils::MakeMaker 0
Net::Domain::TLD 1.62
Test::More 0
Data-Validate-IP-0.22
pathname: D/DR/DROLSKY/Data-Validate-IP-0.22.tar.gz
Data-Validate-IP-0.24
pathname: D/DR/DROLSKY/Data-Validate-IP-0.24.tar.gz
provides:
Data::Validate::IP 0.22
Data::Validate::IP 0.24
requirements:
Exporter 0
ExtUtils::MakeMaker 6.30
ExtUtils::MakeMaker 0
NetAddr::IP 4
Scalar::Util 0
strict 0
@@ -237,6 +259,10 @@ DISTRIBUTIONS
POSIX 0
Params::Validate 0.76
Scalar::Util 0
Storable 0
Test::Fatal 0
Test::More 0.88
Test::Warnings 0.005
Try::Tiny 0
XSLoader 0
base 0
@@ -245,6 +271,7 @@ DISTRIBUTIONS
overload 0
perl 5.008001
strict 0
utf8 0
vars 0
warnings 0
warnings::register 0
@@ -1108,8 +1135,8 @@ DISTRIBUTIONS
strict 0
vars 0
warnings 0
Devel-StackTrace-1.31
pathname: D/DR/DROLSKY/Devel-StackTrace-1.31.tar.gz
EV-4.18
pathname: M/ML/MLEHMANN/EV-4.18.tar.gz
provides:
Devel::StackTrace 1.31
Devel::StackTrace::Frame 1.31
@@ -1141,43 +1168,11 @@ DISTRIBUTIONS
requirements:
ExtUtils::MakeMaker 0
common::sense 0
Exception-Class-1.37
pathname: D/DR/DROLSKY/Exception-Class-1.37.tar.gz
Exporter-Tiny-0.042
pathname: T/TO/TOBYINK/Exporter-Tiny-0.042.tar.gz
provides:
Exception::Class 1.37
Exception::Class::Base 1.37
requirements:
Class::Data::Inheritable 0.02
Devel::StackTrace 1.20
ExtUtils::MakeMaker 6.30
File::Spec 0
Scalar::Util 0
Test::More 0.88
base 0
overload 0
strict 0
vars 0
warnings 0
ExtUtils-Config-0.007
pathname: L/LE/LEONT/ExtUtils-Config-0.007.tar.gz
provides:
ExtUtils::Config 0.007
requirements:
Config 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
File::Find 0
File::Temp 0
Test::More 0.88
strict 0
warnings 0
ExtUtils-Helpers-0.021
pathname: L/LE/LEONT/ExtUtils-Helpers-0.021.tar.gz
provides:
ExtUtils::Helpers 0.021
ExtUtils::Helpers::Unix 0.021
ExtUtils::Helpers::VMS 0.021
ExtUtils::Helpers::Windows 0.021
Exporter::Shiny 0.042
Exporter::Tiny 0.042
requirements:
Carp 0
Config 0
@@ -1244,7 +1239,7 @@ DISTRIBUTIONS
Hash-Merge-Simple-0.051
pathname: R/RO/ROKR/Hash-Merge-Simple-0.051.tar.gz
provides:
Hash::Merge::Simple 0.051
IO::Socket::IP 0.34
requirements:
Clone 0
ExtUtils::MakeMaker 6.31
@@ -1264,12 +1259,14 @@ DISTRIBUTIONS
IO::Socket::SSL::Utils 2.014
requirements:
ExtUtils::MakeMaker 0
Net::SSLeay 1.46
Scalar::Util 0
IPC-Run3-0.046
pathname: R/RJ/RJBS/IPC-Run3-0.046.tar.gz
Test::More 0.31
Time::HiRes 0
JSON-PP-2.27300
pathname: M/MA/MAKAMAKA/JSON-PP-2.27300.tar.gz
provides:
IPC::Run3 0.046
JSON::PP 2.27300
JSON::PP::Boolean 2.27300
JSON::PP::IncrParser 2.27300
requirements:
ExtUtils::MakeMaker 0
Test::More 0.31
@@ -1297,7 +1294,7 @@ DISTRIBUTIONS
List-MoreUtils-0.33
pathname: A/AD/ADAMK/List-MoreUtils-0.33.tar.gz
provides:
List::MoreUtils 0.33
List::AllUtils 0.09
requirements:
ExtUtils::CBuilder 0.27
ExtUtils::MakeMaker 6.52
@@ -1334,32 +1331,39 @@ DISTRIBUTIONS
Module-Build-0.4205
pathname: L/LE/LEONT/Module-Build-0.4205.tar.gz
provides:
Module::Build 0.4205
Module::Build::Base 0.4205
Module::Build::Compat 0.4205
Module::Build::Config 0.4205
Module::Build::Cookbook 0.4205
Module::Build::Dumper 0.4205
Module::Build::ModuleInfo 0.4205
Module::Build::Notes 0.4205
Module::Build::PPMMaker 0.4205
Module::Build::Platform::Default 0.4205
Module::Build::Platform::MacOS 0.4205
Module::Build::Platform::Unix 0.4205
Module::Build::Platform::VMS 0.4205
Module::Build::Platform::VOS 0.4205
Module::Build::Platform::Windows 0.4205
Module::Build::Platform::aix 0.4205
Module::Build::Platform::cygwin 0.4205
Module::Build::Platform::darwin 0.4205
Module::Build::Platform::os2 0.4205
Module::Build::PodParser 0.4205
Module::Build::Version 0.87
Module::Build::YAML 1.41
inc::latest 0.4205
inc::latest::private 0.4205
List::MoreUtils 0.402
List::MoreUtils::PP 0.402
List::MoreUtils::XS 0.402
requirements:
CPAN::Meta 2.110420
Exporter::Tiny 0.038
ExtUtils::MakeMaker 0
XSLoader 0
Module-Build-0.4210
pathname: L/LE/LEONT/Module-Build-0.4210.tar.gz
provides:
Module::Build 0.4210
Module::Build::Base 0.4210
Module::Build::Compat 0.4210
Module::Build::Config 0.4210
Module::Build::Cookbook 0.4210
Module::Build::Dumper 0.4210
Module::Build::Notes 0.4210
Module::Build::PPMMaker 0.4210
Module::Build::Platform::Default 0.4210
Module::Build::Platform::MacOS 0.4210
Module::Build::Platform::Unix 0.4210
Module::Build::Platform::VMS 0.4210
Module::Build::Platform::VOS 0.4210
Module::Build::Platform::Windows 0.4210
Module::Build::Platform::aix 0.4210
Module::Build::Platform::cygwin 0.4210
Module::Build::Platform::darwin 0.4210
Module::Build::Platform::os2 0.4210
Module::Build::PodParser 0.4210
inc::latest 0.4210
inc::latest::private 0.4210
requirements:
CPAN::Meta 2.142060
CPAN::Meta::YAML 0.003
Cwd 0
Data::Dumper 0
@@ -1384,10 +1388,10 @@ DISTRIBUTIONS
Test::More 0.49
Text::Abbrev 0
Text::ParseWords 0
perl 5.006001
perl 5.008000
version 0.87
Module-Build-Tiny-0.035
pathname: L/LE/LEONT/Module-Build-Tiny-0.035.tar.gz
Module-Implementation-0.09
pathname: D/DR/DROLSKY/Module-Implementation-0.09.tar.gz
provides:
Module::Build::Tiny 0.035
requirements:
@@ -1417,7 +1421,7 @@ DISTRIBUTIONS
Module::Implementation 0.07
requirements:
Carp 0
ExtUtils::MakeMaker 6.30
ExtUtils::MakeMaker 0
Module::Runtime 0.012
Try::Tiny 0
strict 0
@@ -1574,8 +1578,8 @@ DISTRIBUTIONS
JavaScript::Minifier::XS 0.11
Mojolicious 5.41
Test::More 0.88
Mojolicious-Plugin-ConfigHashMerge-0.01
pathname: D/DO/DOTAN/Mojolicious-Plugin-ConfigHashMerge-0.01.tar.gz
Mojolicious-Plugin-I18N-1.4
pathname: S/SH/SHARIFULN/Mojolicious-Plugin-I18N-1.4.tar.gz
provides:
Mojolicious::Plugin::ConfigHashMerge 0.01
requirements:
@@ -1592,30 +1596,20 @@ DISTRIBUTIONS
Mojolicious 5
Test::More 0
perl 5.010001
Net-Domain-TLD-1.70
pathname: A/AL/ALEXP/Net-Domain-TLD-1.70.tar.gz
Net-Domain-TLD-1.72
pathname: A/AL/ALEXP/Net-Domain-TLD-1.72.tar.gz
provides:
Net::Domain::TLD 1.70
Net::Domain::TLD 1.72
requirements:
Carp 0
ExtUtils::MakeMaker 0
Storable 0
Net-SSLeay-1.58
pathname: M/MI/MIKEM/Net-SSLeay-1.58.tar.gz
NetAddr-IP-4.075
pathname: M/MI/MIKER/NetAddr-IP-4.075.tar.gz
provides:
Net::SSLeay 1.58
Net::SSLeay::Handle 0.61
requirements:
ExtUtils::MakeMaker 6.36
MIME::Base64 0
Test::More 0.60_01
perl 5.005
NetAddr-IP-4.072
pathname: M/MI/MIKER/NetAddr-IP-4.072.tar.gz
provides:
NetAddr::IP 4.072
NetAddr::IP 4.075
NetAddr::IP::InetBase 0.08
NetAddr::IP::Lite 1.52
NetAddr::IP::Lite 1.54
NetAddr::IP::Util 1.51
NetAddr::IP::UtilPP 1.09
NetAddr::IP::UtilPolluted 1.51
@@ -1687,8 +1681,8 @@ DISTRIBUTIONS
Scalar::Util 1.18
Test::More 0.42
perl 5.00503
Params-Validate-1.08
pathname: D/DR/DROLSKY/Params-Validate-1.08.tar.gz
Params-Validate-1.13
pathname: D/DR/DROLSKY/Params-Validate-1.13.tar.gz
provides:
Attribute::Params::Validate 1.08
Params::Validate 1.08
@@ -1709,6 +1703,19 @@ DISTRIBUTIONS
strict 0
vars 0
warnings 0
Parse-CPAN-Meta-1.4414
pathname: D/DA/DAGOLDEN/Parse-CPAN-Meta-1.4414.tar.gz
provides:
Parse::CPAN::Meta 1.4414
requirements:
CPAN::Meta::YAML 0.011
Carp 0
Encode 0
Exporter 0
ExtUtils::MakeMaker 6.30
File::Spec 0.80
JSON::PP 2.27200
strict 0
Probe-Perl-0.03
pathname: K/KW/KWILLIAMS/Probe-Perl-0.03.tar.gz
provides:
@@ -1718,17 +1725,25 @@ DISTRIBUTIONS
ExtUtils::MakeMaker 6.30
File::Spec 0
strict 0
Sub-Install-0.927
pathname: R/RJ/RJBS/Sub-Install-0.927.tar.gz
Scalar-List-Utils-1.41
pathname: P/PE/PEVANS/Scalar-List-Utils-1.41.tar.gz
provides:
Sub::Install 0.927
List::Util 1.41
List::Util::XS 1.41
Scalar::Util 1.41
Sub::Util 1.41
requirements:
B 0
Carp 0
ExtUtils::MakeMaker 6.30
Scalar::Util 0
strict 0
warnings 0
ExtUtils::MakeMaker 0
Test::More 0
Socket-2.016
pathname: P/PE/PEVANS/Socket-2.016.tar.gz
provides:
Socket 2.016
requirements:
ExtUtils::CBuilder 0
ExtUtils::Constant 0.23
ExtUtils::MakeMaker 0
perl 5.006001
Sub-Uplevel-0.24
pathname: D/DA/DAGOLDEN/Sub-Uplevel-0.24.tar.gz
provides:
@@ -1834,11 +1849,11 @@ DISTRIBUTIONS
Test-Fatal-0.013
pathname: R/RJ/RJBS/Test-Fatal-0.013.tar.gz
provides:
Test::Fatal 0.013
Test::Fatal 0.014
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 6.30
ExtUtils::MakeMaker 0
Test::Builder 0
Try::Tiny 0.07
strict 0
@@ -1846,37 +1861,9 @@ DISTRIBUTIONS
Test-Most-0.33
pathname: O/OV/OVID/Test-Most-0.33.tar.gz
provides:
Test::Most 0.33
Test::Most::Exception 0.33
Test::Requires 0.08
requirements:
Exception::Class 1.14
ExtUtils::MakeMaker 0
Test::Deep 0.106
Test::Differences 0.61
Test::Exception 0.31
Test::Harness 3.21
Test::More 0.88
Test::Warn 0.23
Test-NoWarnings-1.04
pathname: A/AD/ADAMK/Test-NoWarnings-1.04.tar.gz
provides:
Test::NoWarnings 1.04
Test::NoWarnings::Warning 1.04
requirements:
ExtUtils::MakeMaker 0
Test::Builder 0.86
Test::More 0.47
Test::Tester 0.107
perl 5.006
Test-Requires-0.07
pathname: T/TO/TOKUHIROM/Test-Requires-0.07.tar.gz
provides:
Test::Requires 0.07
requirements:
CPAN::Meta 0
CPAN::Meta::Prereqs 0
ExtUtils::MakeMaker 6.59
Module::Build 0.38
ExtUtils::MakeMaker 6.64
Test::Builder::Module 0
Test::More 0.61
perl 5.008_001
@@ -1893,16 +1880,6 @@ DISTRIBUTIONS
Test::Builder::Tester 1.02
Test::More 0.62
blib 0
Test-Tester-0.109
pathname: F/FD/FDALY/Test-Tester-0.109.tar.gz
provides:
Test::Tester 0.109
Test::Tester::Capture undef
Test::Tester::CaptureRunner undef
Test::Tester::Delegate undef
requirements:
ExtUtils::MakeMaker 0
Test::Builder 0
Test-Warn-0.30
pathname: C/CH/CHORNY/Test-Warn-0.30.tar.gz
provides:
@@ -1917,15 +1894,12 @@ DISTRIBUTIONS
Test::Builder::Tester 1.02
Test::More 0
perl 5.006
Text-Diff-1.41
pathname: O/OV/OVID/Text-Diff-1.41.tar.gz
Test-Warnings-0.019
pathname: E/ET/ETHER/Test-Warnings-0.019.tar.gz
provides:
Text::Diff 1.41
Text::Diff::Base 1.41
Text::Diff::Config 1.41
Text::Diff::Table 1.41
Test::Warnings 0.019
requirements:
Algorithm::Diff 1.19
Carp 0
Exporter 0
ExtUtils::MakeMaker 0
Text-Unidecode-1.23
@@ -1935,10 +1909,10 @@ DISTRIBUTIONS
requirements:
ExtUtils::MakeMaker 0
perl 5.008
Try-Tiny-0.19
pathname: D/DO/DOY/Try-Tiny-0.19.tar.gz
Try-Tiny-0.22
pathname: D/DO/DOY/Try-Tiny-0.22.tar.gz
provides:
Try::Tiny 0.19
Try::Tiny 0.22
requirements:
Carp 0
Exporter 5.57

17
lib/Lutim.pm
View File

@@ -10,14 +10,12 @@ mkdir($ENV{MOJO_TMPDIR}, 0700) unless (-d $ENV{MOJO_TMPDIR});
sub startup {
my $self = shift;
push @{$self->commands->namespaces}, 'Lutim::Command';
$self->{wait_for_it} = {};
$self->plugin('I18N');
$self->plugin('AssetPack');
my $config = $self->plugin('ConfigHashMerge', {
my $config = $self->plugin('Config', {
default => {
provisioning => 100,
provis_step => 5,
@@ -80,6 +78,19 @@ sub startup {
}
);
$self->helper(
index_url => sub {
my $c = shift;
my $to_abs = shift;
my $url = $c->url_for('index');
$url = $url->to_abs() if (defined($to_abs) && $to_abs);
$url =~ s#([^/])$#$1/#;
return $url;
}
);
$self->helper(
ip => sub {
my $c = shift;

5
lib/Lutim/Command/cron/cleanbdd.pm
View File

@@ -2,6 +2,8 @@ package Lutim::Command::cron::cleanbdd;
use Mojo::Base 'Mojolicious::Command';
use LutimModel;
use Mojo::Util qw(slurp decode);
use FindBin qw($Bin);
use File::Spec qw(catfile);
has description => 'Delete IP addresses from database after configured delay.';
has usage => sub { shift->extract_usage };
@@ -9,7 +11,8 @@ has usage => sub { shift->extract_usage };
sub run {
my $c = shift;
my $config = $c->app->plugin('ConfigHashMerge', {
my $config = $c->app->plugin('Config', {
file => File::Spec->catfile($Bin, '..' ,'lutim.conf'),
default => {
keep_ip_during => 365,
}

12
lib/Lutim/Command/cron/cleanfiles.pm
View File

@@ -1,29 +1,35 @@
package Lutim::Command::cron::cleanfiles;
use Mojo::Base 'Mojolicious::Command';
use LutimModel;
use Lutim;
use Mojo::Util qw(slurp decode);
use FindBin qw($Bin);
use File::Spec qw(catfile);
has description => 'Delete expired files.';
has usage => sub { shift->extract_usage };
sub run {
my $c = shift;
my $l = Lutim->new;
my $time = time();
my @images = LutimModel::Lutim->select('WHERE enabled = 1 AND (delete_at_day * 86400) < (? - created_at) AND delete_at_day != 0', $time);
for my $image (@images) {
$c->app->delete_image($image);
$l->app->delete_image($image);
}
my $config = $c->app->plugin('Config');
my $config = $c->app->plugin('Config', {
file => File::Spec->catfile($Bin, '..' ,'lutim.conf'),
});
if (defined($config->{delete_no_longer_viewed_files}) && $config->{delete_no_longer_viewed_files} > 0) {
$time = time() - $config->{delete_no_longer_viewed_files} * 86400;
@images = LutimModel::Lutim->select('WHERE enabled = 1 AND last_access_at < ?', $time);
for my $image (@images) {
$c->app->delete_image($image);
$l->app->delete_image($image);
}
}
}

5
lib/Lutim/Command/cron/stats.pm
View File

@@ -4,6 +4,8 @@ use LutimModel;
use Mojo::DOM;
use Mojo::Util qw(slurp spurt decode);
use DateTime;
use FindBin qw($Bin);
use File::Spec qw(catfile);
has description => 'Generate statistics about Lutim.';
has usage => sub { shift->extract_usage };
@@ -11,7 +13,8 @@ has usage => sub { shift->extract_usage };
sub run {
my $c = shift;
my $config = $c->app->plugin('ConfigHashMerge', {
my $config = $c->app->plugin('Config', {
file => File::Spec->catfile($Bin, '..' ,'lutim.conf'),
default => {
stats_day_num => 365
}

5
lib/Lutim/Command/cron/watch.pm
View File

@@ -4,6 +4,8 @@ use Mojo::Util qw(slurp decode);
use Filesys::DiskUsage qw/du/;
use LutimModel;
use Switch;
use FindBin qw($Bin);
use File::Spec qw(catfile);
has description => 'Watch the files directory and take action when over quota';
has usage => sub { shift->extract_usage };
@@ -11,7 +13,8 @@ has usage => sub { shift->extract_usage };
sub run {
my $c = shift;
my $config = $c->app->plugin('ConfigHashMerge', {
my $config = $c->app->plugin('Config', {
file => File::Spec->catfile($Bin, '..' ,'lutim.conf'),
default => {
policy_when_full => 'warn'
}

24
lib/Mounter.pm Normal file
View File

@@ -0,0 +1,24 @@
package Mounter;
use Mojo::Base 'Mojolicious';
use FindBin qw($Bin);
use File::Spec qw(catfile);
# This method will run once at server start
sub startup {
my $self = shift;
push @{$self->commands->namespaces}, 'Lutim::Command';
my $config = $self->plugin('Config' =>
{
file => File::Spec->catfile($Bin, '..' ,'lutim.conf'),
default => {
url_sub_dir => '/'
}
}
);
$self->plugin('Mount' => {$config->{url_sub_dir} => File::Spec->catfile($Bin, '..', 'script', 'application')});
}
1;

6
lutim.conf.template
View File

@@ -97,6 +97,12 @@
# optional, default is 24
#token_length => 24,
# URL sub-directory in which you want Lutim to be accessible
# example: you want to have Lutim under https://example.org/lutim/
# => set url_sub_dir to '/lutim' or to '/lutim/', it doesn't matter
# optional, defaut is /
#url_sub_dir => '/',
##########################
# Lutim cron jobs settings
##########################

11
script/application Executable file
View File

@@ -0,0 +1,11 @@
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }
# Start command line interface for application
require Mojolicious::Commands;
Mojolicious::Commands->start_app('Lutim');

2
script/lutim
View File

@@ -8,4 +8,4 @@ BEGIN { unshift @INC, "$FindBin::Bin/../lib" }
# Start command line interface for application
require Mojolicious::Commands;
Mojolicious::Commands->start_app('Lutim');
Mojolicious::Commands->start_app('Mounter');

16
templates/index.html.ep
View File

@@ -15,7 +15,7 @@
% }
<div>
% # Display image informations
% my $url = url_for('/')->to_abs().stash('short');
% my $url = index_url(1).stash('short');
<strong><%= stash('filename') %></strong>
&nbsp;&nbsp;&nbsp;<a target="_blank" class="btn btn-default btn-primary btn-xs" href="https://twitter.com/share?url=<%= $url %>?t"><%= l('Tweet it!') %></a>
<ul class="list-unstyled">
@@ -81,7 +81,7 @@
</div>
<noscript>
<form class="form" role="form" method="POST" action="<%== url_for('add') %>" enctype="multipart/form-data">
<form class="form" role="form" method="POST" action="<%== index_url %>" enctype="multipart/form-data">
<div class="form-group form-inline">
<select name="delete-day" class="form-control">
% for my $delay (qw/0 1 7 30 365/) {
@@ -186,14 +186,14 @@
function link(url, dl, token, modify) {
if (token !== undefined) {
if (modify !== undefined && modify === true) {
return '<%== url_for('index')->to_abs() %>m/'+url+'/'+token;
return '<%== index_url(1) %>m/'+url+'/'+token;
} else {
url = 'd/'+url+'/'+token;
}
} else if (dl !== '') {
url = url+'?'+dl;
}
return '<a href="<%== url_for('index')->to_abs() %>'+url+'"><%== url_for('index')->to_abs() %>'+url+'</a>';
return '<a href="<%== index_url(1) %>'+url+'"><%== index_url(1) %>'+url+'</a>';
}
function share(url) {
console.log(url);
@@ -218,7 +218,7 @@
url : url,
type : "POST",
data : {
'image_url' : '<%== url_for('index')->to_abs() %>'+short,
'image_url' : '<%== index_url(1) %>'+short,
'format' : 'json',
'first-view' : ($("#first-view-"+short).prop('checked')) ? 1 : 0,
'delete-day' : $("#day-"+short).val()
@@ -284,7 +284,7 @@
}
function bindddz(firstview, deleteday) {
$('#drag-and-drop-zone').dmUploader({
url: '<%== url_for('add') %>',
url: '<%== index_url %>',
dataType: 'json',
allowedTypes: 'image/*',
maxFileSize: <%= $max_file_size %>,
@@ -317,7 +317,7 @@
$(".hidden-spin").css('display', 'block');
console.log(val);
$.ajax({
url : '<%== url_for('add') %>',
url : '<%== index_url %>',
type : "POST",
data : {
'lutim-file-url' : val,
@@ -357,7 +357,7 @@
$(".messages").append('<div id="1-div">'+file.name+'<br><div class="progress"><div id="1"class="progress-bar progress-striped active" role="progressbar" aria-valuenow="0" aria-valuemin="0" aria-valuemax="100" style="width: 0%;"><span id="1-text" class="pull-left" style="padding-left: 10px;"> 0%</span></div></div></div>');
// Ajax Submit
$.ajax({
url: '<%== url_for('add') %>',
url: '<%== index_url %>',
type: 'POST',
dataType: 'json',
data: fd,

20
templates/layouts/default.html.ep
View File

@@ -1,7 +1,7 @@
% # vim:set sw=4 ts=4 sts=4 ft=html.epl expandtab:
% use Mojo::Util qw(url_escape);
% my $twitter_url = 'https://twitter.com/share';
% my $url = url_for('/')->to_abs();
% my $url = index_url(1);
% $twitter_url .= '?url='.url_escape("$url")
% .'&via=framasky'
% .'&text=Check out this %23Lutim instance! ';
@@ -14,14 +14,14 @@
<meta name="mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-status-bar-style" content="black">
<link rel="icon" type="image/png" href="<%= url_for('/') %>img/favicon.png">
<link rel="icon" sizes="128x128" href="<%= url_for('/') %>img/lutim128.png">
<link rel="icon" sizes="196x196" href="<%= url_for('/') %>img/lutim196.png">
<link rel="apple-touch-icon" href="<%= url_for('/') %>img/lutim60.png">
<link rel="apple-touch-icon" sizes="76x76" href="<%= url_for('/') %>img/lutim76.png">
<link rel="apple-touch-icon" sizes="120x120" href="<%= url_for('/') %>img/lutim120.png">
<link rel="apple-touch-icon" sizes="152x152" href="<%= url_for('/') %>img/lutim152.png">
<link rel="apple-touch-icon-precomposed" sizes="128x128" href="<%= url_for('/') %>img/lutim128.png">
<link rel="icon" type="image/png" href="<%= index_url %>img/favicon.png">
<link rel="icon" sizes="128x128" href="<%= index_url %>img/lutim128.png">
<link rel="icon" sizes="196x196" href="<%= index_url %>img/lutim196.png">
<link rel="apple-touch-icon" href="<%= index_url %>img/lutim60.png">
<link rel="apple-touch-icon" sizes="76x76" href="<%= index_url %>img/lutim76.png">
<link rel="apple-touch-icon" sizes="120x120" href="<%= index_url %>img/lutim120.png">
<link rel="apple-touch-icon" sizes="152x152" href="<%= index_url %>img/lutim152.png">
<link rel="apple-touch-icon-precomposed" sizes="128x128" href="<%= index_url %>img/lutim128.png">
% if (current_route 'stats') {
%= asset 'stats.css'
% } elsif (current_route 'about') {
@@ -40,7 +40,7 @@
% }
<div>
<div class="pull-left hidden-xs logo">
<img src="<%= url_for('/') %>img/Lutim_small.png" alt="Lutim logo">
<img src="<%= index_url %>img/Lutim_small.png" alt="Lutim logo" width="57" height="75">
</div>
<a class="link_nocol" href="<%= url_for('/') %>" title="<%= l('Homepage') %>"><h1 class="hennypenny">Let's Upload That Image!</h1></a>
<p>

2
templates/manifest.webapp.ep
View File

@@ -12,7 +12,7 @@
},
"developer": {
"name": "Lutim team !",
"url": "https://github.com/ldidry/lutim"
"url": "https://git.framasoft.org/luc/lutim"
},
"default_locale": "en",
"locales": {

18
templates/twitter.html.ep
View File

@@ -6,23 +6,23 @@
<title>Lutim</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta charset="utf-8" />
<link rel="icon" type="image/png" href="<%= url_for('index')->to_abs() %>img/favicon.png">
<link rel="icon" type="image/png" href="<%= index_url(1) %>img/favicon.png">
<meta property="og:title" content="Lutim" />
<meta property="og:type" content="website" />
<meta property="og:url" content="<%= url_for('index')->to_abs().$short %>?t" />
<meta property="og:image" content="<%= url_for('index')->to_abs().$short %>" />
<meta property="og:image:url" content="<%= url_for('index')->to_abs().$short %>" />
<meta property="og:url" content="<%= index_url(1).$short %>?t" />
<meta property="og:image" content="<%= index_url(1).$short %>" />
<meta property="og:image:url" content="<%= index_url(1).$short %>" />
<meta property="og:image:type" content="<%= $mimetype %>" />
<meta name="twitter:site" content="<%= config('tweet_card_via') %>">
<meta name="twitter:image:src" content="<%= url_for('index')->to_abs().$short %>">
<meta name="twitter:image:src" content="<%= index_url(1).$short %>">
% if ($g) {
<meta name="twitter:card" content="player">
<meta name="twitter:image" content="<%= url_for('index')->to_abs().$short %>">
<meta name="twitter:player" content="<%= url_for('index')->to_abs().$short.'?t' %>">
<meta name="twitter:image" content="<%= index_url(1).$short %>">
<meta name="twitter:player" content="<%= index_url(1).$short.'?t' %>">
<meta name="twitter:title" content="<%= $filename %>">
<meta name="twitter:player:width" content="<%= $width %>">
<meta name="twitter:player:height" content="<%= $height %>">
%= asset 'freeze.js'
%= asset 'freeze.js', { inline => 1 }
%= javascript begin
freezeframe_options = {
trigger_event: "click",
@@ -34,7 +34,7 @@
% }
</head>
<body<%= ($g) ? '' : ' style="height: 97%;"' %>>
<img<%= ' class="freezeframe"' if ($g) %> style="<%= 'max-' unless ($g) %>width:100%; max-height:100%;" src="<%= url_for('index')->to_abs().$short %><%= '.gif' if ($g) %>" alt="<%= $filename %>">
<img<%= ' class="freezeframe"' if ($g) %> style="<%= 'max-' unless ($g) %>width:100%; max-height:100%;" src="<%= index_url(1).$short %><%= '.gif' if ($g) %>" alt="<%= $filename %>">
</body>
</html>