Lines 405-410
For local transport, this is a no-op as there are no connections to close.
Link Here
|
405 |
|
405 |
|
406 |
=cut |
406 |
=cut |
407 |
|
407 |
|
|
|
408 |
sub delete_file { |
409 |
my ( $self, $remote_file ) = @_; |
410 |
my $operation = "delete"; |
411 |
|
412 |
my $directory = $self->download_directory || $self->{current_directory} || '.'; |
413 |
my $source = File::Spec->catfile( $directory, $remote_file ); |
414 |
|
415 |
# Check if the file exists |
416 |
unless ( -e $source ) { |
417 |
$self->add_message( |
418 |
{ |
419 |
message => $operation, |
420 |
type => 'error', |
421 |
payload => { |
422 |
error => "File not found: $source", |
423 |
path => $source |
424 |
} |
425 |
} |
426 |
); |
427 |
return; |
428 |
} |
429 |
|
430 |
# Attempt to delete the file |
431 |
if ( unlink $source ) { |
432 |
$self->add_message( |
433 |
{ |
434 |
message => $operation, |
435 |
type => 'success', |
436 |
payload => { path => $source } |
437 |
} |
438 |
); |
439 |
} else { |
440 |
$self->add_message( |
441 |
{ |
442 |
message => $operation, |
443 |
type => 'error', |
444 |
payload => { |
445 |
error => "File could not be deleted: $source", |
446 |
path => $source |
447 |
} |
448 |
} |
449 |
); |
450 |
} |
451 |
|
452 |
return 1; |
453 |
} |
454 |
|
455 |
=head3 disconnect |
456 |
|
457 |
$server->disconnect(); |
458 |
|
459 |
For local transport, this is a no-op as there are no connections to close. |
460 |
|
461 |
=cut |
462 |
|
408 |
sub disconnect { |
463 |
sub disconnect { |
409 |
my ($self) = @_; |
464 |
my ($self) = @_; |
410 |
|
465 |
|