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	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;