#!/usr/bin/perl -w
use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib 'module';
use WebDB;
use JSON; 
use IO::Compress::Gzip qw(gzip $GzipError);
#use IO::Uncompress::Gunzip qw(gunzip $GunzipError); 
use MIME::Base64;

my $cgi = new CGI;
my $compress = $cgi->param("compress");

my $result;
my $result->{checkstring} = "Mein Teststring.";

my @array = WebDB::get_hasharray("SELECT * FROM exercises");
$result->{data} = \@array;
my $json = to_json($result, {pretty => 1});

my $output;
my $unziped;
if( $compress ){
  print $cgi->header( -type=>'application/octet-stream', -encoding=>'gzip' );
  #print $cgi->header( -type=>'text/plain', -encoding=>'gzip' ); 
  gzip \$json, \$output, or die "gzip failed: $GzipError\n";
  $output = encode_base64($output);
  #gunzip \$output, \$unziped, or die "gzip failed: $GzipError\n";
}
else{
  print $cgi->header( -type=>'application/json' ); 
  $output = $json;
}
 
print $output;