Thanks to all perlmonks for there help so far, but I have another problem.

I wrote two modules so that I could swap my code more easily from Apache::Request.pm to CGI.pm or back.

The problem at the moment is that the module returns variables entered into the command line but no variables posted from form data. Included below is the code for the module, the code that calls the module and an example of my form. 




#
# Apache::Request Buffer Module
#
package iXML::Buffer::Apache;

use strict;
use Apache;
use Apache::Request;
use Apache::Debug;
use CGI::Carp qw(fatalsToBrowser);

sub new {
 my $proto = shift;
 my $class = ref($proto) || $proto;
 my $self = {
  'r'  => Apache->request,
  'html' => undef,
  'redir' => undef,
 };
 bless($self, $class);

 $self->{apr} = Apache::Request->new(
  $self->{r},
 );

 return $self;
}

sub html {
 my ($self, $html) = @_;
 $self->{html} = $html;
}

sub redir {
 my ($self, $redir) = @_;
 $self->{redir} = $redir;
}

sub output {
 my $self = shift;

 if ($self->{redir}) {
  $self->{apr}->status(302);
  $self->{apr}->header_out('Location', $self->{redir});
  $self->{apr}->send_http_header('text/html');
  $self->{apr}->print($self->{html});
 }else{
  $self->{apr}->send_http_header('text/html');
  $self->{apr}->print($self->{html});
 }
}

sub param {
 my ($self) = shift;
 return $self->{apr}->param;
}

sub debug {
 my ($self) = shift;
 Apache::Debug::dump($self->{r}, 'SERVER RESPONSE');
}

1;

[download]




#
# Code that calls the buffer and requests params;
#

use strict;
use iXML::Buffer::Apache;

$Buffer = iXML::Buffer::Apache->new();
$Params = $Buffer->param;

[download]




#
# Sample form code (my script uses HTML::Template
# but I filled in the stuff that counts.
#

<form method="post" action="admin.pl?cmd=save&file=foobar" enctype="mu
+ltipart/form-data">
  <table width="100%" border="0" cellspacing="1" cellpadding="0" class
+="aplBodyC">
    <tr>
      <td colspan="2" class="apeHeadingCTS"><!-- tmpl_var name="headin
+g" --></td>
    </tr>
    <tr>
      <td nowrap class="apeListTitlesCTS" valign="top">page name</td>
      <td nowrap class="apeBodyCTS" width="100%" valign="top">
        <input type="text" name="page" class="apeFormObjectCTS" size="
+60" maxlength="60" value="<!-- tmpl_var escape=html name="frm_page" -
+->">
      </td>
    </tr>
    <tr>
      <td class="apeListTitlesCTS">save</td>
      <td class="apeBodyCTS" valign="top"><input type="submit" name="S
+ubmit" value="save changes" class="apeFormButtonCTS"></td>
    </tr>
  </table>
</form>

[download]

In reply to Returning form data with Apache::Request Buffer Module by IOrdy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.