--- 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