view release on metacpan or  search on metacpan

lib/Ginger/Reference/Request/IO/Mongrel2.pm  view on Meta::CPAN

        }
    }
    
    my $hash = decode_tnetstrings( $data );
    
    my $queryhash = 0;
    if( $hash && defined $hash->{'QUERY'} ) {
        $queryhash = url2hash( $hash->{'QUERY'} );
    }
    
    my $content_type = $hash->{'content-type'};
    
    if( $content_type && $content_type =~ m|^multipart/form-data; boundary=(.+)$| ) {
        my $bound = "--$1";#\r\n
        if( $hash->{'x-mongrel2-upload-start'} ) {
            if( ! $hash->{'x-mongrel2-upload-done'} ) {
                $type = "largepost_notice";#$hash->{'x-mongrel2-upload-start'};
                my $postid;
                if( $queryhash && ( $postid = $queryhash->{'postid'} ) ) {
                    # store off the temp file location with the postid so that it can be retrieved by a later status check
                    # TODO