oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleaning up some imports

Browse source
This commit is contained in:
Graham Knop 2008-11-24 04:00:46 +00:00
parent 8fb275850c
commit d9c1f88eab
8 changed files with 57 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Asset/File.pm
View file

@ -21,8 +21,6 @@ use WebGUI::Cache;
use WebGUI::Storage;
use WebGUI::SQL;
use WebGUI::Utility;
use FileHandle;
=head1 NAME
@ -536,15 +534,12 @@ sub www_edit {
sub exportHtml_view {
my $self = shift;
my $path = $self->getStorageLocation->getPath($self->get('filename'));
my $fh = eval { FileHandle->new($path) };
defined($fh) or return "";
binmode $fh or ($fh->close, return "");
my $block;
while (read($fh, $block, 16384) > 0) {
$self->session->output->print($block, 1);
}
$fh->close;
return 'chunked';
open my $fh, '<:raw', $path or return "";
while ( read $fh, my $block, 16384 ) {
$self->session->output->print($block, 1);
}
close $fh;
return 'chunked';
}
#--------------------------------------------------------------------