Changeset 11130 in ntrip for trunk/BNC/scripts


Ignore:
Timestamp:
Oct 28, 2026, 9:32:30 AM (7 days ago)
Author:
stuerze
Message:

Some fixes from security point of view

Location:
trunk/BNC/scripts
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/BNC/scripts/cmbPlot.pl

    r10491 r11130  
    7474# for pdf generation
    7575my ( $png, $page, $headline, $headline_text );
     76my @pngFiles;    # images to be deleted after inclusion in the PDF
    7677my $y0 = 180 / mm;
    7778my ( $x, $y, $width, $height ) = ( 40 / mm, $y0, 130 / mm, 80 / mm );
    … …  
    179180    my @datasets;    # init datasets
    180181    my $pngName = sprintf ( "%s_CLK_CORR_%s.png", $inputFilename, $key_sys );
     182    push @pngFiles, $pngName;
    181183    my $chart = Chart::Gnuplot->new(
    182184                                     output   => $pngName,
    … …  
    232234    my @datasets;    # init datasets
    233235    my $pngName = sprintf ( "%s_CLK_FULL_%s.png", $inputFilename, $key_sys );
     236    push @pngFiles, $pngName;
    234237    my $chart = Chart::Gnuplot->new(
    235238        output   => $pngName,
    … …  
    287290            my @datasets;                             # init datasets
    288291            my $pngName = sprintf ( "%s_OFFSETSAT_%s_%s.png", $inputFilename, $key_ac, $key_sys );
     292            push @pngFiles, $pngName;
    289293            my $chartOFFSETSAT = Chart::Gnuplot->new(
    290294                output   => $pngName,
    … …  
    340344    my @datasets;    # init datasets
    341345    my $pngName = sprintf ( "%s_OFFSETAC_%s.png", $inputFilename, $key_sys );
     346    push @pngFiles, $pngName;
    342347    my $chart = Chart::Gnuplot->new(
    343348        output   => $pngName,
    … …  
    393398        my @datasets;                      # init datasets
    394399        my $pngName = sprintf ( "%s_RES_%s_%s.png", $inputFilename, $key_ac, $key_sys );
     400        push @pngFiles, $pngName;
    395401        my $chart = Chart::Gnuplot->new(
    396402                                         output   => $pngName,
    … …  
    432438$pdf->save();
    433439$pdf->end();
    434 system ("rm $inputDir/*png");
    435 system("evince $inputDir/$pdf_name&");
     440unlink @pngFiles;    # only the images written here
     441if ( !fork() ) { exec( "evince", "$inputDir$pdf_name" ) or exit 1; }
    436442
    437443#foreach my $t(@array) {print"$t \n ";}

  • trunk/BNC/scripts/compareSP3Plot.pl

    r11083 r11130  
    6666# for pdf generation
    6767my ($png, $page, $headline, $headline_text);
     68my @pngFiles;    # images to be deleted after inclusion in the PDF
    6869my $y0 = 190/mm;
    6970my ($x, $y, $width, $height) = (40/mm, $y0, 130/mm, 70/mm);
    … …  
    134135            my (@datasets_r, @datasets_a, @datasets_o); # init datasets
    135136            my $pngName_r   = sprintf ("%s_RADIAL_%s.png", $inputFilename, $key_sys);
     137            push @pngFiles, $pngName_r;
    136138            my $pngName_a   = sprintf ("%s_ALONG_%s.png", $inputFilename, $key_sys);
     139            push @pngFiles, $pngName_a;
    137140            my $pngName_o   = sprintf ("%s_OUT_%s.png", $inputFilename, $key_sys);
     141            push @pngFiles, $pngName_o;
    138142            my $chart_r = Chart::Gnuplot->new(
    139143                          output => $pngName_r, terminal => 'png', title => "Radial component",
    … …  
    231235            my (@datasets_c, @datasets_r); # init datasets
    232236            my $pngName_c  = sprintf ("%s_CLK_%s.png", $inputFilename, $key_sys);
     237            push @pngFiles, $pngName_c;
    233238            my $pngName_r  = sprintf ("%s_CLKRED_%s.png", $inputFilename, $key_sys);
     239            push @pngFiles, $pngName_r;
    234240            my $chart_c = Chart::Gnuplot->new(
    235241                          output => $pngName_c, terminal => 'png',title => "Clock only",
    … …  
    305311            my @datasets_s; # init datasets
    306312            my $pngName_s  = sprintf ("%s_SIS_%s.png", $inputFilename, $key_sys);
     313            push @pngFiles, $pngName_s;
    307314            # SIS contains the satellite offsets: y range from the data
    308315            my $maxAbs = 0.1;
    … …  
    342349    $pdf->save();
    343350    $pdf->end();
    344     system("rm *png");
     351    unlink @pngFiles;    # only the images written here
     352    @pngFiles = ();
    345353    #system("evince $inputDir/$pdf_name&");
    346354}

  • trunk/BNC/scripts/pppPlot.pl

    r10879 r11130  
    8787# for pdf gerneration
    8888my ( $png, $page, $headline, $headline_text );
     89my @pngFiles;    # images to be deleted after inclusion in the PDF
    8990my $y0 = 180 / mm;
    9091my ( $x, $y, $width, $height ) = ( 40 / mm, $y0, 130 / mm, 80 / mm );
    … …  
    170171                DEBUG "Plot NEU ";
    171172                my $pngNameNEU = sprintf( "%s_NEU.png", $station );
     173                push @pngFiles, $pngNameNEU;
    172174                my $chartNEU   = newChart("$station ($dateStr)");
    173175                $chartNEU->set(
    … …  
    207209                DEBUG "Plot FIX";
    208210                my $pngNameFIX = sprintf( "%s_FIX.png", $station );
     211                push @pngFiles, $pngNameFIX;
    209212                my $chartFIX   = newChart("$station ($dateStr)");
    210213                $chartFIX->set(
    … …  
    236239                DEBUG "Plot TRP";
    237240                my $pngNameTRP = sprintf( "%s_TRP.png", $station );
     241                push @pngFiles, $pngNameTRP;
    238242                my $chartTRP   = newChart("$station ($dateStr)");
    239243                $chartTRP->set( output => $pngNameTRP );
    … …  
    278282                my @datasets      = ();                                  # init datasets
    279283                my $pngNameRECCLK = sprintf( "%s_RECCLK.png", $station );
     284                push @pngFiles, $pngNameRECCLK;
    280285                $chartRECCLK->set( output => $pngNameRECCLK );
    281286                $chartRECCLK->set( ylabel => "Receiver Clocks [m]" );
    … …  
    323328                        my @datasets = ();    # init datasets
    324329                        my $pngNameELE = sprintf( "%s_ELE_%s.png", $station, $key_sys );
     330                        push @pngFiles, $pngNameELE;
    325331                        $chartELE->set( output => $pngNameELE );
    326332                        $chartELE->set(
    … …  
    370376                                my ( @datasets_amb, @datasets_epo );    # init datasets
    371377                                my $pngNameAMB = sprintf( "%s_AMB_%s_%s.png",   $station, $key_ambType, $key_sys );
     378                                push @pngFiles, $pngNameAMB;
    372379                                my $pngNameEPO = sprintf( "%s_EPO_%s_%s.png",   $station, $key_ambType, $key_sys );
     380                                push @pngFiles, $pngNameEPO;
    373381                                my $chartAMB = Chart::Gnuplot->new(
    374382                                        output   => $pngNameAMB,
    … …  
    458466                        my @datasets;    # init datasets
    459467                        my $pngNameION = sprintf( "%s_ION_%s.png", $station, $ksys );
     468                        push @pngFiles, $pngNameION;
    460469                        $chartION->set( output => $pngNameION );
    461470                        # SATELLITE
    … …  
    504513                                my $pngNameBIA = sprintf( "%s_BIAS_%s_%s.png",
    505514                                        $station, $key_biasType, $key_sys );
     515                                push @pngFiles, $pngNameBIA;
    506516                                $chartBIAS->set( output => $pngNameBIA );
    507517                                $chartBIAS->set( ylabel => "Receiver Bias $key_biasType [m]" );
    … …  
    548558                                my @datasets;
    549559                                my $pngNameRES = sprintf( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
     560                                push @pngFiles, $pngNameRES;
    550561                                $chartRES->set( output => $pngNameRES );
    551562                                $chartRES->set(ylabel => "Residuals $key_resType [m]" );
    … …  
    603614                        my @datasets;
    604615                        my $pngNameCLKCORR = sprintf( "%s_CLKCORR_%s.png", $station, $ksys );
     616                        push @pngFiles, $pngNameCLKCORR;
    605617                        $chartCLKCORR->set( output => $pngNameCLKCORR );
    606618                        # SATELLITE
    … …  
    647659                        $chartYAW->set( legend => { position => "outside right" } );
    648660                        my $pngNameYAW = sprintf( "%s_YAW_%s.png", $station, $sat );
     661                        push @pngFiles, $pngNameYAW;
    649662                        $chartYAW->set( output => $pngNameYAW );
    650663                        # YAW from SSR data
    … …  
    696709                                my @datasets;
    697710                                my $pngNameCB =  sprintf( "%s_CB_%s_%s.png", $station, $key_type, $key_sys );
     711                                push @pngFiles, $pngNameCB;
    698712                                $chartCB->set( output => $pngNameCB );
    699713                                $chartCB->set( ylabel => "Code Biases $key_type [m]" );
    … …  
    740754                                my (@datasetsJC, $datasetJC);
    741755                                my $pngNamePB =  sprintf( "%s_PB_%s_%s.png", $station, $key_type, $key_sys );
     756                                push @pngFiles, $pngNamePB;
    742757                                my $pngNameJC =  sprintf( "%s_JC_%s_%s.png", $station, $key_type, $key_sys );
     758                                push @pngFiles, $pngNameJC;
    743759                                my $chartPB = newChart("$ssrData ($dateStr)");
    744760                        $chartPB->set( legend => { position => "outside right" } );
    … …  
    799815$pdf->end();
    800816
    801 system("rm *.png");
     817unlink @pngFiles;    # only the images written here
     818@pngFiles = ();
    802819if (Common::amInteractiv) {
    803         system("evince $inputDir/$pdf_name");
     820        system( "evince", "$inputDir$pdf_name" );
    804821}
    805822
Note: See TracChangeset for help on using the changeset viewer.