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