sub genip { return (10, 131, rand_int( 230, 255 ), rand_int( 1, 255 ) );} sub ipglue {return join'.', (@_ or ($ipa, $ipb, $ipc, $ipd))}

$config{'handler'}{'param'} = sub { return ('sockopts' => { 'LocalAddr' => ipglue() }); };

sub if_del { print "if del $ip\n"; print `ifconfig lo1 $ip -alias`; } $config{'handler'}{'create_bef'} = sub { ($ipa, $ipb, $ipc, $ipd) = genip(); $ip = ipglue(); print "if create $ip\n"; print `ifconfig lo1 alias $ip/32`; print "ok\n"; }; $config{'handler'}{'destroy'} = sub { my ($dc) = @_; if_del(); };