[LON-CAPA-cvs] cvs: modules /raeburn/register processform.pm

[raeburn]

raeburn		Fri Mar 10 16:49:30 2017 EDT

  Modified files:              
    /modules/raeburn/register	processform.pm 
  Log:
  - switch to Apache2/mod_perl2 calls.
  
  
Index: modules/raeburn/register/processform.pm
diff -u modules/raeburn/register/processform.pm:1.1 modules/raeburn/register/processform.pm:1.2
--- modules/raeburn/register/processform.pm:1.1	Sat Feb  4 01:04:58 2006
+++ modules/raeburn/register/processform.pm	Fri Mar 10 16:49:30 2017
@@ -3,9 +3,10 @@
 use strict;
 use APR::Brigade ();
 use APR::Bucket ();
-use Apache::Filter ();
+use Apache2::Connection ();
+use Apache2::Filter ();
                                                                               
-use Apache::Const -compile => qw(MODE_READBYTES);
+use Apache2::Const -compile => qw(MODE_READBYTES);
 use APR::Const    -compile => qw(SUCCESS BLOCK_READ);
                                                                               
 use constant IOBUFSIZE => 8192;
@@ -14,7 +15,7 @@
     my ($r,$postitems) = @_;
     my $buffer;
     my $data = &read_post($r);
-#    $r->read($buffer,$r->header_in('Content-length'),0);
+#    $r->read($buffer,$r->headers_in->{'Content-Length'},0);
 #    unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {
     my @pairs=split(/&/,$data);
     my $pair;
@@ -49,13 +50,13 @@
     my $r = shift;
   
     my $bb = APR::Brigade->new($r->pool,
-                                 $r->connection->bucket_alloc);
+                               $r->connection->bucket_alloc);
   
     my $data = '';
     my $seen_eos = 0;
     do {
-        $r->input_filters->get_brigade($bb, Apache::MODE_READBYTES,
-                                       APR::BLOCK_READ, IOBUFSIZE);
+        $r->input_filters->get_brigade($bb, Apache2::Const::MODE_READBYTES,
+                                       APR::Const::BLOCK_READ, IOBUFSIZE);
 
         for (my $b = $bb->first; $b; $b = $bb->next($b)) {
             if ($b->is_eos) {