-sub parse_params {
- my ($self, $enable_upload) = @_;
-
- if ($self->{request_rec}) {
- my $cgi;
- if ($enable_upload) {
- $cgi = CGI->new($self->{request_rec});
- } else {
- # disable upload using empty upload_hook
- $cgi = CGI->new($self->{request_rec}, sub {}, undef, 0);
- }
- $self->{cgi} = $cgi;
- my $params = $cgi->Vars();
- return PVE::Tools::decode_utf8_parameters($params);
- } elsif ($self->{params}) {
- return $self->{params};
- } else {
- die "no parameters registered";
- }
-}
-
-sub get_upload_info {
- my ($self, $param) = @_;
-
- my $cgi = $self->{cgi};
- die "CGI not initialized" if !$cgi;
-
- my $pd = $cgi->param($param);
- die "unable to get cgi parameter info\n" if !$pd;
- my $info = $cgi->uploadInfo($pd);
- die "unable to get cgi upload info\n" if !$info;
-
- my $res = { %$info };
-
- my $tmpfilename = $cgi->tmpFileName($pd);
- die "unable to get cgi upload file name\n" if !$tmpfilename;
- $res->{tmpfilename} = $tmpfilename;
-
- #my $hndl = $cgi->upload($param);
- #die "unable to get cgi upload handle\n" if !$hndl;
- #$res->{handle} = $hndl->handle;
-
- return $res;
-}
-