1 sub ptrace {
      2   my ($msg, $level) = @_;
      3   $msg = pdate()." ".$msg;
      4   ptrace_wo_date($msg, $level);
      5 }
      6
      7 sub ptrace_wo_date {
      8   my ($msg, $level) = @_;
      9   $level = defined $level ? $level : $norm_trace;
     10   if ($traceLevel >= $level) {
     11     if ($ttymode) {
     12       print "$msg\n";
     13     }
     14     if ($log_opened) {
     15       print $logfh "$msg\n";
     16     }
     17   }
     18 }
     19
     20 sub plog {
     21   my $msg = shift;
     22   if ($ttymode) {
     23     $msg = pdate()." ".$msg;
     24   }
     25   if ($log_opened) {
     26     print $logfh "$msg\n";
     27   }
     28 }
     29
     30 # Main part
     31
     32 my $pit_trace = "/tmp/pit.trace";
     33 my $cmd = "/tmp/FMinstall.sh"
     34 ptrace("-I- executing: \n\t$cmd");
     35 system("$cmd > /tmp/instappcmd.out 2>&1");
     36 my $res = $? >> 8;
     37 my $pitres = readFile("/tmp/instappcmd.out");
     38 unlink "/tmp/instappcmd.out";
     39
     40 # log result and pit trace if any
     41 ptrace("  execution trace:\n$pitres");
     42
     43 if ( -f $pit_trace ) {
     44   $pitres = readFile($pit_trace);
     45   plog($pitres);
     46 }