|
Lines 165-171
sub change_directory {
Link Here
|
| 165 |
my ( $self, $remote_directory ) = @_; |
165 |
my ( $self, $remote_directory ) = @_; |
| 166 |
my $operation = "change_directory"; |
166 |
my $operation = "change_directory"; |
| 167 |
|
167 |
|
| 168 |
$self->{connection}->cwd($remote_directory) or return $self->_abort_operation($operation); |
168 |
$self->{connection}->cwd($remote_directory) or return $self->_abort_operation( $operation, $remote_directory ); |
| 169 |
|
169 |
|
| 170 |
$self->add_message( |
170 |
$self->add_message( |
| 171 |
{ |
171 |
{ |
|
Lines 288-294
sub _is_connected {
Link Here
|
| 288 |
} |
288 |
} |
| 289 |
|
289 |
|
| 290 |
sub _abort_operation { |
290 |
sub _abort_operation { |
| 291 |
my ( $self, $operation ) = @_; |
291 |
my ( $self, $operation, $path ) = @_; |
| 292 |
|
292 |
|
| 293 |
$self->add_message( |
293 |
$self->add_message( |
| 294 |
{ |
294 |
{ |
|
Lines 296-302
sub _abort_operation {
Link Here
|
| 296 |
type => 'error', |
296 |
type => 'error', |
| 297 |
payload => { |
297 |
payload => { |
| 298 |
detail => $self->{connection} ? $self->{connection}->status : '', |
298 |
detail => $self->{connection} ? $self->{connection}->status : '', |
| 299 |
error => $self->{connection} ? $self->{connection}->message : $@ |
299 |
error => $self->{connection} ? $self->{connection}->message : $@, |
|
|
300 |
path => $path ? $path : $self->{connection}->pwd, |
| 300 |
} |
301 |
} |
| 301 |
} |
302 |
} |
| 302 |
); |
303 |
); |
| 303 |
- |
|
|