#  $Id: wait_for_req.pm,v 1.7 2008/03/17 19:26:26 jonas Exp $  -*-cperl-*-
package Para::Frame::Action::wait_for_req;
#=====================================================================
#
# AUTHOR
#   Jonas Liljegren   <jonas@paranormal.se>
#
# COPYRIGHT
#   Copyright (C) 2005-2008 Jonas Liljegren.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#=====================================================================

use strict;

use Para::Frame::Utils qw( debug );

our $CNT;


=head1 NAME

Para::Frame::Action::wait_for_req - For internal pseudorequests

=head1 DESCRIPTION

Paranormal.se action for getting Apache info in
Para::Frame::Request->send_code()

=cut

sub handler
{
    my( $req ) = @_;

    my $q = $req->q;

    my $client = $q->param('req');

    my $oreq = $Para::Frame::REQUEST{ $client };

    unless( $oreq )
    {
	die "Could not find $client in Para::Frame::REQUEST hash!!!\n";
    }

    $oreq->{'active_reqest'} = $req;
    debug "Req $oreq->{reqnum} has active_reqest $req->{reqnum}";

    $req->{'wait'} ++;
    debug "Req $req->{reqnum} waits for $req->{'wait'} things";

    # Give a short quick response
    #
    my $page = "Done";
    $req->response->set_content( \$page );

    debug "Now waiting for release";

    return "";
}

1;