From 084b0dafa1c75242d46934755570eaea3d636aba Mon Sep 17 00:00:00 2001 From: Mark Gurevich Date: Thu, 30 Jun 2022 16:01:28 -0400 Subject: [PATCH] Get GitHub action script directory reference18 --- github_action_xcat_test.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/github_action_xcat_test.pl b/github_action_xcat_test.pl index d86a90a55..c6a6fcba9 100644 --- a/github_action_xcat_test.pl +++ b/github_action_xcat_test.pl @@ -505,10 +505,13 @@ sub run_fast_regression_test{ chomp($hostname); print "hostname = $hostname\n"; my $conf_file = "$ENV{'PWD'}/regression.conf"; - open(my $FH, '>', $conf_file) or die "Could not open test configuration file '$conf_file' $!i"; + open(my $fh, '>', $conf_file) or die "Could not open test configuration file '$conf_file' $!"; + print "MG file opened"; #$cmd = "sudo echo '[System]' > $conf_file; sudo echo 'MN=$hostname' >> $conf_file; sudo echo '[Table_site]' >> $conf_file; sudo echo 'key=domain' >>$conf_file; sudo echo 'value=pok.stglabs.ibm.com' >> $conf_file"; - print $FH "[System]\nMN=$hostname\n[Table_site]\nkey=domain\nvalue=pok.stglabs.ibm.com\n"; - close($FH); + print $fh "[System]\nMN=$hostname\n[Table_site]\nkey=domain\nvalue=pok.stglabs.ibm.com\n"; + print "MG file written"; + close($fh); + print "MG file closed"; #@output = runcmd("$cmd"); #if($::RUNCMD_RC){ # print RED "[run_fast_regression_test] $cmd ....[Failed]\n";