#!/usr/bin/perl
# James "Jamie" Arthur Johnson @jamesarthurjohn 14 June 2017
use LWP::UserAgent;
use HTTP::Request;
 
my $ua = new LWP::UserAgent;
$ua = LWP::UserAgent->new(ssl_opts => {verify_hostname =>1 });
my $url = "http://tech.beacondeacon.com/batman.xml";  # some systems may need https
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
print "Content-type: text/plain\n\n";
my $content = $response->content(); 
#print $content;# for testing - can print out the xml
my @xml = split/<villain>/, $content;
print '{"data": [{';
foreach my $i (1..$#xml) {
	 ### ALIAS ###
	 my @aliases = split/<alias>/, $xml[$i];
	 my @aliases2 = split/<\/alias>/, $aliases[1];
	 print '"alias": "'.$aliases2[0].'",';
	 
	 ### NAME ###
	 my @names = split/<name>/, $xml[$i];
	 my @names2 = split/<\/name>/, $names[1];
	 print '"name": "'.$names2[0].'",';
	 
	 ### GENDER ###
	 my @genders = split/<gender>/, $xml[$i];
	 my @genders2 = split/<\/gender>/, $genders[1];
	 print '"gender": "'.$genders2[0].'",';
	 
	 ### APPEARED ###
	 my @appeareds = split/<appeared>/, $xml[$i];
	 my @appeareds2 = split/<\/appeared>/, $appeareds[1];
	 print '"appeared": "'.$appeareds2[0].'"';
	 
	 print "}";
	 if($i != $#xml){
	 	print ",{";
	 }
}
print "]";
print "}";
exit;