blob: b84cd7895b5e2ccd111f8a81fa3955030169dd0c (
plain) (
blame)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
--- MP3.pm.orig Mon Oct 6 16:06:10 2003
+++ MP3.pm Thu Jun 9 15:37:04 2005
@@ -5,11 +5,11 @@
BEGIN {
require mod_perl;
- require Apache::compat if $mod_perl::VERSION >= 1.99;
+ require Apache2::compat if $mod_perl::VERSION >= 1.99;
}
use Apache;
-use Apache::Constants qw(:common REDIRECT HTTP_NO_CONTENT DIR_MAGIC_TYPE HTTP_NOT_MODIFIED);
+use Apache::Constants qw(:common REDIRECT HTTP_NO_CONTENT HTTP_NOT_MODIFIED);
use Apache::MP3::L10N;
use IO::File;
use Socket 'sockaddr_in';
@@ -25,6 +25,8 @@
use constant DEBUG => 0;
+use constant DIR_MAGIC_TYPE => 'httpd/unix-directory';
+
# defaults:
use constant BASE_DIR => '/apache_mp3';
use constant STYLESHEET => 'apache_mp3.css';
@@ -75,7 +77,7 @@
}
END
-sub handler ($$) {
+sub handler : method {
my $class = shift;
my $obj = $class->new(@_) or die "Can't create object: $!";
return $obj->run();
@@ -415,14 +417,14 @@
my $self = shift;
my $dir = shift;
- unless ($self->r->path_info){
- #Issue an external redirect if the dir isn't tailed with a '/'
- my $uri = $self->r->uri;
- my $query = $self->r->args;
- $query = "?" . $query if defined $query;
- $self->r->header_out(Location => "$uri/$query");
- return REDIRECT;
- }
+# unless ($self->r->path_info){
+# #Issue an external redirect if the dir isn't tailed with a '/'
+# my $uri = $self->r->uri;
+# my $query = $self->r->args;
+# $query = "?" . $query if defined $query;
+# $self->r->header_out(Location => "$uri/$query");
+# return REDIRECT;
+# }
return $self->list_directory($dir);
}
|
