Чтобы это профиксить, нужно в Dv.pm после строки
Код: Выделить всё
my $EXPITE_DATE = strftime( "%Y-%m-%d", localtime(time + 86400 * $tariffs->{AGE}) );
Код: Выделить всё
my $ACTDATE = strftime( "%Y-%m-%d", localtime(time) );
Код: Выделить всё
$user->change($attr->{UID}, { EXPIRE => $EXPITE_DATE, UID => $attr->{UID} });
Код: Выделить всё
$user->change($attr->{UID}, { EXPIRE => $EXPITE_DATE, ACTIVATE => $ACTDATE, UID => $attr->{UID} });