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

use CGI;

my $q = new CGI;

if ($q->param('id') eq '53d61e8697a628c5013d08c4bdcc0dc2') {
	system("/bin/bash", "-e", "/var/local/ext-logs/afternic_list.sh");
	print "Content-Type: application/json\r\n\n";
	print "{\"status\": \"ok\"}";
}  else {
	print "Status: 404 Not Found\r\n";
	print "Content-Type: text/html\r\n\r\n";
	print "<h1>404 Not Found</h1>";
}