vhost/dipl/data.cgi

#!/usr/bin/perl

use warnings;
use strict;

use JSON;
use DBI;

print "Content-type: text/javascript\n\r\n\r";

my $dbh = DBI->connect('dbi:Pg:dbname=dipl','dpavlin','', { RaiseError => 1, AutoCommit => 0 });

my $data = $dbh->selectall_arrayref(q{
        select sum(ttc),ca from citirani group by ca order by sum desc ;
});
print "var data = ",to_json(
#        [ map { $_->[0] } @$data ] 
        $data
),";\n\r";
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use JSON;
7	use DBI;
8
9	print "Content-type: text/javascript\n\r\n\r";
10
11	my $dbh = DBI->connect('dbi:Pg:dbname=dipl','dpavlin','', { RaiseError => 1, AutoCommit => 0 });
12
13	my $data = $dbh->selectall_arrayref(q{
14	select sum(ttc),ca from citirani group by ca order by sum desc ;
15	});
16	print "var data = ",to_json(
17	# [ map { $_->[0] } @$data ]
18	$data
19	),";\n\r";