server nodeny {
    listen {
        type = auth
        ipaddr = *
        port = 1812
        limit {
            max_connections = 64
            lifetime = 0
            idle_timeout = 30
        }
    }
    listen {
        type = acct
        ipaddr = *
        port = 1813
    }

#  Authorization.
    authorize {
        #detail
        preprocess
        pap
        chap
        files
        perl
#        if((User-Name =~ /^.*%{Calling-Station-ID}.*$/i)){
#            update control {
#                &Auth-Type = 'Perl'
#            }
#        }
        if (ok || updated) {
            update control {
                Auth-Type := Perl
            }
        }

    }

#  Authentication.
    authenticate {
        Auth-Type Perl {
            perl
        }
        Auth-Type PAP {
            pap
        }
        Auth-Type CHAP {
            chap
        }
    }

#  Pre-accounting.  Decide which accounting type to use.
    preacct {
        acct_unique
        preprocess
    }

    accounting {
        attr_filter.accounting_response
        perl
    }

    session {
        radutmp
    }

# Post-Authentication
    post-auth {
        Post-Auth-Type REJECT {
            attr_filter.access_reject # pppoe
            perl #ipoe
        }
        perl
    }
}