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?
with 'Frey::Web::IFrame';

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

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

        my $by_col;
        my $unit_by_col;

        foreach my $row ( @{ $sponge->{rows} } ) {
                my $x = DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms
                foreach my $col ( 1 .. $#$row ) {
                        my $v = $row->[$col];
                        $unit_by_col->{$col} = $1 if $v =~ s{([M%])$}{};
                        push @{ $by_col->{$col} }, [ $x, $v ];
                }
        }

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

        my $placeholder = qq|<div class="frey-error">no data found</div>|;
        my $data_js = '';
        if ( $dataset ) {
                $data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
                $placeholder = qq|
                        <div id="placeholder" style="width:600px;height:300px;"></div>
                        <div id="selection">no selection</div>
                |
                . $self->iframe_html
                ;
        }

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

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

        my $form = qq|
                <form method="post">
                <b>From</b> <input type="submit" value="refresh"><br>
        |;

        my $flags = `atsar help 2>&1`;
        $flags =~ s{^.+flags:\s+}{}s;
        $flags =~ s{^\s*-[AS].+$}{}gm; # remove -A and -S flags which doesn't make sense
        $flags =~ s{^\s+}{}s;

        foreach my $line ( split(/\s*\n\s*/, $flags ) ) {
                my ( $flag, $desc ) = split(/\s+/, $line, 2 );
                warn "# $flag | $desc";
                my $v = "$c $flag";
                my $checked = '';
                $checked = " checked" if $self->sar_command =~ m{$flag};
                $form .= qq|<input type="radio" name="sar_command" value="$v"$checked>$desc<br>\n|;
        }

        $form .= qq|
                </form>
        |;

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

        return
        qq|

                <code>$sar</code>

                $placeholder

                $form

                <div id="choices"><b>Show</b></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	907	with 'Frey::Web::IFrame';
10	dpavlin	860
11	dpavlin	868	use DateTimeX::Easy;
12
13			use lib 'lib';
14			use Frey::Shell::sar;
15			use JSON;
16
17	dpavlin	870	has sar_command => (
18	dpavlin	860	is => 'rw',
19			isa => 'Str',
20			required => 1,
21	dpavlin	870	default => 'ssh www.rot13.org sar -n 1',
22	dpavlin	860	);
23
24			sub as_markup {
25			my ($self) = @_;
26
27			my $path = 'static/js/flot';
28
29			$self->add_js(qq\|
30			<!--[if IE]><script language="javascript" type="text/javascript" src="/$path/excanvas.pack.js"></script><![endif]-->
31			<script language="javascript" type="text/javascript" src="/$path/jquery.flot.js"></script>
32			\|);
33
34	dpavlin	870	my $sponge = Frey::Shell::sar->new( sar_command => $self->sar_command )->as_sponge;
35			#warn $self->dump( $sponge );
36	dpavlin	868
37			my $by_col;
38	dpavlin	871	my $unit_by_col;
39	dpavlin	868
40			foreach my $row ( @{ $sponge->{rows} } ) {
41			my $x = DateTimeX::Easy->new( $row->[0] )->epoch * 1000; # ms
42	dpavlin	871	foreach my $col ( 1 .. $#$row ) {
43			my $v = $row->[$col];
44			$unit_by_col->{$col} = $1 if $v =~ s{([M%])$}{};
45			push @{ $by_col->{$col} }, [ $x, $v ];
46	dpavlin	868	}
47			}
48
49	dpavlin	869	my $dataset;
50	dpavlin	868	my @names;
51			foreach my $nr ( keys %$by_col ) {
52	dpavlin	869	my $name = $sponge->{NAME}->[$nr];
53	dpavlin	871	$dataset->{ $name }->{label}
54			\|\|= $name
55			. ( $unit_by_col->{$nr} ? ' [' . $unit_by_col->{$nr} . ']' : '' )
56			;
57	dpavlin	869	$dataset->{ $name }->{data} = $by_col->{$nr};
58	dpavlin	868	}
59
60	dpavlin	873	my $placeholder = qq\|<div class="frey-error">no data found</div>\|;
61			my $data_js = '';
62			if ( $dataset ) {
63			$data_js = 'var datasets = ' . to_json( $dataset ) . ";\n";
64	dpavlin	878	$placeholder = qq\|
65			<div id="placeholder" style="width:600px;height:300px;"></div>
66			<div id="selection">no selection</div>
67	dpavlin	907	\|
68			. $self->iframe_html
69			;
70	dpavlin	873	}
71	dpavlin	869
72	dpavlin	870	warn "# $data_js" if $self->debug;
73	dpavlin	868
74	dpavlin	871	my $sar = $self->sar_command;
75			my $c = $sar;
76	dpavlin	903	$c =~ s{sar\s(-n\s\d+)?(.?)$}{sar $1};
77	dpavlin	870
78			my $form = qq\|
79			<form method="post">
80	dpavlin	871	<b>From</b> <input type="submit" value="refresh"><br>
81	dpavlin	870	\|;
82
83			my $flags = `atsar help 2>&1`;
84			$flags =~ s{^.+flags:\s+}{}s;
85	dpavlin	873	$flags =~ s{^\s*-[AS].+$}{}gm; # remove -A and -S flags which doesn't make sense
86			$flags =~ s{^\s+}{}s;
87	dpavlin	870
88			foreach my $line ( split(/\s\n\s/, $flags ) ) {
89	dpavlin	871	my ( $flag, $desc ) = split(/\s+/, $line, 2 );
90	dpavlin	870	warn "# $flag \| $desc";
91			my $v = "$c $flag";
92	dpavlin	871	my $checked = '';
93	dpavlin	878	$checked = " checked" if $self->sar_command =~ m{$flag};
94	dpavlin	871	$form .= qq\|<input type="radio" name="sar_command" value="$v"$checked>$desc<br>\n\|;
95	dpavlin	870	}
96
97			$form .= qq\|
98			</form>
99			\|;
100
101			$self->add_css(q\|
102	dpavlin	871	#choices, form { float: left; }
103	dpavlin	870	\|);
104
105	dpavlin	873	return
106	dpavlin	870	qq\|
107
108	dpavlin	876	<code>$sar</code>
109
110	dpavlin	873	$placeholder
111
112	dpavlin	871	$form
113	dpavlin	873
114	dpavlin	871	<div id="choices"><b>Show</b></div>
115	dpavlin	860
116	dpavlin	870	\| . q\|
117	dpavlin	860	<script id="source" language="javascript" type="text/javascript">
118			$(function () {
119	dpavlin	868	var options = {
120	dpavlin	870	selection: { mode: "x" },
121	dpavlin	869	//yaxis: { min: 0, max: 100 },
122			xaxis: { mode: "time" }
123	dpavlin	868	};
124	dpavlin	869
125			\|
126			. $data_js
127			. $self->read_file('static/Frey/jQuery/flot/dataset_checkboxes.js')
128			.
129			q\|
130
131	dpavlin	860	});
132			</script>
133	dpavlin	870
134	dpavlin	860	\|;
135			}
136
137			1;