VMPS::Server - VLAN Membership Policy Server
This package implements a VMPS server. For more information on VMPS itself, consult the Cisco web site:
http://www.cisco.com/
Version 0.04
package My::VMPSServer;
use base qw/VMPS::Server/;
sub vmps_request{ ... }
__PACKAGE__->run();
Child modules should implement the vmps_request method. The method should return a VMPS::Packet response object. The default behavior is to reject all requests. For more info, see VMPS::Packet.
sub vmps_request {
my ($this, $packet, $from_ip) = @_;
....
return $packet->reply(...);
}
The module listens on the "vqp" port (1589/udp), on all interfaces.
This module inherits its behavior from Net::Server. Sub-classes may implement any of the hooks/arguments from Net::Server in order to customize their behavior. For more information, see the documentation for Net::Server.
kevin brintnall, <kbrint at rufus.net>
The packet handling code is based on VQP spec documentation from the OpenVMPS project. For more information, see:
http://vmps.sourceforge.net/
Copyright 2008 kevin brintnall, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
