Sack/Server/HTML.pm

package Sack::Server::HTML;

use warnings;
use strict;

use lib '/srv/Sack/lib';
use Sack::Server::Gnuplot;

sub send_out {
        my ( $send, $out, $key, $param ) = @_;

        my ( @x, @y );

        my $sort  = $param->{sort}  || 'k';
        my $order = $param->{order} || 'd';

        my $o = $order eq 'u' ? 'd' : 'u';
        my $s = $sort  eq 'k' ? 'v' : 'k';

        print $send qq|<h1>$key</h1>\n<table>\n<tr>|;

        print $send map {
                if ( $sort eq $_ ) {
                        qq|<th>$_ <a href="?sort=$_;order=$o">&${o}arr;</th>|
                } else {
                        qq|<th><a href="?sort=$s;order=d">$_ &darr;</a></th>|
                }
        } ( 'k', 'v' );

        print $send qq|</tr>\n|;

        foreach my $name (
                sort {
                        $sort eq 'k'
                                ? ( $order eq 'd'       ? $a cmp $b : $b cmp $a )
                                : ( $order eq 'd'       ? $out->{$key}->{$a} <=> $out->{$key}->{$b}
                                                                        : $out->{$key}->{$b} <=> $out->{$key}->{$a} )
                        ;
                }
                keys %{ $out->{$key} }
        ) {
                my $v = $out->{$key}->{$name};
                print $send qq|<tr><td>$name</td><td>$v</td></tr>\n|;

                if ( $key =~ m/^date/ ) {
                        push @x, $name;
                        push @y, $v;
                }
        }
        print $send qq|</table>|;

        Sack::Server::Gnuplot::date( \@x, \@y, "/tmp/$key.png" ) if @x;
}

1;
1	package Sack::Server::HTML;
2
3	use warnings;
4	use strict;
5
6	use lib '/srv/Sack/lib';
7	use Sack::Server::Gnuplot;
8
9	sub send_out {
10	my ( $send, $out, $key, $param ) = @_;
11
12	my ( @x, @y );
13
14	my $sort = $param->{sort} \|\| 'k';
15	my $order = $param->{order} \|\| 'd';
16
17	my $o = $order eq 'u' ? 'd' : 'u';
18	my $s = $sort eq 'k' ? 'v' : 'k';
19
20	print $send qq\|<h1>$key</h1>\n<table>\n<tr>\|;
21
22	print $send map {
23	if ( $sort eq $_ ) {
24	qq\|<th>$_ <a href="?sort=$_;order=$o">&${o}arr;</th>\|
25	} else {
26	qq\|<th><a href="?sort=$s;order=d">$_ ↓</a></th>\|
27	}
28	} ( 'k', 'v' );
29
30	print $send qq\|</tr>\n\|;
31
32	foreach my $name (
33	sort {
34	$sort eq 'k'
35	? ( $order eq 'd' ? $a cmp $b : $b cmp $a )
36	: ( $order eq 'd' ? $out->{$key}->{$a} <=> $out->{$key}->{$b}
37	: $out->{$key}->{$b} <=> $out->{$key}->{$a} )
38	;
39	}
40	keys %{ $out->{$key} }
41	) {
42	my $v = $out->{$key}->{$name};
43	print $send qq\|<tr><td>$name</td><td>$v</td></tr>\n\|;
44
45	if ( $key =~ m/^date/ ) {
46	push @x, $name;
47	push @y, $v;
48	}
49	}
50	print $send qq\|</table>\|;
51
52	Sack::Server::Gnuplot::date( \@x, \@y, "/tmp/$key.png" ) if @x;
53	}
54
55	1;