/ 
Net-BlueCoat-SGOS-0.90
/ Net::BlueCoat::SGOS

NAME

Net::BlueCoat::SGOS - A module to interact with Blue Coat SGOS-based devices.

VERSION

Version 0.90

SYNOPSIS

This module interacts with Blue Coat SGOS-based devices. Right now, this is limited to parsing of the 'sysinfo' data from the device.

use strict; #always!
use Net::BlueCoat::SGOS;
my $bc = Net::BlueCoat::SGOS->new(
	'appliancehost'		=> 'swg.example.com',
	'applianceport'		=> 8082,
	'applianceuser'		=> 'admin',
	'appliancepassword'	=> 'password'
);
$bc->login();
# or
# my $bc = Net::BlueCoat::SGOS->new();
# $bc->get_sysinfo_from_file('/path/to/file.sysinfo');

my $sgosversion = $bc->{'sgosversion'};
my $sgosreleaseid = $bc->{'sgosreleaseid'};
my $serialnumber = $bc->{'serialnumber'};
my $modelnumber = $bc->{'modelnumber'};
my $sysinfotime = $bc->{'sysinfotime'};

# Hardware section of the sysinfo file
my $hwinfo = $bc->{'sgos_sysinfo_sect'}{'Hardware Information'};

# Software configuration (i.e. show configuration)
my $swconfig = $bc->{'sgos_sysinfo_sect'}{'Software Configuration'};

SUBROUTINES/METHODS

Below are methods for Net::BlueCoat::SGOS.

new

Creates a new Net::BlueCoat::SGOS object. Can be passed one of the following:

appliancehost
applianceport
applianceusername
appliancepassword
applianceconnectmode (one of http or https)
debuglevel

login

Logs into the Blue Coat appliance using the parameters given when constructed.

get_sysinfo_from_file

Takes one parameter: the filename of a sysinfo file on the disk. Use this instead of logging in over the network.

$bc->get_sysinfo_from_file('sysinfo.filename.here');

Other Data

Other data that is directly accessible in the object:

Appliance Name:   $bc->{'appliance-name'}
Model Number:     $bc->{'modelnumber'}
Serial Number:    $bc->{'serialnumber'}
SGOS Version:     $bc->{'sgosversion'}
Release ID:       $bc->{'sgosreleaseid'}
Default Gateway:  $bc->{'ip-default-gateway'}

The details for interface 0:0 are stored here:
	IP address:   $bc->{'interface'}{'0:0'}{'ip'} 
	Netmask:      $bc->{'interface'}{'0:0'}{'netmask'} 
	MAC address:  $bc->{'interface'}{'0:0'}{'mac'} 
	Link status:  $bc->{'interface'}{'0:0'}{'linkstatus'} 
	Capabilities: $bc->{'interface'}{'0:0'}{'capabilities'} 

You can retrieve the interface names like this:
	my @interfaces = keys %{$bc->{'interface'}};

The route table can	be retrieved as follows:
	$bc->{'sgos_sysinfo_sect'}{'TCP/IP Routing Table'}

The static route table can be retrieved as follows:
	$bc->{'static-route-table'}

The WCCP configuration can be retrieved as follows:
	$bc->{'sgos_sysinfo_sect'}{'WCCP Configuration'}

AUTHOR

Matthew Lange <mmlange@cpan.org>

BUGS

Please report any bugs or feature requests through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-BlueCoat-SGOS. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Net::BlueCoat::SGOS

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright (C) 2008-2010 Matthew Lange.

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation.