diff options
Diffstat (limited to 'lib/LXRng/Web.pm')
| -rw-r--r-- | lib/LXRng/Web.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/LXRng/Web.pm b/lib/LXRng/Web.pm index 2ae3fa4..20ff899 100644 --- a/lib/LXRng/Web.pm +++ b/lib/LXRng/Web.pm @@ -821,6 +821,28 @@ sub generate_pdf { } +# Generate raw file for download + +sub generate_raw { + my ($query, $context, $template, $path) = @_; + + my $ver = $context->release; + my $rep = $context->config->{'repository'}; + my $node = $rep->node($path, $ver); + + die "No such file" unless $node; + + my $handle = $node->handle(); + print($query->header(-type => 'application/octet-stram', + -content_disposition => + "attachment; filename=$path")); + my $buf = ''; + while (sysread($handle, $buf, 65536) > 0) { + print($buf); + } +} + + sub handle { my ($self, $query) = @_; @@ -843,6 +865,9 @@ sub handle { elsif ($context->path =~ /^[+ ]print=(.*)/) { generate_pdf($query, $context, $template, $1); } + elsif ($context->path =~ /^[+ ]save=(.*)/) { + generate_raw($query, $context, $template, $1); + } else { if ($context->path =~ /^[+ ](search|code|ident|file|text|ambig)(?:=(.*)|)/) |