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

 
        host test1 { 
        hardware ethernet <dopdata-_mac>; 
        fixed-address 10.10.10.11; 
    }
 
        host test2 { 
        hardware ethernet <dopdata-_mac>; 
        fixed-address 10.10.10.12; 
    }

#!/usr/local/bin/perl -w

use strict;

while (<DATA>) {
    /^([0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}$/i && print $_, "\n";
}

__END__
Fa:1E:eE:A0:00:00
Fa:1E:eE:A0:GG:00
Fa:1E:eE:A0:000:00

<file>/usr/local/etc/dhcpd.conf</file>
<reload>/usr/local/etc/rc.d/isc-dhcpd restart</reload>
<template>1</template>

default-lease-time 600;
max-lease-time 7200;
ddns-update-style none;
#ignore client-updates;
log-facility local7; #

deny unknown-clients;


subnet 192.168.100.0 netmask 255.255.255.0
{
        option subnet-mask 255.255.255.0;
        option routers 192.168.100.1;
        option domain-name-servers свойднс, ещеднс;
<filtr net='192.168.100.0/24' dopdata-_mac='^..:..:..:..:..:..$'>
host <lat_login> {hardware ethernet <dopdata-_mac>; fixed-address <ip>;}
</filtr>
}
subnet 192.168.101.0 netmask 255.255.255.0
{
        option subnet-mask 255.255.255.0;
        option routers 192.168.101.1;
        option domain-name-servers свойднс, второйднс;
<filtr net='192.168.101.0/24' dopdata-_mac='^..:..:..:..:..:..$'>
host <lat_login> {hardware ethernet <dopdata-_mac>; fixed-address <ip>;}
</filtr>
}

^(?:[[:xdigit:]]{2}[-:]){5}[[:xdigit:]]{2}$