#!/usr/bin/perl

print "HTTP/1.1 302 Moved Temporarily\r\n";
#print "Status: 302 Moved Temporarily\r\n";
print "Date: Mon, 30 Jun 2014 12:25:15 GMT\r\n";
print "Server: Apache\r\n";
print "X-Server-Name: payment11\r\n";
print "Jokum: payment11\r\n";
print "P3P: CP=\"NON DSP CURa CUSa OUR NOR STA\"\r\n";
#print "Location: https://beta.architrade.com/paymentweb/reply.action?acquirer=160&transact=480076793&authkey=67323789233164c6fca87f64ef564e4e&paymentStatus=PlaceOrderOK&acquirerResponseCode=OK&acquirerResponseMessage=OK&amount=200&clientSystemMerchantRefId=11075&clientSystemTransactionId=480076793&currency=SEK&customerIpAddress=193.89.191.209&deliveryAddress=1482+Elm+Street&deliveryCountryCode=US&deliveryPostalCode=523907&deliveryPostalPlace=Springwood&firstName=Freddy&lastName=Krueger&orderId=1403702907&paymentStatus=PlaceOrderOK&personOrOrganization=PERSON&placeOrderTransactionEventId=200000538206&responseCode=100&responseMessage=OK&signature=f5a5331d326fd4c8211684a05d0773d3bf1a54c676039051b2067ebddccd7aca&transactionId=332987\r\n";
print "Location: http://google.com\r\n";
print "Content-Length: 0\r\n";
print "Connection: close\r\n";
print "Content-Type: text/plain\r\n";
print "\r\n";
#print "A";