Skip to content
Snippets Groups Projects
Commit 37d20c83 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

zmena verzovani

parent 11c4a20d
Branches
Tags
No related merge requests found
...@@ -35,6 +35,8 @@ use strict; ...@@ -35,6 +35,8 @@ use strict;
use Getopt::Std; use Getopt::Std;
use File::Basename; use File::Basename;
our $VERSION = "1.0";
my $warden_path = '/opt/warden-server'; my $warden_path = '/opt/warden-server';
require $warden_path . '/lib/WardenStatus.pm'; require $warden_path . '/lib/WardenStatus.pm';
my $filename = basename($0); my $filename = basename($0);
......
...@@ -35,7 +35,7 @@ use strict; ...@@ -35,7 +35,7 @@ use strict;
use Getopt::Std; use Getopt::Std;
use File::Basename; use File::Basename;
our $VERSION = "1.0.0"; our $VERSION = "1.0";
my $warden_path = '/opt/warden-server'; my $warden_path = '/opt/warden-server';
require $warden_path . '/lib/WardenStatus.pm'; require $warden_path . '/lib/WardenStatus.pm';
......
...@@ -36,6 +36,8 @@ use Getopt::Std; ...@@ -36,6 +36,8 @@ use Getopt::Std;
use Switch; use Switch;
use File::Basename; use File::Basename;
our $VERSION = "1.0";
my $warden_path = '/opt/warden-server'; my $warden_path = '/opt/warden-server';
require $warden_path . '/lib/WardenReg.pm'; require $warden_path . '/lib/WardenReg.pm';
my $filename = basename($0); my $filename = basename($0);
......
...@@ -36,6 +36,8 @@ use Getopt::Std; ...@@ -36,6 +36,8 @@ use Getopt::Std;
use Switch; use Switch;
use File::Basename; use File::Basename;
our $VERSION = "1.0";
my $warden_path = '/opt/warden-server'; my $warden_path = '/opt/warden-server';
require $warden_path . '/lib/WardenReg.pm'; require $warden_path . '/lib/WardenReg.pm';
my $filename = basename($0); my $filename = basename($0);
......
...@@ -36,6 +36,8 @@ use Getopt::Std; ...@@ -36,6 +36,8 @@ use Getopt::Std;
use Switch; use Switch;
use File::Basename; use File::Basename;
our $VERSION = "1.0";
my $warden_path = '/opt/warden-server'; my $warden_path = '/opt/warden-server';
require $warden_path . '/lib/WardenReg.pm'; require $warden_path . '/lib/WardenReg.pm';
my $filename = basename($0); my $filename = basename($0);
......
#!/usr/bin/perl #!/usr/bin/perl
#
# warden-alive
#
# Copyright (C) 2011 Cesnet z.s.p.o
# Author(s): Jan Mach <jan.mach@cesnet.cz>
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in
# the documentation and/or other materials provided with the
# distribution.
# 3. Neither the name of the Cesnet z.s.p.o nor the names of its
# contributors may be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# This software is provided ``as is'', and any express or implied
# warranties, including, but not limited to, the implied warranties of
# merchantability and fitness for a particular purpose are disclaimed.
# In no event shall the Cesnet z.s.p.o or contributors be liable for
# any direct, indirect, incidental, special, exemplary, or consequential
# damages (including, but not limited to, procurement of substitute
# goods or services; loss of use, data, or profits; or business
# interruption) however caused and on any theory of liability, whether
# in contract, strict liability, or tort (including negligence or
# otherwise) arising in any way out of the use of this software, even
# if advised of the possibility of such damage.
our $VERSION = "1.0";
my $rv = `ps aux | grep "/usr/bin/perl -w /opt/warden-server/bin/warden-server.pl" | grep -v grep | grep -v process-alive | wc -l`; my $rv = `ps aux | grep "/usr/bin/perl -w /opt/warden-server/bin/warden-server.pl" | grep -v grep | grep -v process-alive | wc -l`;
if ($rv) { if ($rv) {
......
...@@ -42,6 +42,8 @@ ...@@ -42,6 +42,8 @@
# among CSIRT teams # among CSIRT teams
### END INIT INFO ### END INIT INFO
VERSION="1.0"
DAEMON="/opt/warden-server/bin/warden-server.pl" DAEMON="/opt/warden-server/bin/warden-server.pl"
PID_FILE="/var/run/warden-server.pl.pid" PID_FILE="/var/run/warden-server.pl.pid"
LOCK_FILE="/var/lock/warden-server" LOCK_FILE="/var/lock/warden-server"
......
...@@ -36,7 +36,7 @@ package WardenConf; ...@@ -36,7 +36,7 @@ package WardenConf;
use strict; use strict;
our $VERSION = 100; our $VERSION = "1.0";
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# loadConf - load variables from configuration file # loadConf - load variables from configuration file
......
...@@ -38,7 +38,7 @@ use SOAP::Lite; ...@@ -38,7 +38,7 @@ use SOAP::Lite;
use IO::Socket::SSL qw(debug1); use IO::Socket::SSL qw(debug1);
use SOAP::Transport::TCP; use SOAP::Transport::TCP;
our $VERSION = 100; our $VERSION = "1.0";
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
......
...@@ -38,7 +38,7 @@ use SOAP::Lite; ...@@ -38,7 +38,7 @@ use SOAP::Lite;
use IO::Socket::SSL qw(debug1); use IO::Socket::SSL qw(debug1);
use SOAP::Transport::TCP use SOAP::Transport::TCP
our $VERSION = "1.0.0"; our $VERSION = "1.0";
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# errMsg - print error message and die # errMsg - print error message and die
......
...@@ -31,6 +31,7 @@ ...@@ -31,6 +31,7 @@
# otherwise) arising in any way out of the use of this software, even # otherwise) arising in any way out of the use of this software, even
# if advised of the possibility of such damage. # if advised of the possibility of such damage.
VERSION="1.0"
sqlite=`which sqlite3` sqlite=`which sqlite3`
db_file="/opt/warden-server/var/warden.db" db_file="/opt/warden-server/var/warden.db"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment