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

sub trim {
    my($string)=@_;
    for ($string) {
        s/^\s+//;
        s/\s+$//;
    }
    return $string;
}

my %config = (
.....
    # NoDeny MAC dopfield id
    'dopfield_id' => '4',
    # Other
    'now' => strftime("%s",localtime)
);

# Select All ip <-> Mac pair
$query="SELECT u.ip AS ip, d.field_value AS mac FROM users u, dopvalues d, (
                SELECT u.ip AS ip, MAX(d.revision) AS rev FROM users u, dopvalues d
                    WHERE u.id=d.parent_id AND d.dopfield_id=".$config{'dopfield_id'}."
                    GROUP BY ip
                ) AS tmp
            WHERE u.id=d.parent_id
            AND d.dopfield_id=".$config{'dopfield_id'}."
            AND u.ip=tmp.ip
            AND d.revision=tmp.rev
            AND TRIM(d.field_value) != ''";

($sth = $dbh->prepare($query)) or die $DBI::errstr;
($sth->execute) or die $DBI::errstr;

# Processing MySQL ip-mac pairs
while(($ip,$mac)=$sth->fetchrow){
    $ip=trim($ip); $mac=trim($mac);
    # Have New mac
    print "$ip -> $mac\n";

    # Adding pair into LDAP server
    # Что-то тут делаем

}
# End cycle