#!/usr/bin/perl

##########################################################################################
#                                                                                        #
# Coded by: Sven Haag | 12th Mar. 2010 | reflect@sven-haag.de                            #
# Inspired by: http://www.ajax-cross-domain.com/                                         #
# Visit: http://reflect.ws                                                               #
#                                                                                        #
##########################################################################################


#read POST data from STDIN
read STDIN, $params, qq($ENV{'CONTENT_LENGTH'});

#split parameters
@pairs = split(/&/, $params);
foreach $pair (@pairs){
    ($name, $value) = split(/=/, $pair);
    $in{$name} = $value; 
}

my $uri = $in{'URI'};
my $document = $in{'document'};
my $reflected = $in{'reflected'};
my $responseHeader = "";
my $responseHTML = "";

use strict;
use LWP::Simple;
use LWP::Simple::Post qw(post post_xml);

my $input = "document=".$document."&URI=".$uri;

if ($reflected ne "true") {
    #Webpage not reflected yet
    $responseHeader = get('http://reflect.ws/REST/GetHeader');
}

$responseHTML = post('http://reflect.ws/REST/GetHTML', "$input");

print "Content-type: text/html; charset=utf-8\n\n" . $responseHeader . "##" . $responseHTML;