Changeset 11130 in ntrip for trunk/BNC/scripts/cmbPlot.pl

Timestamp:

Oct 28, 2026, 9:32:30 AM (6 days ago)

Author:

stuerze

Message:

Some fixes from security point of view

File:

• trunk/BNC/scripts/cmbPlot.pl (modified) (7 diffs)

trunk/BNC/scripts/cmbPlot.pl

@@ -74 +74 @@
 # for pdf generation
 my ( $png, $page, $headline, $headline_text );
+my @pngFiles;    # images to be deleted after inclusion in the PDF
 my $y0 = 180 / mm;
 my ( $x, $y, $width, $height ) = ( 40 / mm, $y0, 130 / mm, 80 / mm );
@@ -179 +180 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_CLK_CORR_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
                                      output   => $pngName,
@@ -232 +234 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_CLK_FULL_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
         output   => $pngName,
@@ -287 +290 @@
             my @datasets;                             # init datasets
             my $pngName = sprintf ( "%s_OFFSETSAT_%s_%s.png", $inputFilename, $key_ac, $key_sys );
+            push @pngFiles, $pngName;
             my $chartOFFSETSAT = Chart::Gnuplot->new(
                 output   => $pngName,
@@ -340 +344 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_OFFSETAC_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
         output   => $pngName,
@@ -393 +398 @@
         my @datasets;                      # init datasets
         my $pngName = sprintf ( "%s_RES_%s_%s.png", $inputFilename, $key_ac, $key_sys );
+        push @pngFiles, $pngName;
         my $chart = Chart::Gnuplot->new(
                                          output   => $pngName,
@@ -432 +438 @@
 $pdf->save();
 $pdf->end();
-system ("rm $inputDir/*png");
-system("evince $inputDir/$pdf_name&");
+unlink @pngFiles;    # only the images written here
+if ( !fork() ) { exec( "evince", "$inputDir$pdf_name" ) or exit 1; }
 
 #foreach my $t(@array) {print"$t \n ";}