|
Lines 24-29
use C4::Context;
Link Here
|
| 24 |
use POSIX qw(strftime); |
24 |
use POSIX qw(strftime); |
| 25 |
use LWP::UserAgent; |
25 |
use LWP::UserAgent; |
| 26 |
use JSON; |
26 |
use JSON; |
|
|
27 |
use URI::Encode qw(uri_encode); |
| 27 |
|
28 |
|
| 28 |
=head1 NAME C4::UsageStats |
29 |
=head1 NAME C4::UsageStats |
| 29 |
|
30 |
|
|
Lines 369-375
Send to hea.koha-community.org database informations
Link Here
|
| 369 |
|
370 |
|
| 370 |
sub ReportToCommunity { |
371 |
sub ReportToCommunity { |
| 371 |
my $data = shift; |
372 |
my $data = shift; |
| 372 |
my $json = to_json($data); |
373 |
my $json = uri_encode(to_json($data), 1); |
| 373 |
|
374 |
|
| 374 |
my $ua = LWP::UserAgent->new; |
375 |
my $ua = LWP::UserAgent->new; |
| 375 |
my $req = HTTP::Request->new(POST => "http://hea.koha-community.org/upload.pl"); |
376 |
my $req = HTTP::Request->new(POST => "http://hea.koha-community.org/upload.pl"); |
| 376 |
- |
|
|