Skip to content
Snippets Groups Projects

RCG: some $target/chans directories if needed

Merged Erik von Reis requested to merge erik.vonreis/advligorts:chans_dirs into branch-4.2
3 files
+ 24
9
Compare changes
  • Side-by-side
  • Inline
Files
3
package CDS::IPCmonitor;
use Exporter;
use File::Path;
@ISA = ('Exporter');
#// \page IPCx IPCx.pm
@@ -227,11 +228,17 @@ my @ipcxMaxNum = (-999,-999,-999,-999);
# Develop name of IPC parameter file based on return from above.
#my ($i) = @_;
my $iFile = $::target;
$iFile .= "/chans/ipc/";
$iFile .= $::ifo;
$iFile .= "\.ipc";
my $iFilePath = $::target;
$iFilePath .= "/chans/ipc/";
my $iFile .= $iFilePath . $::ifo;
$iFile .= "\.ipc";
# Open and input data from IPC parameter file
File::Path::make_path($iFilePath);
unless (-e $iFile)
{
open(TOUCH, ">>$iFile");
close(TOUCH);
}
open(IPCIN, "<$iFile") || die "***ERROR: IPCx parameter file $iFile not found\n";
chomp(@inData=<IPCIN>);
close IPCIN;
Loading