Skip to content

Fix Nephology Server URL #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
dnbert wants to merge 6 commits into
base: master
Choose a base branch
from
Open

Fix Nephology Server URL #3

Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
7bf1177
Fixes url path for nephology
Jul 23, 2012
4969618
Process path for caste_rule & version update
Jul 25, 2012
34e9135
Updating nephology-client to be more concise with
Sep 18, 2012
152802e
Support for Discovery Mode
Oct 8, 2012
39683a0
Add HTTPS support; minor whitespace fixes
Dec 22, 2015
426307c
Merge pull request #1 from klausfiend/https
dnbert Dec 23, 2015
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
74 changes: 58 additions & 16 deletions nephology-client.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,39 +1,67 @@
#!/usr/bin/perl
#!/usr/bin/env perl

use strict;
use warnings;
use LWP;
use LWP::Simple;
use Getopt::Long;
use JSON;
use Try::Tiny;

my $version = 1;
my $version = 2;
my $work_to_do = 1;
my ($neph_server, $mac_addr) = undef;
my $check_certificate = 1;
my $proto = "https://";

# Get command line options
GetOptions(
'server|s=s' => \$neph_server,
'mac|m=s' => \$mac_addr,
'check-certificate!' => \$check_certificate,
);

print "Nephology Client version $version Startup\n\n";

my $Browser = LWP::UserAgent->new;
$Browser->agent('NephologyCient/' . $version . '(libwww-perl-' . $LWP::VERSION . ')');
# allow the use of self-signed certificates
if (!$check_certificate) {
$Browser->ssl_opts(verify_hostname => 0, SSL_verify_mode => 0x00);
}

while ($work_to_do == 1) {
my $nephology_commands = {};
print "Getting worklist from $neph_server for $mac_addr\n";
# Grab the worklist from the Nepology Server
my $Response = $Browser->get(
"http://" . $neph_server . "/nephology/install/" . $mac_addr,
$proto . $neph_server . "/install/" . $mac_addr,
'X-Nephology-Client-Version' => $version,
);
);

unless ($Response->is_success) {
print "No successful response, waiting for 5min before trying again\n";
sleep 300;
next;
# fallback to HTTP if HTTPS failed
if (!$Response->is_success) {
print "No valid HTTPS response from $neph_server, falling back to HTTP\n";
$proto = "http://";
$Response = $Browser->get(
$proto . $neph_server . "/install/" . $mac_addr,
'X-Nephology-Client-Version' => $version,
);
}

if (!$Response->is_success) {
if($Response->status_line =~ /^404/) {
my $ohai = `ohai`;
$Response = $Browser->post(
$proto . $neph_server . "/install/" . $mac_addr,
'Content-Type' => 'application/json; charset=utf-8',
'Content' => $ohai,
);
} else {
print "No successful response, waiting for 5min before trying again\n";
sleep 300;
next;
}
}

print "Got a response, processing...\n";
Expand All @@ -54,22 +82,36 @@
}

for my $reqhash (@{$nephology_commands->{'runlist'}}) {
print "Got command: " . JSON->new->utf8->encode($reqhash) . "\n";
print "Got command: " . $reqhash->{'description'} . "\n";

my $filename = "/tmp/deploy-" . $reqhash->{'id'};
my $url = $proto . "$neph_server/install/$mac_addr/" . $reqhash->{'id'};

if(-e $filename) {
system("rm $filename");
}

open(FILE, "+>", $filename);
chmod 0755, $filename;
my $output = get ($url);
print FILE $output;

system("bash $filename");
}

print "End of run. Waiting 10 seconds before continuing.\n";
print "End of run. Waiting for 10 seconds before continuing.\n";
sleep 10;
}

sub _check_dmidecode {
my $ohai = `ohai`;
my $json = JSON->new->utf8;
my $ohai = `ohai`;
my $json = JSON->new->utf8;

my $href = $json->decode($ohai);
my $href = $json->decode($ohai);

my $result = $href->{'dmi'}->{'system'}->{'product_name'};
chomp($result);
return $result;
my $result = $href->{'dmi'}->{'system'}->{'product_name'};
chomp($result);
return $result;
}

exit;