#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use URI::Escape;
use Cwd 'getcwd';

#my $resp = "--";
#my $resp = "AAupdate_00_01.bin";
#my $resp = "Lx-Boot_1250_01_01_Mk3.bin";
my $resp = "Lu-NCU_1250_02_01.bin";
#my $resp = "!!NCUPARAM:";

if ($ENV{'REQUEST_METHOD'} ne "POST") {
	print "Status: 405 Method Not Allowed\n";
	print "Content-type: text/plain\n\n";
	exit;
}

chdir("/var/www/html/ncu_1250/")
	or die "Can't open dir $!";

my $q = new CGI;
my $txt = uri_unescape($q->param('POSTDATA'));
$txt =~ s/^\W+//;
my $out;
open $out, ">>", "postdata.txt"
	or die "Error! $!";
	
print $out "$txt\n";
close $out;
print STDERR $txt;

#my $resp;
#my @files = glob("*.bin");
#foreach my $file (@files) {
#	$resp .= "$file\n";
#}

print "Content-type: text/plain\n\n";
print $resp;