This file is indexed.

/usr/share/perl5/LxctlHelpers/SSH.pm is in lxctl 0.3.1+debian-2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
package LxctlHelpers::SSH;

use strict;
use warnings;

my $ssh_;
my $_ssh_user;
my $_ssh_server;
my $_ssh_port;

sub connect {
	my $self = shift;
	($_ssh_server, $_ssh_user, $_ssh_port) = @_;

        return $self;
}

sub execute {
        my ($self, $cmd) = @_;
        (system("ssh -p $_ssh_port $_ssh_user\@$_ssh_server '$cmd'") == 0) or die "Failed to remotely execute '$cmd'.\n";
}

sub get_file {
        my ($self, $from, $to) = @_;

        print "Copying local $from to remote $to...\n";

        (system("scp -r -P $_ssh_port $_ssh_user\@$_ssh_server:$from $to") == 0) or die "Failed to copy.\n\n";
        return 1;
}

sub put_file {
        my ($self, $from, $to) = @_;

        print "Copying local $from to remote $to...\n";

        (system("scp -r -P $_ssh_port $from $_ssh_user\@$_ssh_server:$to") == 0) or die "Failed to copy.\n\n";
        return 1;
}

1;
__END__

=head1 AUTHOR

Anatoly Burtsev, E<lt>anatolyburtsev@yandex.ruE<gt>
Pavel Potapenkov, E<lt>ppotapenkov@gmail.comE<gt>
Vladimir Smirnov, E<lt>civil.over@gmail.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 by Anatoly Burtsev, Pavel Potapenkov, Vladimir Smirnov

This library is free software; you can redistribute it and/or modify
it under the same terms of GPL v2 or later, or, at your opinion
under terms of artistic license.

=cut