package IMPL::Web::DOM::FileNode;
use parent qw(IMPL::DOM::Node);

__PACKAGE__->PassThroughArgs;

use IMPL::Class::Property;
use File::Temp qw(tempfile);

BEGIN {
	public property parameterName => {
		get => sub {
			my ($this) = @_;
			$this->_parameterName() or
			$this->_parameterName(
				join '/', ( map {
					(defined $_->nodeProperty('instanceId')) ?
						$_->nodeName . '['.$_->nodeProperty('instanceId').']':
						$_->nodeName
				} $this->_selectParents, $this )
			);
		}
	};
	private property _parameterName => prop_all;
	public property fileName => {
		get => sub {
			my ($this) = @_;
			return $this->document->query->param($this->parameterName);
		}
	};
	public property fileHandle => {
		get => sub {
			my ($this) = @_;
			return $this->document->query->upload($this->parameterName);
		}
	};
}

sub invokeTempFile {
	my ($this,$sub,$target) = @_;
	
	die new IMPL::InvalidArgumentException("A reference to a function should be specified") unless $sub && ref $sub eq 'CODE';
	
	$target ||= $this;
	
	my $query = $this->document->nodeProperty('query') or die new IMPL::InvalidOperationException("Failed to get a CGI query from the document");
	my $hFile = $query->upload($this->parameterName) or die new IMPL::IOException("Failed to open the uploaded file",$query->cgi_error,$this->parameterName,$this->nodeProperty('instanceId'));
			
	my ($hTemp,$tempFileName) = tempfile();
	binmode($hTemp);
	
	print $hTemp $_ while <$hFile>;
	
	$hTemp->flush();
	seek $hTemp, 0,0;
	{
		local $_ = $tempFileName;
		$sub->($this,$tempFileName,$hTemp);
	}
}

sub _selectParents {
	my ($node) = @_;
	
	my @result;
	
	unshift @result, $node while $node = $node->parentNode;
	
	return @result;
}

1;

__END__

=pod

=head1 NAME

C<IMPL::Web::DOM::FileNode> - узел, использующийся для представления параметра запроса в котором передан файл.

=head1 SINOPSYS

=begin code xml

<!-- input.schema.xml -->
<schema>
	<SimpleType type="file" nativeType="IMPL::Web::DOM::FileNode"/>
	<ComplexNode name="user">
		<Node type="file" name="avatar"/>
	</ComplexNode>
</schema>

=end code xml

=begin code

# handle.pl
use IMPL::DOM::Transform::PostToDOM ();
use IMPL::DOM::Schema;
use CGI;
use File::Copy qw(copy);

my $t = new IMPL::DOM::Transform::PostToDOM(
	undef,
	IMPL::DOM::Schema->LoadSchema('input.schema.xml'),
	'user'	
);

my $doc = $t->Transform(CGI->new());

if ($t->Errors->Count) {
	# handle errors	
}

$doc->selectSingleNode('avatar')->invokeTempFile(
	sub {
		my($node,$fname,$fhandle) = @_;
		
		# do smth with file
		copy($_,'avatar.jpg');
		
		# same thing
		# copy($fname,'avatar.jpg');
	}
);

=end code

=head1 DESCRIPTION

Данный класс используется для представлении параметров C<CGI> запросов при преобзаовании
запроса в ДОМ документ преобразованием C<IMPL::DOM::Transform::PostToDOM>.

Узлы данного типа расширяют стандатрный C<IMPL::DOM::Node> несколькими свойствами и
методами для доступа к файлу, переданному в виде параметра запроса.

=head1 MEMBERS

=head2 PROPERTIES

=over

=item C<[get] parameterName>

Имя параметра C<CGI> запроса соответствующего данному узлу.

=item C<[get] fileName>

Имя файла из параметра запроса

=item C<[get] fileHandle>

Указатель на файл из параметра запроса

=back

=head2 METHODS

=over

=item C<invokeTempFile($callback,$target)>

Сохраняет файл, переданный в запросе во временный, вызывает C<$callback> для обработки временного файла.

=over

=item C<$callback>

Ссылка на функцию которая будет вызвана для обработки временного файла. C<callback($target,$fname,$fhandle)>

=over

=item C<$fname>

Имя временного файла

=item C<$fhandle>

Указатель на временный файл

=back
	
Также пременная C<$_> содержит имя временного файла.

=item C<$target>

Значение этого параметра будет передано первым параметром функции C<$callback>.

=back

=back

=cut