Emulate the "ping" and "receiver" service of the Adobe Digital Editions data collector

ping

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use Data::Dumper;

my $input = CGI->new();
open my $log, '>>', '/tmp/datacollector-log';
print $log "$0 received request at " . localtime() . "\n";
print $log "--------------------------------------\n";
print $log "UA: " . $input->user_agent() . "\n";
print $log "Cookie: " . $input->cookie('s_vi') . "\n";
my $params = $input->Vars;
print $log Dumper($params);
print $log "\n\n";

print $input->header( -type => 'application/vnd.adobe.dc+xml', -charset => 'UTF-8' );
print 'UP';

close $log;

receiver

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use Data::Dumper;

my $input = CGI->new();
open my $log, '>>', '/tmp/datacollector-log';
print $log "$0 received request at " . localtime() . "\n";
print $log "--------------------------------------\n";
print $log "UA: " . $input->user_agent() . "\n";
print $log "Cookie: " . $input->cookie('s_vi') . "\n";
my $params = $input->Vars;
print $log Dumper($params);
print $log "\n\n";

print $input->header( -type => 'application/vnd.adobe.dc+xml', -charset => 'UTF-8' );
print 'OK';

close $log;