~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to t/filter/TestFilter/in_str_lc.pm

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

t/filter/TestFilter/in_str_lc.pm

3

3

use strict;

4

4

use warnings FATAL => 'all';

5

5

 

6

 

use Apache::RequestRec ();

7

 

use Apache::RequestIO ();

8

 

use Apache::Filter ();

9

 

 

10

 

use Apache::Const -compile => qw(OK M_POST);

 

6

use Apache2::RequestRec ();

 

7

use Apache2::RequestIO ();

 

8

use Apache2::Filter ();

 

9

 

 

10

use TestCommon::Utils ();

 

11

 

 

12

use Apache2::Const -compile => qw(OK M_POST);

11

13

 

12

14

sub handler {

13

15

    my $filter = shift;

17

19

        $filter->print(lc $buffer);

18

20

    }

19

21

 

20

 

    return Apache::OK;

 

22

    return Apache2::Const::OK;

21

23

}

22

24

 

23

25

sub response {

25

27

 

26

28

    $r->content_type('text/plain');

27

29

 

28

 

    if ($r->method_number == Apache::M_POST) {

29

 

        my $data = ModPerl::Test::read_post($r);

 

30

    if ($r->method_number == Apache2::Const::M_POST) {

 

31

        my $data = TestCommon::Utils::read_post($r);

30

32

        #warn "HANDLER READ: $data\n";

31

33

        $r->print($data);

32

34

    }

33

35

 

34

 

    Apache::OK;

 

36

    Apache2::Const::OK;

35

37

}

36

38

1;

37

39

__DATA__

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1