* Updated notes with working pcs config example (enable, disable and migrate all work!)

* Minor fix to ocf/alteeve/server to not print anything except the XML meta information when requested

Signed-off-by: Digimer <digimer@alteeve.ca>

notes

@@ -500,13 +500,14 @@ pcs cluster setup --name m3-anvil-01 m3-a01n01 m3-a01n02
 pcs cluster start --all
 pcs stonith create virsh_node1 fence_virsh pcmk_host_list="m3-a01n01" ipaddr="192.168.122.1" passwd="secret" login="root" delay="15" port="m3-a01n01" op monitor interval="60"
 pcs stonith create virsh_node2 fence_virsh pcmk_host_list="m3-a01n02" ipaddr="192.168.122.1" passwd="secret" login="root" port="m3-a01n02" op monitor interval="60"
+pcs property set stonith-enabled=true
 
 pcs resource create hypervisor systemd:libvirtd op monitor interval=60
 pcs resource clone hypervisor clone-max=2 notify="false" 
 
-pcs resource create drbd systemd:drbd op monitor interval=60
+pcs resource create test_server ocf:alteeve:server name="test_server" op monitor interval="60"
-pcs resource clone drbd clone-max=2 notify="false"
 
+# Test
 stonith_admin --fence m3-a01n02 --verbose; crm_error $?
 
 
@@ -1094,8 +1095,4 @@ sleep 30
 
 pcs stonith create fence-virsh fence_virsh ipaddr=192.168.100.1 login=root passwd=christine pcmk_host_map="amy:rhel8-1;anna:rhel8-2;clara:rhel8-3;fanny:rhel8-4"
 
-pcs property set stonith-enabled=true
+
-pcs resource create dlm ocf:pacemaker:controld op monitor interval=60s on-fail=fence clone meta interleave=true clone-node-max=1 ordered=true
-pcs resource create lvmlock ocf:heartbeat:lvmlockd op monitor interval=60s on-fail=fence clone meta interleave=true
-pcs constraint order start dlm-clone then lvmlock-clone
-pcs constraint colocation add lvmlock-clone with dlm-clone

ocf/alteeve/server

@@ -132,6 +132,14 @@ if ($anvil->data->{environment}{PCMK_debug})
 # Get any command line switches.
 $anvil->Get->switches;
 
+
+# Something for the logs
+if ((not $anvil->data->{switches}{metadaata}) and (not $anvil->data->{switches}{'meta-data'}))
+{
+	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 3, key => "log_0298"});
+}
+
+
 ### TEST: to be removed later
 if ($anvil->data->{switches}{test1})
 {
@@ -140,7 +148,7 @@ if ($anvil->data->{switches}{test1})
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_on_node}        = "el8-a01n01.digimer.ca";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source} = "el8-a01n01.digimer.ca";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target} = "el8-a01n02.digimer.ca";
-	print "Running test 1; Migrate: [".$anvil->data->{environment}{OCF_RESKEY_name}."] from: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source}."] to: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target}."]\n";
+	#print "Running test 1; Migrate: [".$anvil->data->{environment}{OCF_RESKEY_name}."] from: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source}."] to: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target}."]\n";
 }
 if ($anvil->data->{switches}{test2})
 {
@@ -149,26 +157,21 @@ if ($anvil->data->{switches}{test2})
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_on_node}        = "el8-a01n02.digimer.ca";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source} = "el8-a01n02.digimer.ca";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target} = "el8-a01n01.digimer.ca";
-	print "Running test 2; Migrate: [".$anvil->data->{environment}{OCF_RESKEY_name}."] from: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source}."] to: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target}."]\n";
+	#print "Running test 2; Migrate: [".$anvil->data->{environment}{OCF_RESKEY_name}."] from: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_source}."] to: [".$anvil->data->{environment}{OCF_RESKEY_CRM_meta_migrate_target}."]\n";
 }
 if ($anvil->data->{switches}{test3})
 {
-	$anvil->data->{switches}{start}                          = "#!set!#";
 	$anvil->data->{environment}{OCF_RESKEY_name}             = "test_server";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_on_node} = "el8-a01n01.digimer.ca";
-	print "Running test 3; Boot: [".$anvil->data->{environment}{OCF_RESKEY_name}."] locally.\n";
+	#print "Running test 3; Boot: [".$anvil->data->{environment}{OCF_RESKEY_name}."] locally.\n";
 }
 if ($anvil->data->{switches}{test4})
 {
-	$anvil->data->{switches}{stop}                           = "#!set!#";
 	$anvil->data->{environment}{OCF_RESKEY_name}             = "test_server";
 	$anvil->data->{environment}{OCF_RESKEY_CRM_meta_on_node} = "el8-a01n01.digimer.ca";
-	print "Running test 3; Shut down: [".$anvil->data->{environment}{OCF_RESKEY_name}."] locally.\n";
+	#print "Running test 3; Shut down: [".$anvil->data->{environment}{OCF_RESKEY_name}."] locally.\n";
 }
 
-# Something for the logs
-$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 2, key => "log_0298"});
-
 # This is for debugging.
 if (($anvil->data->{switches}{monitor})     or 
     ($anvil->data->{switches}{status})      or 
@@ -963,7 +966,6 @@ sub migrate_server
 					last;
 				}
 			}
-			die;
 		}
 		
 		# Validate everything, as if we were about to boot