--- czs.pm 2001/01/12 10:15:00 1.1 +++ czs.pm 2001/01/16 08:35:53 1.2 @@ -3,7 +3,7 @@ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = '0.02'; +$VERSION = '0.03'; use Apache::Constants qw(:common :response); @@ -45,7 +45,7 @@ $charset = "x-mac-roman"; } elsif ($ENV{DO_MACCE}) { $charset = "MacCE"; - } elsif ($ua =~ m,Mac,i && $r->method eq 'GET') { + } elsif (!$ENV{DO_CZS} && $ua =~ m,Mac,i && $r->method eq 'GET') { my $uri; if ($ua =~ m,MSIE,i) { $uri="/xmac"; @@ -109,11 +109,11 @@ =head1 SYNOPSIS PerlTransHandler Apache::czs::trans - + SetHandler perl-script PerlModule Apache::czs PerlHandler Apache::czs::handler - + =head1 DESCRIPTION