RepoMirrors/mars
1
0
Fork 0
mirror of https://github.com/schoebel/mars synced 2025-02-27 18:10:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

added --version option to marsadm

Browse Source
This commit is contained in:
Ulrich Goettlich 2012-02-20 15:06:58 +01:00 committed by Thomas Schoebel-Theuer
parent 3a7cd7ec99
commit a09bf514a9
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
userspace/marsadm
View File

@ -1,20 +1,18 @@
#!/usr/bin/perl -w
# (c) 2010 Thomas Schoebel-Theuer / 1&1 Internet AG
# $Id$
use strict;
use English;
use warnings;
my $Id = "267700a8a877ad79bc9b86f17891c9d7bf6fa766";
my $mars = "/mars";
my $host = `uname -n` or die "cannot determine my network node name\n";
chomp $host;
my $force = 0;
my $ip = _get_ip() or die "cannot determine my IP address\n";
print "my IP is $ip\n";
umask 0077;
die "only root may use this tool\n" unless `whoami` eq "root\n"; # getpid() seems to be missing in perlfunc
##################################################################
@ -713,6 +711,7 @@ sub role_cmd {
}
}
##################################################################
my %cmd_table =
@ -784,6 +783,15 @@ foreach my $arg (@ARGV) {
}
my $cmd = shift @args || die "command argument is missing\n";
if($cmd eq "--version") {
print "$Id\n";
exit 0;
}
die "only root may use this tool\n" if $< != 0; # getpid() seems to be missing in perlfunc
print "my IP is $ip\n";
die "unknown command '$cmd'\n" if !exists $cmd_table{$cmd};
my $res = "";
@ -792,6 +800,7 @@ unless($cmd =~ m/^create-cluster$/) {
check_id($res);
}
print "using FORCE option -- hopefully you know what you do!\n" if $force;
sub do_res {