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,count(ca) from citirani group by ca order by count asc ;
});
print "var data = ",to_json(
#        [ map { $_->[0] } @$data ] 
        $data
),";\n\r";
1	dpavlin	1229	#!/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	dpavlin	1233	select sum(ttc),ca,count(ca) from citirani group by ca order by count asc ;
15	dpavlin	1229	});
16			print "var data = ",to_json(
17			# [ map { $_->[0] } @$data ]
18			$data
19			),";\n\r";