sub XHRupload {
	no strict 'subs';
	my $full;
	my $image = Image::Resize->new(GD::Image->new($file{'joolzimage', 'file'}));
	if ($image->width() > 1800) {
		$full = $image->resize(1800, 99999);
	} else {
		$full = $image->gd();
	}
	
	my $year		= (localtime)[5] + 1900;
	my $watermark	= 'Artwork by Joolz';
	my $copyright	= "copyright $year";
	
	# Centre text components and centre on image
	my @bounds		= new GD::Image->stringFT('silver', "$ENV{'DOCUMENT_ROOT'}/cgi-bin/Image/watermark.ttf", 140, 0.18, 0, 0, $watermark); 
	my $left   		= ($full->width() / 2) - (($bounds[2] - $bounds[0]) / 2) + 5;
	my $top			= ($full->height() / 2);
	$full->stringFT('white', "$ENV{'DOCUMENT_ROOT'}/cgi-bin/Image/watermark.ttf", 140, 0.18, $left, $top, $watermark); 

	@bounds		= new GD::Image->stringFT('silver', "$ENV{'DOCUMENT_ROOT'}/cgi-bin/Image/watermark.ttf", 80, 0.18, 0, 0, $copyright); 
	$left   		= ($full->width() / 2) - (($bounds[2] - $bounds[0]) / 2) + 5;
	$top			= ($full->height() / 2) + 120;
	$full->stringFT('blue', "$ENV{'DOCUMENT_ROOT'}/cgi-bin/Image/watermark.ttf", 80, 0.18, $left, $top, $copyright); 

	open my $fh, '>', "$ENV{'DOCUMENT_ROOT'}/artwork/full/$data{'id'}.jpg";
	print $fh $full->jpeg(100);
	close $fh;
	
	my $thumb = $image->resize(300, 1000);
	open $fh, '>', "$ENV{'DOCUMENT_ROOT'}/artwork/thumbs/$data{'id'}.jpg";
	print $fh $thumb->jpeg(32);
	close $fh;
	
	print "Content-type: text/plain\n\n";
	print $data{'id'};
	exit 0;
}