...
Code Block | ||
---|---|---|
| ||
# # Example nas hangup # sub hangup_dell { my $self = shift; my ($NAS, $PORT, $attr) = @_; print print "Hangup!!!!\n"; return 0; } 1 |
Тестирование RADIUS
...
...
Code Block | ||
---|---|---|
| ||
# # Example nas hangup # sub hangup_dell { my $self = shift; my ($NAS, $PORT, $attr) = @_; print print "Hangup!!!!\n"; return 0; } 1 |
...