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

Timestamp:

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

Author:

stuerze

Message:

Some fixes from security point of view

File:

• trunk/BNC/scripts/compareSP3Plot.pl (modified) (5 diffs)

trunk/BNC/scripts/compareSP3Plot.pl

@@ -66 +66 @@
 # for pdf generation
 my ($png, $page, $headline, $headline_text);
+my @pngFiles;    # images to be deleted after inclusion in the PDF
 my $y0 = 190/mm;
 my ($x, $y, $width, $height) = (40/mm, $y0, 130/mm, 70/mm);
@@ -134 +135 @@
             my (@datasets_r, @datasets_a, @datasets_o); # init datasets
             my $pngName_r   = sprintf ("%s_RADIAL_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_r;
             my $pngName_a   = sprintf ("%s_ALONG_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_a;
             my $pngName_o   = sprintf ("%s_OUT_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_o;
             my $chart_r = Chart::Gnuplot->new(
                           output => $pngName_r, terminal => 'png', title => "Radial component",
@@ -231 +235 @@
             my (@datasets_c, @datasets_r); # init datasets
             my $pngName_c  = sprintf ("%s_CLK_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_c;
             my $pngName_r  = sprintf ("%s_CLKRED_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_r;
             my $chart_c = Chart::Gnuplot->new(
                           output => $pngName_c, terminal => 'png',title => "Clock only",
@@ -305 +311 @@
             my @datasets_s; # init datasets
             my $pngName_s  = sprintf ("%s_SIS_%s.png", $inputFilename, $key_sys);
+            push @pngFiles, $pngName_s;
             # SIS contains the satellite offsets: y range from the data
             my $maxAbs = 0.1;
@@ -342 +349 @@
     $pdf->save();
     $pdf->end();
-    system("rm *png");
+    unlink @pngFiles;    # only the images written here
+    @pngFiles = ();
     #system("evince $inputDir/$pdf_name&");
 }