POST method with perl module

[Tobias Fink]

Good morning,

im trying to set up a tools module for my modperl environment.
My function get_vars should get all passed variables with the following
snipplet:

 if($ENV{'REQUEST_METHOD'} eq "GET"){
  $my_data = $ENV{'QUERY_STRING'};
 }
 else {
  $data_length = $ENV{'CONTENT_LENGTH'};
  $bytes_read = read(STDIN, $my_data, $data_length); (*)
 }

This works great in a function of a script.
If i put the code into a seperate module (which i use in my script), only
the GET method works, so i think there is a problem in the (*) line.

So, my question: How do i capture the POST variables from within a module.

Regards,

Tobias


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>