• HTML.pm

    535 536  
    247 247 # обрезает текст до нужной длины, предварительно удаляя html-теги (бывшая /inc/text_trim.msn)
    248 248 sub text_trim {
    249 249 my %opts = @_;
    250 my $text = $opts{'text'};
    250 my $text = Encode::decode('utf-8', $opts{'text'});
    251 251 my $length = $opts{'length'} || 200;
    252 my $ellipsis = $opts{'ellipsis'} || '…';
    252 my $ellipsis = Encode::decode('utf-8', $opts{'ellipsis'}) || '…';
    253 253 $text =~ s/<[^>]*>//g;
    254 254 if (length($text) > $length) {
    255 255 $text = substr($text, 0, $length);
    256 256 $text =~ s/\s+\S*$//;
    257 257 $text .= $ellipsis;
    258 258 }
    259 return $text;
    259 return Encode::encode('utf-8', $text);
    260 260 }
    261 261 # limit_words('text', { min_words => 70, max_words => 100, ending => '...' })
    262 262 sub limit_words {

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

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

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

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

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.