Биллинговая система Nodeny

    {
        $actions .= $Url->a('Передать', %url, act=>'cards_move_step1');
        foreach my $act(
            [ good  => 'В работу'],
            [ stock => 'На склад'],
            [ bad   => 'Блокировать'],
        ){
            $actions .= '   '.$Url->a($act->[1], %url, act=>'cards_change_alive', alive=>$act->[0]);
        }
## My add
       $actions .=  '   '.$Url->a('Експорт', %url, act=>'cards_export_csv');
## My end
    }

 my %subs = (
    dontshowmess	=> 1,    # удалить сообщение для админа от суперадмина
    cards_move_step1	=> 1,    # выбор администратора для передачи
    cards_move_step2	=> 1,    # непосредственная передача карточек
    cards_move_accept	=> 1,    # подтверждение передачи карточек принимающим админом
    cards_change_alive	=> 1,    # смена состояния карточек (на складе/можно активировать/заблокированы)
## My add
    cards_export_csv 	=> 1,    # Експорт карточек в csv
## My end
    del_ses_data		=> 1,
 );

## My add
sub cards_export_csv
{
 my($Url) = @_;
 my $cards = cards_move_preload();
 my $list = '';
  #Запрашиваем идентификатор, активационный код, стоимость карточки, уже отформатированную дату создания и уже отформатированную дату конечного срока активации 
 my $db = Db->sql("SELECT `cid` , `cod` , `money` , FROM_UNIXTIME( `tm_create` , '%d.%m.%Y' ) as tm_create, FROM_UNIXTIME( `tm_end` , '%d.%m.%Y' ) as tm_end FROM `cards` WHERE cid>=? AND cid<=?", $cards->{start}, $cards->{end},);
 while( my %p = $db->line )
 {
   $list.="$p{cid}&nbsp;$p{cod}&nbsp;$p{money}&nbsp;$p{tm_create}&nbsp;$p{tm_end}<br>";
 }
 $list or Error('Нет ни одной карточки пополнения счета на експорт.');
 my  $OUT="Content-Type: application/octet-stream\n".
 "Content-Disposition: attachment; filename=nocards.txt\n\n".
 "$list";
 print ($OUT);
 exit;
}
## My end
1;

show create table cards;

| cards | CREATE TABLE `cards` (
  `cid` int(10) unsigned NOT NULL AUTO_INCREMENT,
  `cod` tinytext CHARACTER SET cp1251 NOT NULL,
  `money` float(6,2) NOT NULL DEFAULT 0.00,
  `tm_create` int(11) unsigned NOT NULL DEFAULT 0,
  `tm_end` int(11) unsigned NOT NULL DEFAULT 0,
  `tm_activate` int(11) unsigned NOT NULL DEFAULT 0,
  `tm_move` int(11) unsigned DEFAULT 0,
  `adm_create` mediumint(8) unsigned NOT NULL DEFAULT 0,
  `alive` enum('good','bad','stock','activated') NOT NULL DEFAULT 'good',
  `uid_activate` int(10) unsigned NOT NULL DEFAULT 0,
  `adm_owner` mediumint(9) unsigned NOT NULL DEFAULT 0,
  `adm_move` mediumint(8) unsigned NOT NULL DEFAULT 0,
  PRIMARY KEY (`cid`),
  KEY `r` (`adm_owner`),
  KEY `adm_move` (`adm_move`),
  KEY `adm_move_2` (`adm_move`)
) ENGINE=InnoDB AUTO_INCREMENT=160058 DEFAULT CHARSET=utf8 COMMENT='rev_0' |

if( $cid_end && ($ok - $cid_end) != 1 )

if( 0 )

[mysqld]
auto_increment_increment=1
wsrep_auto_increment_control=off

auto_increment_increment=3