1#@!#!123s

D7net

: / kunden / lib / susshi / exec /

Filename : delete

back

#!/usr/bin/perl

use warnings;
use strict;

use lib '/usr/lib/susshi/exec';
use Susshi;

use IPC::Run qw( run timeout );

my $susshi = Susshi->new( -read_input => 1 );

my ($backupdir, $filename) = $susshi->get_backuppath;

-f $filename     or error_die("File does not exist: $filename", 2);
unlink $filename or error_die "Cannot unlink $filename: $!\n";

info "Removed $filename";

exit 0;