lib/SysIface/Context.pm

package SysIface::Context;
 
use strict;
use warnings;
 
use base 'Mojolicious::Context';

sub param {
        my $self = shift;
        $self->req->params->param( shift );
}

sub title {
        my $self = shift;
        $self->req->params->param( 'hostname' );
}

use File::Slurp;
use File::Path;

our @hosts;
if ( ! @hosts ) {
        @hosts = grep { ! /^\s*#/ } map { s/[\n\r]+$//; $_; } read_file( 'etc/hosts' );
        warn "hosts: ",join(" ", @hosts),$/;
}

sub run {
        my ($self,$cmd) = @_;
        chomp( $cmd );

        my @out;
        foreach my $hostname ( @hosts ) {
                warn "# hostname $hostname\n";

                my $run = "ssh $hostname $cmd";
                my $path = "var/$hostname";
                mkpath $path unless -e $path;
                my $path_cmd = $cmd;
                $path_cmd =~ s{^.+/([^/]+)$}{$1};
                $path .= "/$path_cmd";
                my $out;

                if ( -e $path ) {
                        my $mtime = (stat($path))[9];
                        if ( time - $mtime < 60 ) {
                                $out = read_file $path;
                                warn "# cache $path ", -s $path, "\n";
                        } else {
                                undef $out;
                        }
                }

                if ( ! $out ) {
                        warn "run $run";
                        $out = `$run`;
                        write_file $path, $out;
                        warn "$path ", -s $path, "\n";
                }

                push @out, {
                        hostname => $hostname,
                        command => $cmd,
                        out => $out,
                };
        }
        return @out;

}

1;
1	dpavlin	1	package SysIface::Context;
2
3			use strict;
4			use warnings;
5
6			use base 'Mojolicious::Context';
7	dpavlin	4
8			sub param {
9			my $self = shift;
10			$self->req->params->param( shift );
11			}
12
13	dpavlin	6	sub title {
14			my $self = shift;
15			$self->req->params->param( 'hostname' );
16			}
17
18	dpavlin	7	use File::Slurp;
19			use File::Path;
20
21			our @hosts;
22			if ( ! @hosts ) {
23			@hosts = grep { ! /^\s*#/ } map { s/[\n\r]+$//; $_; } read_file( 'etc/hosts' );
24			warn "hosts: ",join(" ", @hosts),$/;
25			}
26
27			sub run {
28			my ($self,$cmd) = @_;
29			chomp( $cmd );
30
31			my @out;
32			foreach my $hostname ( @hosts ) {
33			warn "# hostname $hostname\n";
34
35			my $run = "ssh $hostname $cmd";
36			my $path = "var/$hostname";
37			mkpath $path unless -e $path;
38			my $path_cmd = $cmd;
39			$path_cmd =~ s{^.+/([^/]+)$}{$1};
40			$path .= "/$path_cmd";
41			my $out;
42
43			if ( -e $path ) {
44			my $mtime = (stat($path))[9];
45			if ( time - $mtime < 60 ) {
46			$out = read_file $path;
47			warn "# cache $path ", -s $path, "\n";
48			} else {
49			undef $out;
50			}
51			}
52
53			if ( ! $out ) {
54			warn "run $run";
55			$out = `$run`;
56			write_file $path, $out;
57			warn "$path ", -s $path, "\n";
58			}
59
60			push @out, {
61			hostname => $hostname,
62			command => $cmd,
63			out => $out,
64			};
65			}
66			return @out;
67
68			}
69
70	dpavlin	1	1;