авторизированые (всегда онлайн)

[0xbad0c0d3]

Эмм... Все делается одним запросом (если не учитывать вложенные запросы). Инфа о траффе берется самая "свежая". А так результат тот же.

[Cell]

Недостаток способа с вертушкой вижу в бессмысленных запросах к базе данных каждые 2 минуты и наличии лишнего демона. Гораздо интересней вариант с правкой скрипта, т.к. запрос будет всего один И ТОЛЬКО ТОГДА!!! когда это действительно нужно.

[Elisium]

Предлагаю такой вариант:

хм .. красиво сделано ...

п.с. +1 и спасибо )

[0xbad0c0d3]

Код:

#!/usr/bin/perl -w

use strict;
use DBI;

my $config = "/usr/local/nodeny/nodeny.cfg";
print "error: $!\n" if ! -e $config;
eval{require $config};
our($query,$traf_tbl,$dbh,$Db_name,$Db_server,$Db_user,$Db_pw);

my($sec,$min,$hour,$mday,$mon,$year) = localtime;
$traf_tbl=sprintf("x%dx%dx%d",$year+1900,$mon+1,$mday);
$query = <<QUERY;
INSERT INTO dblogin (mid,act,time)
        SELECT `users`.`id`,'17',UNIX_TIMESTAMP()
        FROM `users`
        LEFT JOIN `$traf_tbl` ON `users`.`id`=`$traf_tbl`.`mid`
        WHERE `in` > 0 AND `out` > 0 AND `$traf_tbl`.`time`>=%s AND `users`.`lstate`>0
QUERY
$dbh = DBI->connect("DBI:mysql:$Db_name:$Db_server",$Db_user,$Db_pw,{ PrintError => 1}) or die;
if ($ARGV[0] && $ARGV[0] eq "trigger"){
        print "Trigger\n";
        $query = sprintf($query,"NEW.time");
        $dbh->do("DROP TRIGGER IF EXISTS `tr_aoauth`");
        $dbh->do("CREATE TRIGGER `tr_aoauth` AFTER INSERT ON `traf_info` FOR EACH ROW BEGIN $query; END");
        exit;
}
$query = sprintf($query,"(SELECT time FROM traf_info ORDER BY time DESC LIMIT 1)");
print "error: $!\n" if $dbh->do($query) lt 0;
$dbh->disconnect;

Чутка приукрасил
Кому хочется отказаться от вертушки делать следующее:
Добавить запуск скрипта ежедневно по крону с параметром trigger
1 0 * * * /usr/bin/perl /path/to/script.pl trigger
!!!У пользователя, что гаходится в файле nodeny.cfg должна быть привилегия TRIGGER!!!

[0xbad0c0d3]

Тупанул. кто будет юзать замените:

Код:

$dbh->do("CREATE TRIGGER `tr_aoauth` AFTER INSERT ON `traf_info` FOR EACH ROW BEGIN $query; END");

на

Код:

$dbh->do("CREATE TRIGGER `tr_aoauth` AFTER INSERT ON `traf_info` FOR EACH ROW BEGIN IF NEW.cod=1 THEN $query; END IF; END");

[ser970]

Кому хочется отказаться от вертушки делать следующее:
Добавить запуск скрипта ежедневно по крону с параметром trigger
1 0 * * * /usr/bin/perl /path/to/script.pl trigger
!!!У пользователя, что гаходится в файле nodeny.cfg должна быть привилегия TRIGGER!!!

а не проще ли добавить в ядро?

[0xbad0c0d3]

Да можно конечо, но смотри обновляется у тебя биллинг и что? Заново добавлять? Пускай каждый себе выбирает способ.

[elite]

Да можно конечо, но смотри обновляется у тебя биллинг и что? Заново добавлять? Пускай каждый себе выбирает способ.

а он часто обновляется?

[0xbad0c0d3]

Ну я хз, а вдруг?

[stix]

не дождетесь 

[0xbad0c0d3]

Ну все! Тут не подкопаешся! )
Красивее не сделаешь!
nodeny.pl (50.32)

Код:

1953   $rows=0;
1954    foreach $i (1..8)
1955   {
1956       $rows=$dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if (!$rows && $IN[$i] gt 0 && $OUT[$i] gt 0);

Можно сократить до одной строки, еси контролировать по одному направлению

Код:

1953 $dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if ($IN[1] gt 0 && $OUT[1] gt 0);

[Александр (AleksHr)]

0xbad0c0d3,

Код:

  foreach $i (1..7)
   {
      next unless $IN[$i]+$OUT[$i];
      if( $ModTraf{$mId}{$i} )
      {  # платеж-опция указывает трафик направления $i перераспределить на направление 8
         $IN[8]+=$IN[$i];
$rows=0;
foreach $i (1..8)
{
$rows=$dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if (!$rows && $IN[$i] gt 0 && $OUT $i] gt 0);
         $IN[$i]=0;
         $OUT[8]+=$OUT[$i];
         $OUT[$i]=0;
      }
   }

Так не роботает, у меня ето именно такие строки.... лутчше напишы после каких строк и перед какими вставить.

[0xbad0c0d3]

Ну там кагбе видно. Ну ладно
перед строками:

Код:

foreach $i (1..8)
{
   next unless $IN[$i]+$OUT[$i];

Вставляешь:

Код:

$dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if ($IN[1] gt 0 && $OUT[1] gt 0);

получается:

Код:

$dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if ($IN[1] gt 0 && $OUT[1] gt 0);
foreach $i (1..8)
{
   next unless $IN[$i]+$OUT[$i];

Это если по одному направлению (в данном случае по 1-у)
А если по всем, то те же строки приведи к виду:

Код:

$rows=0;
foreach $i (1..8)
{
$rows=$dbh->do("INSERT INTO dblogin (mid,time,act) VALUES($id,UNIX_TIMESTAMP(),'17')") if (!$rows && $IN[$i] gt 0 && $OUT[$i] gt 0);
next unless $IN[$i]+$OUT[$i];

[Андрій]

в 49.32 не працює.

[Александр (AleksHr)]

в 49.32 не працює.

В мене працює все класно, те що на пост вище.