|
|
@ -30,9 +30,9 @@ my $service = $c->get('ExpireAccounts') || |
|
|
|
my $warn_delay = $service->prop('WarningDelay') || '30'; |
|
|
|
my $warn_delay = $service->prop('WarningDelay') || '30'; |
|
|
|
my $recipient = $service->prop('WarningRecipient') || 'root'; |
|
|
|
my $recipient = $service->prop('WarningRecipient') || 'root'; |
|
|
|
my $days_between_warn = $service->prop('DaysBetweenWarnings') || '5'; |
|
|
|
my $days_between_warn = $service->prop('DaysBetweenWarnings') || '5'; |
|
|
|
my $archive_compress = $service->prop('ArchiveCompression') || '/usr/bin/pbzip2'; |
|
|
|
my $archive_compress = $service->prop('ArchiveCompression') || '/usr/bin/xz'; |
|
|
|
my $archive_path = $service->prop('ArchivePath') || '/home/e-smith/files/archives/users'; |
|
|
|
my $archive_path = $service->prop('ArchivePath') || '/home/e-smith/files/archives/users'; |
|
|
|
my $archive_ext = 'bz2'; |
|
|
|
my $archive_ext = 'xz'; |
|
|
|
|
|
|
|
|
|
|
|
if ( !-x $archive_compress ){ |
|
|
|
if ( !-x $archive_compress ){ |
|
|
|
print "$archive_compress not found, switching back to the default /bin/gzip\n" if ($debug); |
|
|
|
print "$archive_compress not found, switching back to the default /bin/gzip\n" if ($debug); |
|
|
|