Revision Navigation

Revision 396

Date:

2013/11/21 18:05:50

Author:

ahitrov

Revision Log:

Memory usage optimization during image anf binary store operations

Files:

Legend:

: Added
: Removed
: Modified

koi8/core/lib/Contenido/File.pm


225	225	syswrite $fh_tmp, $buffer, $size;
226	226
227	227	undef $fh_tmp;
	228	undef $buffer;
228	229
229	230	my $image_info = image_info($filename_tmp.'.'.$ext);
230	231	if ( !(ref $image_info && $image_info->{width} && $image_info->{height}) \|\| (ref $image_info && $image_info->{error}) ) {
…	…
501	502	syswrite $fh_tmp, $buffer, $size;
502	503
503	504	undef $fh_tmp;
	505	undef $buffer;
504	506
505	507	my $BINARY;
506	508	if ( store($filename.'.'.$ext, $filename_tmp.'.'.$ext) ) {

koi8/core/lib/Contenido/File/Scheme/FILE.pm


5	5
6	6	use Contenido::Globals;
7	7	use Data::Dumper;
	8	use IO::File;
8	9
9	10	sub store {
10	11	my $path = shift \|\| return;
11	12	my $fh = shift \|\| return;
12	13
13	14	local $/ = undef;
14
15		my $content = <$fh>;
16
17	15	make_dir_recursive($path);
18	16
19		unless (open FILE, ">$path") {
20		warn $!;
21		return;
	17	my $size = (stat $fh)[7];
	18	if ( $size < 10485760 ) {
	19	my $content = <$fh>;
	20	unless (open FILE, "> $path") {
	21	warn $!;
	22	return;
	23	}
	24	print FILE $content;
	25	close FILE;
	26	} else {
	27	my ($offset, $limit, $buff) = (0, 524288, undef);
	28	my $dst = new IO::File;
	29	unless ($dst->open("> $path")) {
	30	warn $!;
	31	return;
	32	}
	33	while ( $size ) {
	34	my $len = $size > $limit ? $limit : $size;
	35	$fh->sysread( $buff, $len, $offset );
	36	$dst->syswrite( $buff, $len, $offset );
	37	$offset += $len;
	38	$size -= $len;
	39	undef $buff;
	40	}
	41	undef $dst;
22	42	}
23	43
24		print FILE $content;
25		close FILE;
26
27	44	return 1;
28	45	}
29	46

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.