Resetting STDIN after r->read

[rodney Broom]

I've got this module that needs to redirect sometimes. In doing this, the
next request misses any POST data. I was playing with saving the data to
disk and then reloading it on the next request like this:

  if ($first_pass) {
    $r->read($data, ...);
    print TEMP_FILE, $data;
    return REDIRECT;
  }
  else {
    open(STDIN, "<$temp_file");
    $r->subprocess_env(CONTENT_LENGTH => -s $temp_file);
  }

The idea here is that normal packages like CGI won't have to know what's up
and my programmers won't have to work around this. But, when I get to the
script, STDIN is empty. Ay thouhts about how to handle this?

---
Rodney Broom
Programmer: Desert.Net