git.rot13.org Git - webpac2/blob - vhost/dipl/data.cgi

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