Skip to content
Snippets Groups Projects
Select Git revision
  • 014c009eaa8cb43ae4041b738ce5404d1a5ff9d9
  • master default protected
  • rednatco-v2
  • rednatco
  • test
  • ntc-tube-uniform-color
  • ntc-tube-missing-atoms
  • restore-vertex-array-per-program
  • watlas2
  • dnatco_new
  • cleanup-old-nodejs
  • webmmb
  • fix_auth_seq_id
  • update_deps
  • ext_dev
  • ntc_balls
  • nci-2
  • plugin
  • bugfix-0.4.5
  • nci
  • servers
  • v0.5.0-dev.1
  • v0.4.5
  • v0.4.4
  • v0.4.3
  • v0.4.2
  • v0.4.1
  • v0.4.0
  • v0.3.12
  • v0.3.11
  • v0.3.10
  • v0.3.9
  • v0.3.8
  • v0.3.7
  • v0.3.6
  • v0.3.5
  • v0.3.4
  • v0.3.3
  • v0.3.2
  • v0.3.1
  • v0.3.0
41 results

int-adjacency-graph.ts

Blame
  • WardenReg.pm 5.65 KiB
    #!/usr/bin/perl -w
    #
    # WardenReg.pm
    #
    # Copyright (C) 2011-2012 Cesnet z.s.p.o
    #
    # Use of this source is governed by a BSD-style license, see LICENSE file.
    
    package WardenReg;
    
    use strict;
    use SOAP::Lite;
    use IO::Socket::SSL qw(debug1);
    use SOAP::Transport::HTTP;
    
    our $VERSION = "2.0";
    
    
    #-------------------------------------------------------------------------------
    # errMsg - print error message and die
    #-------------------------------------------------------------------------------
    sub errMsg
    {
      my $msg = shift;
      die($msg . "\n");
    } # End of errMsg
    
    
    #-------------------------------------------------------------------------------
    # c2s - connect to server, send request and receive response
    #-------------------------------------------------------------------------------
    sub c2s 
    {
      my $uri               = shift;
      my $ssl_key_file      = shift;
      my $ssl_cert_file     = shift;
      my $ssl_ca_file       = shift;
      my $method            = shift;
      my $data              = shift;
      my $client;
    
      my ($server, $port, $service) = $uri =~ /https:\/\/(.+)\:(\d+)\/(.+)/;
      if (!($client = SOAP::Transport::HTTP::Client->new())) {
        errMsg("Sorry, unable to create socket: " . &SOAP::Transport::HTTP::Client::errstr)
      }
      $client->timeout(10);
      $client->ssl_opts(    verify_hostname     => 1,
                            SSL_use_cert        => 1,
                            SSL_verify_mode     => 0x02,
                            SSL_key_file        => $ssl_key_file,
                            SSL_cert_file       => $ssl_cert_file,
                            SSL_ca_file         => $ssl_ca_file);
    
      # set URI and serialize SOAP envelope and data object
      my $soap     = SOAP::Lite->uri($service)->proxy($uri);
      my $envelope = $soap->serializer->envelope(method => $method, $data);
    
      # set URI and send serialized SOAP envelope and data
      my $server_uri = "https://$server:$port/$service";
      my $result = $client->send_receive(envelope => $envelope, endpoint => $server_uri);
    
      # check server response
      if (!defined $result) {
        errMsg("Error: server returned empty response." . "\n" . "Problem with used SSL ceritificates or Warden server at $server:$port is down.");
      } else {
        # deserialized response from server -> create SOAP envelope and data object
        my $response = $soap->deserializer->deserialize($result);
        # check SOAP fault status
        $response->fault ? errMsg("Server sent error message:: " . $response->faultstring) : return 1;
      }