Lines Matching refs:filename
1617 push(@header,"Content-Disposition: attachment; filename=\"$attachment\"") if $attachment;
3590 my ($filename) = $header{'Content-Disposition'}
3591 =~/ filename=(("[^"]*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;
3593 $filename ||= ''; # quench uninit variable warning
3595 $filename =~ s/^"([^"]*)"$/$1/;
3604 # If no filename specified, then just read the data and assign it
3606 if ( ( !defined($filename) || $filename eq '' ) && !$multipart ) {
3625 # set the filename to some recognizable value
3626 if ( ( !defined($filename) || $filename eq '' ) && $multipart ) {
3627 $filename = "multipart/mixed";
3635 last if defined($filehandle = Fh->new($filename,$tmp,$PRIVATE_TEMPFILES));
3638 die "CGI.pm open of tmpfile $tmp/$filename failed: $!\n" unless defined $filehandle;
3659 &{$self->{'.upload_hook'}}($filename ,$data, $totalbytes, $self->{'.upload_data'});
3806 my($self,$filename) = self_or_default(@_);
3807 return $self->{'.tmpfiles'}->{$$filename}->{name} ?
3808 $self->{'.tmpfiles'}->{$$filename}->{name}->as_string
3815 my($self,$filename) = self_or_default(@_);
3816 return $self->{'.tmpfiles'}->{$$filename}->{info};
4272 my $filename;
4278 last if ! -f ($filename = sprintf("\%s${SL}CGItemp%d", $TMPDIRECTORY, $sequence++));
4280 # check that it is a more-or-less valid filename
4282 return unless $filename =~ m!^([a-zA-Z0-9_ \'\":/.\$\\\+-]+)$!;
4284 # $filename = $1;
4285 return bless \$filename;
6255 $filename = $q->param('field_name');
6258 name. Some browsers return the filename only. Others return the full
6270 $filename = $q->param('uploaded_file');
6271 $type = $q->uploadInfo($filename)->{'Content-Type'};
6289 $filename = $query->param('uploaded_file');
6290 $tmpfilename = $query->tmpFileName($filename);
6325 object, here it's the remote filename.
6330 my ($filename, $buffer, $bytes_read, $data) = @_;
6331 print "Read $bytes_read bytes of $filename\n";