From dcf54eacf740787469379acdbcfbaba4d20564b9 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Tue, 14 Aug 2012 15:42:26 +0200
Subject: [PATCH] marsadm: allow *-cluster only when kernel module unloaded

---
 userspace/marsadm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/userspace/marsadm b/userspace/marsadm
index 300438dd..125f317b 100644
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -351,6 +351,13 @@ sub nyi_cmd {
   die "command '$cmd' is not yet implemented\n";
 }
 
+sub is_module_loaded {
+  open TEST, "lsmod | grep mars |";
+  my $res = <TEST>;
+  close TEST;
+  return $res;
+}
+
 sub _create_cluster {
   my ($cmd) = @_;
   system("mkdir $mars") unless -d $mars;
@@ -366,6 +373,7 @@ sub _create_cluster {
 sub create_cluster {
   my ($cmd, $peer) = @_;
   die "cluster is already created\n" if !$force && -d "$mars/ips";
+  die "mars module is loaded, please unload first\n" if is_module_loaded();
   _create_cluster(@_);
 }
 
@@ -374,6 +382,7 @@ sub join_cluster {
   if(glob("$mars/resource-*") or glob("$mars/ips/*")) {
     die "Sorry, some resources already exist!\nThis is dangerous!\nIf you are sure that no resource clash is possible, re-invoke this command with '--force' option\n" unless $force;
   }
+  die "mars module is loaded, please unload first\n" if is_module_loaded();
   print "joining cluster via rsync (peer='$peer')\n";
   # check connection
   system("ssh $peer uname -a") == 0 or die "oops, no connection to $peer ...\n";