BlueCoat-SGOS

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

my $build = Module::Build->new(
	module_name       => 'BlueCoat::SGOS',
	license           => 'gpl2',
	dist_author       => 'Matthew Lange <mmlange@cpan.org>',
	dist_version_from => 'lib/BlueCoat/SGOS.pm',
	requires          => {
		'perl'                 => '5.6.0',
		'Date::Parse'          => '0',
		'Test::More'           => '0',
		'LWP::UserAgent'       => '6.00',    # requires ssl_opts
		'HTTP::Request'        => '6.00',
		'LWP::Protocol::https' => '0',
	},
	build_requires => {
		'TAP::Harness'     => '3.18',
		'Test::NoWarnings' => '1.04'
	},
	configure_requires => {'Module::Build' => 0.40},
	create_license     => 1,
	sign               => 1,
);

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Date::Parse" : "0",
            "HTTP::Request" : "6.00",
            "LWP::Protocol::https" : "0",
            "LWP::UserAgent" : "6.00",
            "Test::More" : "0",
            "perl" : "5.006000"
         }
      }
   },
   "release_status" : "stable",
   "version" : "1.05"
}

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: BlueCoat-SGOS
no_index:
  directory:
    - t
    - inc
requires:
  Date::Parse: 0
  HTTP::Request: 6.00
  LWP::Protocol::https: 0
  LWP::UserAgent: 6.00
  Test::More: 0
  perl: 5.006000
version: 1.05

Makefile.PL  view on Meta::CPAN

	(
		$ExtUtils::MakeMaker::VERSION >= 6.3002
		? ('LICENSE' => 'GPL_2')
		: ()
	),
	PL_FILES  => {},
	PREREQ_PM => {
		'Date::Parse'          => '0',
		'Test::More'           => '0',
		'LWP::UserAgent'       => '6.00',    # requires ssl_opts
		'HTTP::Request'        => '6.00',
		'LWP::Protocol::https' => '0',
	},
	BUILD_REQUIRES => {
		'TAP::Harness'     => '3.18',
		'Test::NoWarnings' => '1.04',
	},

	dist => {
		COMPRESS => 'gzip -9f',
		SUFFIX   => 'gz',

lib/BlueCoat/SGOS.pm  view on Meta::CPAN

package BlueCoat::SGOS;
use strict;
use warnings;
use Data::Dumper;
use Date::Parse;
use LWP::UserAgent;
require HTTP::Request;
use HTTP::Request::Common qw/POST/;

our %_URL = (
	'archconf_expanded'    => '/archconf_expanded.txt',
	'contentfilter_status' => '/ContentFilter/Status',
	'sysinfo'              => '/SYSINFO',
	'send_command' =>
	  '/Secure/Local/console/install_upload_action/cli_post_setup.txt'
);

our %defaults = (

lib/BlueCoat/SGOS.pm  view on Meta::CPAN

	if ($self->{'_debuglevel'} > 0) {
		print 'URLBASE=' . $self->{'_applianceurlbase'} . "\n";
		print 'Getting '
		  . $self->{'_applianceurlbase'}
		  . $_URL{'sysinfo'} . "\n";
	}
	if (!defined($self->{'_lwpua'})) {
		$self->_create_ua();
	}
	my $request =
	  HTTP::Request->new('GET',
		$self->{'_applianceurlbase'} . $_URL{'sysinfo'});
	$request->authorization_basic($self->{'_applianceusername'},
		$self->{'_appliancepassword'});
	my $response = $self->{'_lwpua'}->request($request);

	if ($response->is_error) {
		return 0;
	}
	else {
		$self->{'sgos_sysinfo'} = $response->content;