/[Apache_czs]/czs.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /czs.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Fri Jan 12 10:15:00 2001 UTC revision 1.2 by dpavlin, Tue Jan 16 08:35:53 2001 UTC
# Line 3  package Apache::czs; Line 3  package Apache::czs;
3  use strict;  use strict;
4  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
5    
6  $VERSION = '0.02';  $VERSION = '0.03';
7    
8  use Apache::Constants qw(:common :response);  use Apache::Constants qw(:common :response);
9    
# Line 45  sub handler { Line 45  sub handler {
45                  $charset = "x-mac-roman";                  $charset = "x-mac-roman";
46          } elsif ($ENV{DO_MACCE}) {          } elsif ($ENV{DO_MACCE}) {
47                  $charset = "MacCE";                  $charset = "MacCE";
48          } elsif ($ua =~ m,Mac,i && $r->method eq 'GET') {          } elsif (!$ENV{DO_CZS} && $ua =~ m,Mac,i && $r->method eq 'GET') {
49                  my $uri;                  my $uri;
50                  if ($ua =~ m,MSIE,i) {                  if ($ua =~ m,MSIE,i) {
51                          $uri="/xmac";                          $uri="/xmac";
# Line 109  Apache::czs - does magic with Croatian c Line 109  Apache::czs - does magic with Croatian c
109  =head1 SYNOPSIS  =head1 SYNOPSIS
110    
111   PerlTransHandler Apache::czs::trans   PerlTransHandler Apache::czs::trans
112   <Location />   <Files ~ "\.htm" >
113   SetHandler perl-script   SetHandler perl-script
114   PerlModule Apache::czs   PerlModule Apache::czs
115   PerlHandler Apache::czs::handler   PerlHandler Apache::czs::handler
116   </Location>   </Files>
117    
118  =head1 DESCRIPTION  =head1 DESCRIPTION
119    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26