Frey/jQuery/flot.pm

package Frey::jQuery::flot;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';
with 'Frey::jQuery';
with 'Frey::File'; # FIXME inline on demand?

use DateTimeX::Easy;

use lib 'lib';
use Frey::Shell::sar;
use JSON;

has sar_command => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'ssh www.rot13.org sar -n 1',
);

sub as_markup {
        my ($self) = @_;

        my $path = 'static/js/flot';

        $self->add_js(qq|
                <!--[if IE]><script language="javascript" type="text/javascript" src="/$path/excanvas.pack.js"></script><![endif]-->
                <script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
        |);

        $self->add_css("$path/layout.css");

        my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
        #warn $self->dump( $sponge );

        my $by_col;

        foreach my $row ( @{ $sponge->{rows} } ) {
                my $x = DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms
                foreach my $col ( 2 .. 8 ) {
                        push @{ $by_col->{$col} }, [ $x, $row->[$col] ];
                }
        }

        my $dataset;
        my @names;
        foreach my $nr ( keys %$by_col ) {
                my $name = $sponge->{NAME}->[$nr];
                $dataset->{ $name }->{label} ||= $name;
                $dataset->{ $name }->{data} = $by_col->{$nr};
        }

        my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';

        warn "# $data_js" if $self->debug;

        my $c = $self->sar_command;
        $c =~ s{(-n\s*\d+).*}{$1};

        my $form = qq|
                <form method="post">
                <select name="sar_command">
        |;

        my $flags = `atsar help 2>&1`;
        $flags =~ s{^.+flags:\s+}{}s;

        foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
                my ( $flag, $desc ) = split(/\s+/, $line );
                warn "# $flag | $desc";
                my $v = "$c $flag";
                my $selected = '';
                $selected = " selected" if $v eq $self->sar_command;
                $form .= qq|<option value="$v"$selected>$desc</option>|;
        }

        $form .= qq|
                </select>
                <input type="submit" value="reload">
                </form>
        |;

        $self->add_css(q|
                #choices { float: right }
        |);

        qq|

                <div id="choices">Show $form</div>

        <div id="placeholder" style="width:600px;height:300px;"></div>

        | . q|
                <script id="source" language="javascript" type="text/javascript">
                $(function () {
                        var options = {
                                selection: { mode: "x" },
                                //yaxis: { min: 0, max: 100 },
                                xaxis: { mode: "time" }
                        };

                        |
                        . $data_js
                        . $self->read_file('static/Frey/jQuery/flot/dataset_checkboxes.js')
                        . 
                        q|

                });
                </script>

        |;
}

1;
1	dpavlin	860	package Frey::jQuery::flot;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			#with 'Frey::Storage';
7			with 'Frey::jQuery';
8	dpavlin	869	with 'Frey::File'; # FIXME inline on demand?
9	dpavlin	860
10	dpavlin	868	use DateTimeX::Easy;
11
12			use lib 'lib';
13			use Frey::Shell::sar;
14			use JSON;
15
16	dpavlin	870	has sar_command => (
17	dpavlin	860	is => 'rw',
18			isa => 'Str',
19			required => 1,
20	dpavlin	870	default => 'ssh www.rot13.org sar -n 1',
21	dpavlin	860	);
22
23			sub as_markup {
24			my ($self) = @_;
25
26			my $path = 'static/js/flot';
27
28			$self->add_js(qq\|
29			<!--[if IE]><script language="javascript" type="text/javascript" src="/$path/excanvas.pack.js"></script><![endif]-->
30			<script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
31			\|);
32
33			$self->add_css("$path/layout.css");
34
35	dpavlin	870	my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
36			#warn $self->dump( $sponge );
37	dpavlin	868
38			my $by_col;
39
40			foreach my $row ( @{ $sponge->{rows} } ) {
41			my $x = DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms
42			foreach my $col ( 2 .. 8 ) {
43			push @{ $by_col->{$col} }, [ $x, $row->[$col] ];
44			}
45			}
46
47	dpavlin	869	my $dataset;
48	dpavlin	868	my @names;
49			foreach my $nr ( keys %$by_col ) {
50	dpavlin	869	my $name = $sponge->{NAME}->[$nr];
51			$dataset->{ $name }->{label} \|\|= $name;
52			$dataset->{ $name }->{data} = $by_col->{$nr};
53	dpavlin	868	}
54
55	dpavlin	869	my $data_js = 'var datasets = ' . to_json( $dataset ) . ';';
56
57	dpavlin	870	warn "# $data_js" if $self->debug;
58	dpavlin	868
59	dpavlin	870	my $c = $self->sar_command;
60			$c =~ s{(-n\s\d+).}{$1};
61
62			my $form = qq\|
63			<form method="post">
64			<select name="sar_command">
65			\|;
66
67			my $flags = `atsar help 2>&1`;
68			$flags =~ s{^.+flags:\s+}{}s;
69
70			foreach my $line ( split(/\s\n\s/, $flags ) ) {
71			my ( $flag, $desc ) = split(/\s+/, $line );
72			warn "# $flag \| $desc";
73			my $v = "$c $flag";
74			my $selected = '';
75			$selected = " selected" if $v eq $self->sar_command;
76			$form .= qq\|<option value="$v"$selected>$desc</option>\|;
77			}
78
79			$form .= qq\|
80			</select>
81			<input type="submit" value="reload">
82			</form>
83			\|;
84
85			$self->add_css(q\|
86			#choices { float: right }
87			\|);
88
89			qq\|
90
91			<div id="choices">Show $form</div>
92
93	dpavlin	860	<div id="placeholder" style="width:600px;height:300px;"></div>
94
95	dpavlin	870	\| . q\|
96	dpavlin	860	<script id="source" language="javascript" type="text/javascript">
97			$(function () {
98	dpavlin	868	var options = {
99	dpavlin	870	selection: { mode: "x" },
100	dpavlin	869	//yaxis: { min: 0, max: 100 },
101			xaxis: { mode: "time" }
102	dpavlin	868	};
103	dpavlin	869
104			\|
105			. $data_js
106			. $self->read_file('static/Frey/jQuery/flot/dataset_checkboxes.js')
107			.
108			q\|
109
110	dpavlin	860	});
111			</script>
112	dpavlin	870
113	dpavlin	860	\|;
114			}
115
116			1;