abonbot/modules/commands.pm

use Modern::Perl;
use utf8;

use Mojo::Base -strict, -async_await, -signatures;
use Data::Dumper;

our $client;
our $abon_client;
our $config;

sub __
{
  @_;
}

##############################################

our $commands = [
  {command=>"help", name=>__("Помощь"), description=>__("Список доступных команд"), hide_in_kb=>1},
  {command=>"info", name=>__("Информация"), description=>__("Информация о пользователе")},
  {command=>"balance", name=>__("Баланс"), description=>__("Проверка баланса")},
  {command=>"service", name=>__("Сервисы"), description=>__("Подключенные сервисы")},
  {command=>"credit", name=>__("Кредит"), description=>__("Установка кредита")},
  {command=>"transfer", name=>__("Перевод"), description=>__("Перевод денег")},
  {command=>"logout", name=>__("Выход"), description=>__("Выход")},
];

##############################################

sub command_help($fsa, $info)
{
  my @list = map { "<b>/$_->{command}</b> " . _($_->{description}) } @$commands;
  reply($info, join("\n", @list));
}

async sub command_logout
{
  my ($fsa, $info) = @_;
  
  my $uid = $fsa->note("uid");

  await $client->delete_p("client", "/client/$uid/telegram");
  reply($info, _("Благодарим за использование нашего бота"));

  $fsa->delete_note("uid");
  $fsa->state("logged_out");
}

async sub command_balance
{
  my ($fsa, $info) = @_;
  my $uid = $fsa->note("uid");

  my $money = await $abon_client->get_p($info, "client", "/client/$uid/money?human=1");
  my $cur = $money->{human};
  
  my @lines = (
    sprintf("<u>%s:</u> <b>%.2f $cur</b> (%s %.2f $cur + %s %.2f $cur) ",
      _("Ваш баланс"), $money->{balance}, ("депозит"), $money->{deposit}, _("кредит"), $money->{credit}),
  );
  
  push @lines, sprintf("<u>%s:</u> %s", _("Оплачено до"), format_date($money->{last_day})) if $money->{last_day} ne "-";
  push @lines, sprintf("<u>%s:</u> %d%%", _("Скидка"), $money->{reduction}) if $money->{reduction};

  push @lines, sprintf("<u>%s:</u> <b>%.2f $cur</b>  %s (%s)", 
    _("Последнее снятие"), $money->{last_withdrawal}->{sum}, format_time($money->{last_withdrawal}->{date}), $money->{last_withdrawal}->{comment})
    if $money->{last_withdrawal}->{sum};
  push @lines, sprintf("<u>%s:</u> <b>%.2f $cur</b>  %s", _("Последний платеж"), $money->{last_payment}->{sum}, format_time($money->{last_payment}->{date}))
    if $money->{last_payment}->{sum};

  for (keys %{ $money->{accounts} })
  {
    push @lines, sprintf("<u>%s:</u> <b>%.2f $cur</b>", $_, $money->{accounts}->{$_});
  }
    
  reply($info, @lines);
}

async sub command_info
{
  my ($fsa, $info) = @_;

  my $uid = $fsa->note("uid");
  my $client = await $abon_client->get_p($info, "client", "/client/$uid");
  say Dumper $client;
  reply($info, 
    sprintf("<u>%s</u>: %d", _("Лицевой счет"), $client->{uid}),
    sprintf("<u>%s</u>: %s", _("Логин"), $client->{login}),
    sprintf("<u>%s</u>: %s", _("ФИО"), $client->{fio}),
    sprintf("<u>%s</u>: %s", _("Адрес"), $client->{address}),
    sprintf("<u>%s</u>: %s", _("Телефон"), $client->{phone}),
  );
}

async sub command_credit
{
  my ($fsa, $info) = @_;
  my $uid = $fsa->note("uid");

  my $money = await $abon_client->get_p($info, "client", "/client/$uid/money?human=1");

  if ($money->{credit} > 0)
  {
    return reply($info, sprintf("%s <b>%.2f %s</b>", _("У вас уже установлен кредит"), $money->{credit}, $money->{human}));
  }
  
  reply_with($info, {
    inline_menu => [[
      { text=>_("Я согласен с условиями"), callback_data=>"\x00/set-credit" },
    ]],
  },
    _("Вы можете самостоятельно установить кредит на два дня"),
    _("<b>Ограничения</b>: только для физических лиц, продлевать кредит повторно до оплаты нельзя. При следующей оплате кредит будет погашен"),
  );
}

async sub callback_set_credit
{
  my ($fsa, $info) = @_;
  my $uid = $fsa->note("uid");

  my $res = await $abon_client->post_p($info, "client", "/client/$uid/credit", {human=>1});
  return reply($info, _("Кредит не имеет смысла для бесплатных тарифных планов")) if $res->{credit} == 0;
  
  await reply($info, 
    sprintf("%s <b>%.2f %s</b>", _("Установлен кредит "), $res->{credit}, $res->{human}), 
    "",
  );
  
  command_balance($fsa, $info);
}

async sub command_service
{
  my ($fsa, $info) = @_;
  my $uid = $fsa->note("uid");
  
  my $res = await $abon_client->get_p($info, "client", "/client/$uid/service?human=1&as-array=1");
  my @list = map { sprintf("<u>%s:</u> %s (%s '%s')", $_->{name_ru},  format_wd($_->{tariff}, $_->{human}), _("тариф"), $_->{tariff}->{name_ru}) } 
     grep { !$_->{disabled} } @$res;
  
  reply($info, @list);
};

async sub command_transfer
{
  my ($fsa, $info) = @_;
  reply($info, "Введите лицевой счет пользователя, которому вы хотите перевести деньги со своего счета");
  
  $fsa->delete_note("xfer_to");
  $fsa->delete_note("xfer_amount");
  $fsa->state("xfer_needs_uid");
}

async sub callback_transfer
{
  my ($fsa, $info) = @_;
  my $uid = $fsa->note("uid");
  
  my $to_uid = $fsa->note("xfer_to");
  my $amount = $fsa->note("xfer_amount");
  
  unless ($to_uid && $amount)
  {
    return reply($info, _("Произошла внутренняя ошибка"));
  }
  
  my $res = $abon_client->post_p($info, "client", "/client/$uid/money/to/$to_uid", {
     amount => $amount,
     ip => "0.0.0.0",
     via => "abonbot",
     currency => $config->{currency}->{name},
  });

  reply($info, _("Деньги успешно переведены"));
  command_balance($fsa, $info);
}

sub format_wd($rec, $cur)
{
  return _("бесплатно") if $rec->{dayly} == 0 && $rec->{monthly} == 0;

  my $m = sprintf("<b>%.2f $cur</b> %s", $rec->{monthly}, _("в месяц")) if $rec->{monthly} != 0;
  my $d = sprintf("<b>%.2f $cur</b> %s", $rec->{dayly}, _("в месяц")) if $rec->{dayly} != 0;

  return ("$m + $d") if $m && $d;
  return $m if $m;
  return $d if $d;  
}

################################################

sub parse_error
{
  my $e = shift;
  return $e unless ref $e;
  
  return "$e->{code} $e->{message} $e->{body}";
}

1;

# перевод денег
# локализация