Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
my ($self, $reqstate, $auth, $method, $path, $rstate) = @_;
my $trim = sub {
my ($self, $reqstate, $auth, $method, $path, $rstate) = @_;
my $trim = sub {
$_[0] =~ /\s*(\S+)/;
return $1;
};
$_[0] =~ /\s*(\S+)/;
return $1;
};
# Phase 2 - dump content into file
if ($rstate->{phase} == 2) {
if ($hdl->{rbuf} =~ s/^(.*?)${newline}?+${closeDelimiter}.*$//s) {
# Phase 2 - dump content into file
if ($rstate->{phase} == 2) {
if ($hdl->{rbuf} =~ s/^(.*?)${newline}?+${closeDelimiter}.*$//s) {
- my ($rest, $eof) = ($1, $3);
my $len = length($rest);
die "write to temporary file failed - $!"
if syswrite($rstate->{outfh}, $rest) != $len;
my $len = length($rest);
die "write to temporary file failed - $!"
if syswrite($rstate->{outfh}, $rest) != $len;