diff options
Diffstat (limited to 'lib/App/Glacier')
-rw-r--r-- | lib/App/Glacier/Command/Periodic.pm | 15 | ||||
-rw-r--r-- | lib/App/Glacier/Directory.pm | 2 |
2 files changed, 12 insertions, 5 deletions
diff --git a/lib/App/Glacier/Command/Periodic.pm b/lib/App/Glacier/Command/Periodic.pm index 18bd4f8..51c9718 100644 --- a/lib/App/Glacier/Command/Periodic.pm +++ b/lib/App/Glacier/Command/Periodic.pm @@ -18,9 +18,18 @@ B<glacier periodic> =head1 DESCRIPTION -Scans pending glacier jobs. For each job, checks its current status and if -it the job is completed, retrieves the result. Typical usage is in the -crontab. +Scans glacier jobs, cleaning up expired and failed ones and finishing +up completed ones. For each completed archive retrieval job, the +target file is downloaded and stored in directory configured by +the B<transfer.download.cachedir> configuration setting (default - +F</var/lib/glacier/cache>). This file will be removed when the +corresponding jobs expires. For each completed inventory retrieval job, +the vault inventory is obtained and stored in the database. + +It is recommended to schedule this command for periodic execution in +your crontab, e.g.: + + */4 * * * * root glacier periodic =cut diff --git a/lib/App/Glacier/Directory.pm b/lib/App/Glacier/Directory.pm index 0ab998f..5e3ad46 100644 --- a/lib/App/Glacier/Directory.pm +++ b/lib/App/Glacier/Directory.pm @@ -12,7 +12,6 @@ use constant DB_INFO_KEY => ';00INFO'; sub new { my ($class, $backend, $vault, $glacier, %opts) = @_; - my $ttl = delete $opts{ttl}; (my $vault_name = $vault) =~ s/([^A-Za-z_0-9\.-])/sprintf("%%%02X", ord($1))/gex; map { $opts{$_} =~ s/\$(?:vault|\{vault\})/$vault_name/g } keys %opts; @@ -23,7 +22,6 @@ sub new { if ($self) { $self->{_vault} = $vault; $self->{_glacier} = $glacier; - $self->{_ttl} = $ttl; } return $self; } |