Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Reading Raw data in CGI::Application

by andyford (Curate)
on Jan 04, 2007 at 21:18 UTC ( #593021=note: print w/replies, xml ) Need Help??

in reply to Reading Raw data in CGI::Application

I've been using the JSON header via CGI::Application::Plugin::JSON to send data from a CGI::Application webapp. Say you have a runmode called "blackout". Here's an untested sketch:

sub blackout { my $self = shift; my $message = 'hi!'; $self->header_add(-type=>"text/plain"); my $query = $self->query(); my $output = $query->start_html(); $output .= $query->span($message); $self->add_json_header(boStatus=>'OK'); $self->add_json_header(boError=>'SUCCESS'); $self->add_json_header(boMessage=>$message); $output .= $query->end_html; return $output; }
Notice the span tag: I couldn't find a way to get it working without putting someting in the body of the page, so I just stuck the message in there. Figured it would at least mean something if it ever got displayed by a browser.

Now on the other end, I'm using the prototype library to get the JSON out of the header.

I don't know how to do Ajax without prototype, so this is the best I can give you.

function tryJSON(app) { var url = '/cgi-bin/TryCGIApp.cgi'; var params = "mode=blackout"; new Ajax.Request(url, { onSuccess : function(resp,jsonheader) { var foo = jsonheader.boStatus; var funk = jsonheader.boError; alert("The response from the server is: " + foo + " and " ++ funk); }, onFailure : function(resp) { alert("Oops, there's been an error."); }, parameters : params }); }

I assume there's some way to reverse this process, with the javascript adding the JSON headers, but I haven't gotten that far yet...If you get it, please post!

Update:  explicitly mention CGI::Application::Plugin::JSON

non-Perl: Andy Ford

Replies are listed 'Best First'.
Re^2: Reading Raw data in CGI::Application
by derby (Abbot) on Jan 05, 2007 at 13:32 UTC

    ++ and thanks for the clue about CGI::Application::Plugin::JSON (I hadn't seen that). I've been using JSON but instead of header type text/plain, I've been using application/json (which is outlined in the rfc).

      Quick solution <if anybody still needed on sending json for runmode>
      sub send_json_data: Runmode { my $self = shift; $self->header_add(-type=>"application/json"); ... }
      OR refer this inside of CGI::Application::Plugin::JSON import() >> _send_headers() should take care of it.. though, its not taking care of for above runmode to return json data.
      sub _send_headers { my $self = shift; my $private = $self->param('__CAP_JSON') || {}; if( defined $private->{header} ) { $self->header_add( '-x-json' => $self->json_header_string ); } if( defined $private->{json_body} ) { $self->header_add('-type' => 'application/json'); } elsif ( defined $private->{json_callback} ) { $self->header_add('-type' => 'text/javascript'); } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://593021]
[oiskuu]: .oO(-: V is for Varoufakis :-)
[LanX]: shmem: but only because it is taught in school
LanX remembers one curriculum about benny and the punishment whe we didn't laugh ...hill

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2017-04-27 20:09 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (513 votes). Check out past polls.