Byte::Apache2::RewriteURI

package Byte:::Apache2::RewriteURI;
  
use strict;
use warnings;
  
use Apache2::RequestRec ();
use Apache2::Const -compile => qw(DECLINED);
  
sub handler {
    my $r = shift;
    my $uri = $r->uri;
    my ($domain) = $uri =~ m!/protected/([^/]+\.[^/]+)/!/protected/domein/!;  # replace domain name by `domein` to be compat.
      
    if ($domain) {
        $r->pnotes("BYTE_URL_DOMAIN", $domain);  # save the matched domain for use in Byte::AuthCookieHandler2::custom_errors
        $r->uri($uri);
    }
      
    return Apache2::Const::DECLINED;  # make sure other handlers (mod_rewrite) get their turn
}
1;