print PUBLIC_ADDR "$public_ip/32 swrap$pub_iface\n";
close(PUBLIC_ADDR);
+ my $event_script = "$event_script_dir/00.test";
+ unless(open(EVENTSCRIPT, ">$event_script")) {
+ warn("Unable to open event script '$event_script'");
+ return undef;
+ }
+ print EVENTSCRIPT "#!/bin/sh
+# event script for clustered samba selftest
+
+echo \"event script called: '\$0 \$\@'\"
+
+exit 0
+";
+
$ret{CTDBD_TEST_LOG} = "$prefix/ctdbd_test.log";
$ret{CTDBD_TEST_LOG_POS} = 0;