/ 
Apache2-ASP-2.36
River stage zero No dependents
/ Apache2::ASP::Request

#============================================================================== sub FileUpload { my ($s, $field, $arg) = @_;

confess "Request.FileUpload called without arguments"
  unless defined($field);

my $cgi = $s->context->cgi;

my $ifh = $cgi->upload($field);
my %info = ();
my $upInfo = { };

if( $cgi->isa('Apache2::ASP::SimpleCGI') )
{
  no warnings 'uninitialized';
  %info = (
    ContentType           => $cgi->upload_info( $field, 'mime' ),
    FileHandle            => $ifh,
    BrowserFile           => $s->Form->{ $field } . "",
    'Content-Disposition' => 'attachment',
    'Mime-Header'         => $cgi->upload_info( $field, 'mime' ),
  );
}
else
{
  $upInfo = $cgi->uploadInfo( $ifh );
  no warnings 'uninitialized';
  %info = (
    ContentType           => $upInfo->{'Content-Type'},
    FileHandle            => $ifh,
    BrowserFile           => $s->Form->{ $field } . "",
    'Content-Disposition' => $upInfo->{'Content-Disposition'},
    'Mime-Header'         => $upInfo->{type},
  );
}# end if()

if( wantarray )
{
  return %info;
}
else
{
  if( $arg )
  {
    return $info{ $arg };
  }
  else
  {
    return $ifh;
  }# end if()
}# end if()

}# end FileUpload()

NAME

Apache2::ASP::Request - Incoming request object.

SYNOPSIS

my $form_args = $Request->Form;

my $querystring = $Request->QueryString;

my $cookies = $Request->Cookies;

my $cookie = $Request->Cookies('name');

my $vars = $Request->ServerVariables;

my $var = $Request->ServerVariables('HTTP_HOST');

DESCRIPTION

The request represents a wrapper around incoming form, querystring and cookie data.

PUBLIC METHODS

ServerVariables( [$name] )

If called with no arguments, returns %ENV. If called with an argument, returns $ENV{$name} where $name is the value of the argument.

Cookies( [$name] )

If called with no arguments, returns a hash of all cookies. Otherwise, returns the value of the cookie named $name.

PUBLIC PROPERTIES

Form

Returns a hashref of all querystring and form data.

QueryString

Returns the querystring portion of the current request.

BUGS

It's possible that some bugs have found their way into this release.

Use RT http://rt.cpan.org/NoAuth/Bugs.html?Dist=Apache2-ASP to submit bug reports.

HOMEPAGE

Please visit the Apache2::ASP homepage at http://www.devstack.com/ to see examples of Apache2::ASP in action.

AUTHOR

John Drago <jdrago_999@yahoo.com>

COPYRIGHT

Copyright 2008 John Drago. All rights reserved.

LICENSE

This software is Free software and is licensed under the same terms as perl itself.