blob: 2c7aa62717530629dcdcc97c6ac8d2220deccba7 [file] [log] [blame]
#!/usr/bin/perl -w
print "Content-type: text/plain\n\n";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'}) {
read(STDIN, $postData, $ENV{'CONTENT_LENGTH'}) || die "Could not get post data\n";
} else {
$postData = "";
}
@list = split(/&/, $ENV{'QUERY_STRING'});
foreach $element (@list) {
($key, $value) = split(/=/, $element);
$values{$key} = $value;
}
open FILE, $values{'path'} || die("Could not open file\n");
seek FILE, $values{'start'}, 0;
read FILE, $expectedData, $values{'length'};
close(FILE);
if ($postData eq $expectedData) {
print "OK";
} else {
print "FAILED";
}
} else {
print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n";
}