NAME

Net::Radius::Server::Dump - Produce a dump of the RADIUS packets

SYNOPSIS

  use Net::Radius::Base qw/:set/;
  use Net::Radius::Server::Dump;

  my $set = Net::Radius::Server::Dump->new
    ({
       basepath => '/var/log/radius-packets/',
       basename => 'packet-dump-',
       result => NRS_SET_DISCARD,
     });
  my $set_sub = $set->mk;

DESCRIPTION

Net::Radius::Server::Dump implements a simple debugging aid that dumps RADIUS packets into the basepath directory, using a file whose name is formed by the contatenation of the basename property and the current number of seconds and microseconds since the epoch.

basename defaults to 'packet-'. This method returns whatever is specified by the result property.

basepath is mandatory. This module will only be activated if this property is specified.

Please see Net::Radius::Server::Set(3) for more information.

EXPORT

None by default.

HISTORY

  $Log$
  Revision 1.3  2006/12/14 15:52:25  lem
  Fix CVS tags

SEE ALSO

Perl(1), Net::Radius::Server(3), Net::Radius::Server::Set(3).

AUTHOR

Luis E. Muñoz, <luismunoz@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Luis E. Muñoz

This library is free software; you can redistribute it and/or modify it under the same terms as Perl 5.8.6 itself.