|< 1 2 3 4 >| | 39 Einträge, 4 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
my $http_accept_encoding = $ENV{'HTTP_ACCEPT_ENCODING'};
my $is_gzip = 0;
my $is_compress = 0;
if($http_accept_encoding)
{
if($http_accept_encoding eq "*") { $is_gzip = $is_compress = 1; }
else
{
foreach my $part (split(', ?', $http_accept_encoding))
{
my $enctype = "";
my $q = 0;
if(index($part, ";") > -1)
{
$part =~ m!^(\w+);\s*q\s*=\s*(.+?)\s*$!i;
$enctype = lc($1);
$q = $2;
}
else
{
$enctype = lc($part);
$q = 1;
}
if($q > 0)
{
if($enctype eq "compress") { $is_compress = $q; }
if($enctype eq "gzip") { $is_gzip = $q; }
}
}
}
}
|< 1 2 3 4 >| | 39 Einträge, 4 Seiten |