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

Timestamp:

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

Author:

stuerze

Message:

Some fixes from security point of view

File:

• trunk/BNC/scripts/pppPlot.pl (modified) (15 diffs)

trunk/BNC/scripts/pppPlot.pl

@@ -87 +87 @@
 # for pdf gerneration
 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 );
@@ -170 +171 @@
                 DEBUG "Plot NEU ";
                 my $pngNameNEU = sprintf( "%s_NEU.png", $station );
+                push @pngFiles, $pngNameNEU;
                 my $chartNEU   = newChart("$station ($dateStr)");
                 $chartNEU->set(
@@ -207 +209 @@
                 DEBUG "Plot FIX";
                 my $pngNameFIX = sprintf( "%s_FIX.png", $station );
+                push @pngFiles, $pngNameFIX;
                 my $chartFIX   = newChart("$station ($dateStr)");
                 $chartFIX->set(
@@ -236 +239 @@
                 DEBUG "Plot TRP";
                 my $pngNameTRP = sprintf( "%s_TRP.png", $station );
+                push @pngFiles, $pngNameTRP;
                 my $chartTRP   = newChart("$station ($dateStr)");
                 $chartTRP->set( output => $pngNameTRP );
@@ -278 +282 @@
                 my @datasets      = ();                                  # init datasets
                 my $pngNameRECCLK = sprintf( "%s_RECCLK.png", $station );
+                push @pngFiles, $pngNameRECCLK;
                 $chartRECCLK->set( output => $pngNameRECCLK );
                 $chartRECCLK->set( ylabel => "Receiver Clocks [m]" );
@@ -323 +328 @@
                         my @datasets = ();    # init datasets
                         my $pngNameELE = sprintf( "%s_ELE_%s.png", $station, $key_sys );
+                        push @pngFiles, $pngNameELE;
                         $chartELE->set( output => $pngNameELE );
                         $chartELE->set(
@@ -370 +376 @@
                                 my ( @datasets_amb, @datasets_epo );    # init datasets
                                 my $pngNameAMB = sprintf( "%s_AMB_%s_%s.png",   $station, $key_ambType, $key_sys );
+                                push @pngFiles, $pngNameAMB;
                                 my $pngNameEPO = sprintf( "%s_EPO_%s_%s.png",   $station, $key_ambType, $key_sys );
+                                push @pngFiles, $pngNameEPO;
                                 my $chartAMB = Chart::Gnuplot->new(
                                         output   => $pngNameAMB,
@@ -458 +466 @@
                         my @datasets;    # init datasets
                         my $pngNameION = sprintf( "%s_ION_%s.png", $station, $ksys );
+                        push @pngFiles, $pngNameION;
                         $chartION->set( output => $pngNameION );
                         # SATELLITE
@@ -504 +513 @@
                                 my $pngNameBIA = sprintf( "%s_BIAS_%s_%s.png",
                                         $station, $key_biasType, $key_sys );
+                                push @pngFiles, $pngNameBIA;
                                 $chartBIAS->set( output => $pngNameBIA );
                                 $chartBIAS->set( ylabel => "Receiver Bias $key_biasType [m]" );
@@ -548 +558 @@
                                 my @datasets;
                                 my $pngNameRES = sprintf( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
+                                push @pngFiles, $pngNameRES;
                                 $chartRES->set( output => $pngNameRES );
                                 $chartRES->set(ylabel => "Residuals $key_resType [m]" );
@@ -603 +614 @@
                         my @datasets;
                         my $pngNameCLKCORR = sprintf( "%s_CLKCORR_%s.png", $station, $ksys );
+                        push @pngFiles, $pngNameCLKCORR;
                         $chartCLKCORR->set( output => $pngNameCLKCORR );
                         # SATELLITE
@@ -647 +659 @@
                         $chartYAW->set( legend => { position => "outside right" } );
                         my $pngNameYAW = sprintf( "%s_YAW_%s.png", $station, $sat );
+                        push @pngFiles, $pngNameYAW;
                         $chartYAW->set( output => $pngNameYAW );
                         # YAW from SSR data
@@ -696 +709 @@
                                 my @datasets;
                                 my $pngNameCB =  sprintf( "%s_CB_%s_%s.png", $station, $key_type, $key_sys );
+                                push @pngFiles, $pngNameCB;
                                 $chartCB->set( output => $pngNameCB );
                                 $chartCB->set( ylabel => "Code Biases $key_type [m]" );
@@ -740 +754 @@
                                 my (@datasetsJC, $datasetJC);
                                 my $pngNamePB =  sprintf( "%s_PB_%s_%s.png", $station, $key_type, $key_sys );
+                                push @pngFiles, $pngNamePB;
                                 my $pngNameJC =  sprintf( "%s_JC_%s_%s.png", $station, $key_type, $key_sys );
+                                push @pngFiles, $pngNameJC;
                                 my $chartPB = newChart("$ssrData ($dateStr)");
                         $chartPB->set( legend => { position => "outside right" } );
@@ -799 +815 @@
 $pdf->end();
 
-system("rm *.png");
+unlink @pngFiles;    # only the images written here
+@pngFiles = ();
 if (Common::amInteractiv) {
-        system("evince $inputDir/$pdf_name");
+        system( "evince", "$inputDir$pdf_name" );
 }