Пошаговое осваивание фреймворка ABillS

use Example; # Загрузить файл /usr/abills/Abills/mysql/Example.pm
my $Example = Example->new($db, $admin, \%conf); # Создать объект менеджера

#**********************************************************
=head2 entity_example_main()
 
=cut
#**********************************************************
sub entity_example_main{
  # Хеш для переменных шаблона объявляется в области видимости функции
  my %template_args = ();
 
  # Флаг отображения шаблона
  my $show_template = $FORM{add_form} || 0;
 
  # Здесь используется глобальный хеш %FORM, 
  # который доступен в глобальной области видимости
  # и включает значения, полученные из GET или POST запроса.
  if ($FORM{add}) {
    $Example->entity_add({%FORM});
    $show_template = !show_result($Example, $lang{ADDED});
  }
  elsif ($FORM{change}) {
    $Example->entity_change({%FORM});
    show_result($Example, $lang{CHANGED});
    $show_template = 1;
  }
  elsif ($FORM{chg}) {
    my $entity_info = $Example->entity_info($FORM{chg});
    if (!_error_show($Entity)) {
      %template_args = %{$entity_info};
      $show_template = 1;
    }
  }
  elsif ($FORM{del} && $FORM{COMMENTS}) {
    $Example->entity_del({ ID => $FORM{del}, COMMENTS => $FORM{COMMENTS} });
    show_result($Example, $lang{DELETED});
  }
 
  # Использование этой точки выхода
  # позволяет использовать эту же функцию
  # только для выполнения операции (например AJAX запросом)
  return 1 if $FORM{MESSAGE_ONLY};
 
  # Здесь собрана логика обработки данных для отображения шаблона  
  if ($show_template) {
    # Отображение шаблона
    $html->tpl_show(
      _include('example_entity', 'Example'),
      {
        %TEMPLATE_ARGS,
        %FORM,
        SUBMIT_BTN_ACTION => ($FORM{chg}) ? 'change' : 'add',
        SUBMIT_BTN_NAME   => ($FORM{chg}) ? $lang{CHANGE} : $lang{ADD},
      }
    );
  }
 
  # Использование этой точки выхода
  # позволяет использовать эту же функцию
  # для отображения шаблона изменения внутри модального окна
  return 1 if ($FORM{TEMPLATE_ONLY});
 
  # Использование библиотеки Abills::ResultFormer
  # для получения списка из БД (метод $Example->entities_list($attr)) и построения таблицы (Abills::HTML->table($attr))
  my Abills::HTML $table;
  ($table) = result_former(
    {
      INPUT_DATA      => $Example,
      FUNCTION        => 'entities_list',
      BASE_FIELDS     => 0,
      DEFAULT_FIELDS  => 'ID,NAME,VALUE',
      FUNCTION_FIELDS => 'change,del',
      SKIP_USER_TITLE => 1,
      EXT_FIELDS      => 0,
      EXT_TITLES      => {
        id             => '#',
        name           => $lang{NAME},
        value          => $lang{VALUE},
      },
      TABLE => {
        width   => '100%',
        caption => $lang{ENTITY},
        ID      => 'ENTITIES_TABLE',
        EXPORT  => 1,
        MENU    => "$lang{ADD}:index=$index&add_form=1:add"
      },
      MAKE_ROWS     => 1,
      SEARCH_FORMER => 1,
      MODULE        => 'Example',
    }
  );
 
  # Таблицу нужно выводить отдельно
  print $table->show();
 
  # Сообщаем движку, что функция завершилась нормально
  return 1;
}

#**********************************************************
=head2 new($db, $admin, \%conf) - Constructor for Example
 
=cut
#**********************************************************
sub new{
  my ($class, $db, $admin, $CONF) = @_;
  my $self = {
    db    => $db,
    admin => $admin,
    conf  => $CONF
  };
 
  bless($self, $class);
  return $self;
}

$self->query("SELECT * FROM example_entity");

$self->query("SELECT * FROM example_entity", undef, { COLS_NAME => 1 })

$self->query("SELECT id,name FROM example_entity", undef, { LIST2HASH => 'id,name' });

$self->query("SELECT * FROM example_entity", undef, { COLS_NAME => 1, COLS_UPPER => 1 })

#!/usr/bin/perl
=head1 NAME

 Hello  world

=cut

use strict;
use warnings;

# Включение нужных путей
BEGIN {
  our $libpath = '../';
  my $sql_type = 'mysql';
  unshift(@INC,
    $libpath . "Abills/$sql_type/",
    $libpath . "Abills/modules/",
    $libpath . '/lib/',
    $libpath . '/Abills/',
    $libpath
  );
}

# Модуль конфигурации
use Conf;
our (
  $libpath,
  %conf,
  %lang,
  $base_dir,
);

# конфигурационный файл
do "../libexec/config.pl";

# HTML визуализация
use Abills::HTML;
my $html = Abills::HTML->new(
  {
    IMG_PATH => 'img/',
    NO_PRINT => 1,
    CONF     => \%conf,
    CHARSET  => $conf{default_charset},
  }
);

# Подключение базы
use Abills::SQL;
my $db = Abills::SQL->connect($conf{dbtype}, $conf{dbhost}, $conf{dbname}, $conf{dbuser}, $conf{dbpasswd}, {
  CHARSET => ($conf{dbcharset}) ? $conf{dbcharset} : undef
});

# Включение базовых словарей
if($html->{language} ne 'english') {
  do $libpath . "/language/english.pl";
}

if(-f $libpath . "/language/$html->{language}.pl") {
  do $libpath."/language/$html->{language}.pl";
}

# Подключение модуля работы с шаблонами 
require Abills::Templates;

# Включение конфигурационного файла
Conf->new($db, undef, \%conf);

$html->{METATAGS} = templates('metatags_client');

print $html->header();

# Диалоговое окно приветсвия
print $html->message('info', $lang{INFO}, "Hello world\nSystem name '$conf{WEB_TITLE}'");

1;