cleanup
|
1 |
<% |
added branch long name featu...
|
2 |
# Git |
revert encoding support
|
3 |
my $git = app->git; |
added branch long name featu...
|
4 | |
fixed bug that raw page is e...
|
5 |
# Parameters |
cleanup
|
6 |
my $user = param('user'); |
7 |
my $project = param('project'); |
|
added branch long name featu...
|
8 |
my $rev_file = param('rev_file'); |
cleanup parse_rev_path
|
9 |
my ($rev, $file) = $git->parse_rev_path(app->rep_info($user, $project), $rev_file); |
added raw content rendering
|
10 |
|
cleanup blob and raw page an...
|
11 |
# Blob raw |
cleanup blob_raw
|
12 |
my $blob_raw = $git->blob_raw(app->rep_info($user, $project), $rev, $file); |
added raw content rendering
|
13 |
|
14 |
# Content type |
|
cleanup rep_info
|
15 |
my $type = $git->blob_content_type(app->rep_info($user, $project), $rev, $file); |
added raw content rendering
|
16 | |
17 |
# File name |
|
cleanup
|
18 |
my $file_name = $rev; |
19 |
if (defined $file) { $file_name = $file } |
|
20 |
elsif ($type =~ m/^text\//) { $file_name .= '.txt' } |
|
added raw content rendering
|
21 |
|
cleanup blob and raw page an...
|
22 |
# Content disposition |
remove provent_xss option
|
23 |
my $content_disposition = "inline; filename=$file_name"; |
added raw content rendering
|
24 |
|
cleanup blob and raw page an...
|
25 |
# Response |
added raw content rendering
|
26 |
$self->res->headers->content_disposition($content_disposition); |
27 |
$self->res->headers->content_type($type); |
|
added branch deleting featur...
|
28 |
$self->render(data => $blob_raw); |
cleanup
|
29 |
return; |
added branch deleting featur...
|
30 |
%> |