14c14
< use Apache::Constants qw(:common);
---
> use Apache2::Const -compile => qw(:common);
24c24
< require '/home/httpd/twiki/setlib.cfg';
---
> require '/home/httpd/twiki/bin/setlib.cfg';
40,43c40,43
<            my $r = shift;
<            my $noguest = $r->dir_config("Access");
<            return DECLINED unless defined  $noguest;
<            return OK if lc($noguest) eq 'guest';
---
>             my $r = shift;
>           my $noguest = $r->dir_config("Access");
>             return Apache2::Const::DECLINED unless defined  $noguest;
>             return Apache2::Const::OK if lc($noguest) eq 'guest';
71c71
<           if ($accessOK) { return OK; }
---
>             if ($accessOK) { return Apache2::Const::OK; }
75c75
<      return FORBIDDEN;
---
>      return Apache2::Const::FORBIDDEN;