Revision 741 (by ahitrov, 2018/11/13 07:59:33) In-core e-mail system

package SQL::MailQueueTable;

use strict;
use base 'SQL::ProtoTable';

sub db_table
{
	return 'mailqueue';
}

sub db_id_sequence {
	return 'mailqueue_id_seq';
}

sub available_filters {
	my @available_filters = qw(	
					_class_filter
					_status_filter
					_in_id_filter
					_id_filter
					_name_filter
					_class_excludes_filter
					_sfilter_filter
					_datetime_filter
					_date_equal_filter
					_date_filter
				 	_previous_days_filter
					_prev_to_filter
					_next_to_filter
					_s_filter

					_excludes_filter
					_link_filter
				);
	return \@available_filters; 
}

# ----------------------------------------------------------------------------
# Свойства храним в массивах, потому что порядок важен!
# Это общие свойства - одинаковые для всех документов.
#
#   attr - обязательный параметр, название атрибута;
#   type - тип аттрибута, требуется для отображдения;
#   rusname - русское название, опять же требуется для отображения;
#   hidden - равен 1, когда 
#   readonly - инициализации при записи только без изменения в дальнейшем
#   db_field - поле в таблице
#   default  - значение по умолчанию (поле всегда имеет это значение)
# ----------------------------------------------------------------------------
sub required_properties
{
	my $self = shift;
	my $id_sequence = $self->db_id_sequence();
	return (
		{							# Идентификатор документа, сквозной по всем типам...
			'attr'		=> 'id',
			'type'		=> 'integer',
			'rusname'	=> 'Идентификатор документа',
			'hidden'	=> 1,
			'readonly'	=> 1,
			'auto'		=> 1,
			'db_field'	=> 'id',
			'db_type'	=> 'integer',
			'db_opts'	=> "not null default nextval('public.$id_sequence'::text)", 
		},
		{							# Класс документа...
			'attr'		=> 'class',
			'type'		=> 'string',
			'rusname'	=> 'Класс документа',
			'column'	=> 3,
			'hidden'	=> 1,
			'readonly'	=> 1,
			'db_field'	=> 'class',
			'db_type'	=> 'varchar(48)',
			'db_opts'	=> 'not null',
		},
		{
			'attr'		=> 'name',
			'type'		=> 'string',
			'rusname'	=> 'Получатель',
			'column'	=> 3,
			'db_field'	=> 'name',
			'db_type'	=> 'varchar(255)',
		},
		{
			'attr'		=> 'subject',
			'type'		=> 'string',
			'rusname'	=> 'Тема',
			'column'	=> 4,
			'db_field'	=> 'subject',
			'db_type'	=> 'varchar(255)',
		},
		{							# Время создания документа, служебное поле...
			'attr'		=> 'ctime',
			'type'		=> 'datetime',
			'rusname'	=> 'Время создания',
			'readonly'	=> 1,
			'auto'		=> 1,
			'hidden'	=> 1,
			'db_field'	=> 'ctime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{							# Время модификации документа, служебное поле...
			'attr'		=> 'mtime',
			'type'		=> 'datetime',
			'rusname'	=> 'Время модификации',
			'hidden'	=> 1,
			'auto'		=> 1,
			'db_field'	=> 'mtime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{							# Дата и время отправки...
			'attr'		=> 'dtime',
			'type'		=> 'datetime', 
			'rusname'	=> 'Отправить',
			'column'	=> 1,
			'db_field'	=> 'dtime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{
			'attr'		=> 'etime',
			'type'		=> 'datetime', 
			'rusname'	=> 'Отправлено',
			'column'	=> 2,
			'allow_null'	=> 1,
			'db_field'	=> 'etime',
			'db_type'	=> 'timestamp',
		},
		{							# Массив секций, обрабатывается специальным образом...
			'attr'		=> 'sections',
			'type'		=> 'sections_list',
			'rusname'       => 'Секции',
			'hidden'	=> 1,
			'db_field'	=> 'sections',
			'db_type'	=> 'integer',
		},
		{
			'attr'		=> 'status',
			'type'		=> 'status',
			'rusname'	=> 'Статус',
			'db_field'	=> 'status',
			'db_type'       => 'integer',
		},
	);
}

1;

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

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

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

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

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