#!/usr/bin/perl
no utf8;
# Net::Radius test input
# Made with $Id: rsa-aa-01.p,v 1.3 2007/01/09 20:01:04 lem Exp $
$VAR1 = {
'packet' => ' 3rdKb6yˁPASSCODE Accepted
rcarpi01',
'secret' => undef,
'description' => 'RSA ACE/Server 6.0 [020] RADIUS (on Solaris 9) - Access-Accept',
'authenticator' => 'rdKb6yˁ',
'identifier' => 135,
'dictionary' => undef,
'opts' => {
'output' => 'packets/rsa-aacr-01',
'description' => 'RSA ACE/Server 6.0 [020] RADIUS (on Solaris 9) - Access-Accept',
'authenticator' => 'rdKb6yˁ',
'identifier' => 135,
'dont-embed-dict' => 1,
'dictionary' => [
'dicts/dictionary'
],
'slots' => 2
},
'slots' => 2
};
syntax highlighted by Code2HTML, v. 0.9.1