equal
deleted
inserted
replaced
62 } |
62 } |
63 $absolute =~ m|^\Q$base/$DIR\E| or die "invalid path: [$absolute]"; |
63 $absolute =~ m|^\Q$base/$DIR\E| or die "invalid path: [$absolute]"; |
64 |
64 |
65 open F, '<', $absolute or die "Can't open '<', '$absolute': $!"; |
65 open F, '<', $absolute or die "Can't open '<', '$absolute': $!"; |
66 print header(-type => mimetype($absolute)); |
66 print header(-type => mimetype($absolute)); |
67 my ($buf, $res); |
67 if (request_method() ~~ [qw(GET POST)]) { |
68 print $buf while $res = read F, $buf, 32*2**10; |
68 my ($buf, $res); |
69 defined $res or die "Can't read: $!"; |
69 print $buf while $res = read F, $buf, 32*2**10; |
70 |
70 defined $res or die "Can't read: $!"; |
71 (my $dir = $relative) =~ s|/[^/]+$||; |
71 |
72 deletedir $dir if $dir =~ /-d$/; |
72 (my $dir = $relative) =~ s|/[^/]+$||; |
|
73 deletedir $dir if $dir =~ /-d$/; |
|
74 } |
73 exit 0; |
75 exit 0; |
74 |
76 |
75 } |
77 } |
76 |
78 |
77 # per view we have an own directory |
79 # per view we have an own directory |