lib/WM/System.pm

package WM::System;

use strict;
use warnings;

use base 'Mojolicious::Controller';

use Data::Dump qw/dump/;
use JSON;

my $remote = 'ssh mjesec';
$remote = ''; # FIXME

sub exhibit {
    my ($self, $c) = @_;
        warn "## c = ",dump( $c );
        $c->render;
}

=for later

sub vzlist {
    my ($self, $c) = @_;

        $self->text_plain( $c->res, 'sudo /usr/sbin/vzlist' );

}


sub text_plain {
        my ( $self, $res, $command ) = @_;
        $res->code(200);
    $res->headers->content_type('text/plain');
        $res->body( scalar `COLUMNS=128 $remote $command` );
}


=cut

sub json {
        my ( $self, $res, $data ) = @_;
        $res->code(200);
    $res->headers->content_type('application/javascript');
        $res->body( to_json( $data ) );
}


sub df {
    my ($self, $c) = @_;

        my $df = `$remote df -k`;
        my @lines = split(/\n/, $df);
        my @header = map { lc($_) } split(/\s+/, shift @lines, 6);

        my @data;
        my $number;

        while ( @lines ) {
                my $data;
                my @v = split(/\s+/, shift @lines);
                if ( $#v == 0 ) {
                        push @v, split(/\s+/, shift @lines);
                }
                foreach my $i ( 0 .. $#header ) {
                        my $name = lc( $header[$i] );
                        $name =~ s/[^a-z0-9]+/_/g;
                        $name =~ s/^([0-9])/_$1/;
                        $name =~ s/_+$//;
                        my $val = $v[$i];
                        $number->{$name}++ if $val =~ s/^(\d+)%?$/$1/;
                        $data->{ $name } = $val;

                        $data->{ label } = $val if $name =~ m/mounted/;
                }
                warn "left ",dump(@v) if @v;
                push @data, $data;
        }

        warn "# data = ",dump( @data );
        warn "# number [$#header] = ",dump( $number );

        $self->json( $c->res, {
                items => [ @data ],
                properties => {
                        map { $_ => { valueType => 'number' } }
                        grep { $number->{$_} == $#header + 1 }
                        keys %$number
                }
        } );
}

1;
1	dpavlin	40	package WM::System;
2
3			use strict;
4			use warnings;
5
6			use base 'Mojolicious::Controller';
7
8			use Data::Dump qw/dump/;
9			use JSON;
10
11			my $remote = 'ssh mjesec';
12			$remote = ''; # FIXME
13
14			sub exhibit {
15			my ($self, $c) = @_;
16			warn "## c = ",dump( $c );
17			$c->render;
18			}
19
20			=for later
21
22			sub vzlist {
23			my ($self, $c) = @_;
24
25			$self->text_plain( $c->res, 'sudo /usr/sbin/vzlist' );
26
27			}
28
29
30			sub text_plain {
31			my ( $self, $res, $command ) = @_;
32			$res->code(200);
33			$res->headers->content_type('text/plain');
34			$res->body( scalar `COLUMNS=128 $remote $command` );
35			}
36
37
38			=cut
39
40			sub json {
41			my ( $self, $res, $data ) = @_;
42			$res->code(200);
43			$res->headers->content_type('application/javascript');
44			$res->body( to_json( $data ) );
45			}
46
47
48			sub df {
49			my ($self, $c) = @_;
50
51			my $df = `$remote df -k`;
52			my @lines = split(/\n/, $df);
53			my @header = map { lc($_) } split(/\s+/, shift @lines, 6);
54
55			my @data;
56			my $number;
57
58			while ( @lines ) {
59			my $data;
60			my @v = split(/\s+/, shift @lines);
61			if ( $#v == 0 ) {
62			push @v, split(/\s+/, shift @lines);
63			}
64			foreach my $i ( 0 .. $#header ) {
65			my $name = lc( $header[$i] );
66			$name =~ s/[^a-z0-9]+/_/g;
67			$name =~ s/^([0-9])/_$1/;
68			$name =~ s/_+$//;
69			my $val = $v[$i];
70			$number->{$name}++ if $val =~ s/^(\d+)%?$/$1/;
71			$data->{ $name } = $val;
72
73			$data->{ label } = $val if $name =~ m/mounted/;
74			}
75			warn "left ",dump(@v) if @v;
76			push @data, $data;
77			}
78
79			warn "# data = ",dump( @data );
80			warn "# number [$#header] = ",dump( $number );
81
82			$self->json( $c->res, {
83			items => [ @data ],
84			properties => {
85			map { $_ => { valueType => 'number' } }
86			grep { $number->{$_} == $#header + 1 }
87			keys %$number
88			}
89			} );
90			}
91
92			1;