#!/usr/bin/perl
no utf8;
# Net::Radius test input
# Made with $Id: cisco-vpn3k-ar.p,v 1.1 2007/01/30 10:23:14 lem Exp $
$VAR1 = {
'packet' => ' D£D·2ú`{OAF”\'“<testÚà¯}¦§DS"ïèö[ ¡ÄG\'= ',
'secret' => '',
'description' => 'Cisco VPN-3000 Access-Request',
'authenticator' => '£D·2ú`{OAF”\'“<',
'identifier' => 3,
'dictionary' => undef,
'opts' => {
'secret' => '',
'description' => 'Cisco VPN-3000 Access-Request',
'output' => 'packets/cisco-vpn3k-ar',
'authenticator' => '£D·2ú`{OAF”\'“<',
'identifier' => 3,
'dont-embed-dict' => 1,
'dictionary' => [
'dicts/dictionary',
'dicts/dictionary.cisco.vpn3000'
],
'slots' => 4
},
'slots' => 4
};
syntax highlighted by Code2HTML, v. 0.9.1