WardenClientCommon.pm

#!/usr/bin/perl -w
#
# WardenClientCommon.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 WardenClientCommon;

use strict;
use Carp;
use SOAP::Lite;
use IO::Socket::SSL qw(debug1);
use SOAP::Transport::HTTP;

our $VERSION = "2.2";

#-------------------------------------------------------------------------------
# warnMsg - prints warning (to STDERR and/or Syslog) and returns 1
#-------------------------------------------------------------------------------
sub warnMsg
{
  my $msg = shift;

  # print warning to STDERR?
  if ($WardenClientConf::LOG_STDERR) {
    print STDERR $msg . "\n";  
  }

  # print warning to Syslog?
  if ($WardenClientConf::LOG_SYSLOG) {
    openlog("Warden-client:", "pid", "$WardenClientConf::LOG_SYSLOG_FACILITY");
    syslog("warn|$WardenClientConf::LOG_SYSLOG_FACILITY", $msg . "\n");
    closelog();
  }

  return 1;
} # end of warnMsg()


#-------------------------------------------------------------------------------
# errMsg - print error message and returns undef
#-------------------------------------------------------------------------------
sub errMsg
{
  my $msg = shift;
  
  # is Verbose logging mode enabled?
  if ($WardenClientConf::LOG_VERBOSE) { # user wants to log debug information
    $msg .= "\nStack info: " . Carp::longmess();
  }

  # log into STDERR?
  if ($WardenClientConf::LOG_STDERR) {
    print STDERR $msg . "\n";
  }

  # log into Syslog?
  if ($WardenClientConf::LOG_SYSLOG) {
    openlog("Warden-client:", "pid", "$WardenClientConf::LOG_SYSLOG_FACILITY");
    syslog("err|$WardenClientConf::LOG_SYSLOG_FACILITY", $msg . "\n");
    closelog();
  }

  return;
} # End of errMsg


#-------------------------------------------------------------------------------