#!/usr/bin/perl

# These lines are eval()ed once for each new port. $p is initialized
# by rad-bulk-make to be an empty hashref. There is one for each
# individual port created.

# You should set values here that can be accessed from the template,
# in order to create the packets you want.

$p->{vlan1}    //= int(rand(1024));
$p->{vlan2}    //= int(rand(1024));
$p->{nasip}    //= "192.168.2." . int(rand(255));
$p->{nasid}    //= 'NAS-' . $p->{nasip};
$p->{ifid}     //= $p->{nasid} . ' eth 0/2/2:' . $p->{vlan1} 
. '.' . $p->{vlan2};
$p->{user}     //= $p->{ifid} . '@realm';