| line |
true |
false |
branch |
|
93
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
101
|
0 |
0 |
if $parameters{'proxy'} |
|
102
|
0 |
0 |
if $parameters{'timeout'} |
|
103
|
0 |
0 |
if $parameters{'debug'} |
|
104
|
0 |
0 |
if $parameters{'minlon'} |
|
105
|
0 |
0 |
if $parameters{'maxlon'} |
|
106
|
0 |
0 |
if $parameters{'minlat'} |
|
107
|
0 |
0 |
if $parameters{'maxlat'} |
|
108
|
0 |
0 |
if $parameters{'logfile'} |
|
109
|
0 |
0 |
if $parameters{'temp_dir'} |
|
110
|
0 |
0 |
if $parameters{'dest_dir'} |
|
111
|
0 |
0 |
if $parameters{'mail_anonymous'} |
|
112
|
0 |
0 |
if $parameters{'cbarn_path'} |
|
113
|
0 |
0 |
if $parameters{'r_path'} |
|
114
|
0 |
0 |
if $parameters{'gradsc_path'} |
|
115
|
0 |
0 |
if $parameters{'wgrib_path'} |
|
116
|
0 |
0 |
if $parameters{'server_list'} |
|
122
|
0 |
0 |
if ($$self{'MAIL_ANONYMOUS'}) { } |
|
128
|
0 |
0 |
if ($$self{'GRADSC_PATH'}) { } |
|
134
|
0 |
0 |
if ($$self{'WGRIB_PATH'}) { } |
|
141
|
0 |
0 |
if ($self->_check_area_size) { } |
|
178
|
0 |
0 |
if ($$self{'LOGFILE'}) |
|
183
|
0 |
0 |
if ($$self{'DEBUG'}) |
|
196
|
0 |
0 |
if ($now - $start <= $timeout) { } |
|
219
|
0 |
0 |
if ($$self{'MINLAT'} >= $$self{'MAXLAT'}) |
|
223
|
0 |
0 |
if ($$self{'MINLON'} >= $$self{'MAXLON'}) |
|
230
|
0 |
0 |
if ($a_minlat > 90) |
|
234
|
0 |
0 |
if ($a_maxlat > 90) |
|
238
|
0 |
0 |
if ($a_minlon > 180) |
|
242
|
0 |
0 |
if ($a_maxlon > 180) |
|
248
|
0 |
0 |
if ($d_lat < 10) |
|
252
|
0 |
0 |
if ($d_lon < 10) |
|
258
|
0 |
0 |
if ($d_lat * $d_lon < 200) { } |
|
268
|
0 |
0 |
if ($error == 1) { } |
|
279
|
0 |
0 |
unless ($$self{'SETUP'}) |
|
295
|
0 |
0 |
if ($self->check_string_on_url('FTP2U', 'http://' . $server . '/cgi-bin/ftp2u_gfs.sh')) |
|
316
|
0 |
0 |
if (index($stringa_html, $string) > 0) { } |
|
340
|
0 |
0 |
if ($$Link{'href'} =~ m[^ftp://] and not $$Link{'href'} =~ /gfs/) |
|
349
|
0 |
0 |
if ($ftp_founded) { } |
|
380
|
0 |
0 |
unless ($ftp = 'Net::FTP'->new($lista_dir[0], 'timeout', 3600)) |
|
386
|
0 |
0 |
if (not $ftp->login('anonymous', $$self{'MAIL_ANONYMOUS'})) { } |
|
397
|
0 |
0 |
if (not $ftp->cwd("$new_dir")) { } |
|
406
|
0 |
0 |
if (not $ftp->binary) { } |
|
411
|
0 |
0 |
if (not @lista_grib = $ftp->ls('gfs*pgrbf*')) { } |
|
423
|
0 |
0 |
unless ($ftp = 'Net::FTP'->new("$lista_dir[0]", 'timeout', 3600)) |
|
427
|
0 |
0 |
if (not $ftp->login('anonymous', $$self{'MAIL_ANONYMOUS'})) { } |
|
433
|
0 |
0 |
if (not $ftp->cwd("$new_dir")) { } |
|
439
|
0 |
0 |
if (not $ftp->binary) { } |
|
445
|
0 |
0 |
unless ($ftp->get("$gfile", "$$self{'TEMP_DIR'}$gfile")) |
|
470
|
0 |
0 |
if ($$self{'SETUP'} != 1) |
|
490
|
0 |
0 |
if ($self->check_string_on_url('transferred 60 out of 60 files', $STRINGA_URL)) { } |
|
493
|
0 |
0 |
if (length $ftp_trovato > 0) { } |
|
499
|
0 |
0 |
if ($self->check_string_on_url('Sorry, machine is overloaded', $STRINGA_URL)) { } |
|
|
0 |
0 |
elsif ($self->check_string_on_url('out of disk space', $STRINGA_URL)) { } |
|
|
0 |
0 |
elsif ($self->check_string_on_url('too many ftp2u jobs now', $STRINGA_URL)) { } |
|
521
|
0 |
0 |
if ($#gribs == 59) { } |
|
534
|
0 |
0 |
unless ($self->checkSetup) |
|
547
|
0 |
0 |
if ($#grib_vars == 0) |
|
556
|
0 |
0 |
if ($i == 3) |
|
560
|
0 |
0 |
if ($i == 4) |
|
568
|
0 |
0 |
if ($key =~ /APCP/) { } |
|
589
|
0 |
0 |
unless ($self->checkSetup) |
|
602
|
0 |
0 |
if ($i == 1) |
|
606
|
0 |
0 |
if ($i == 2) |
|
614
|
0 |
0 |
if ($key =~ /GRD/) { } |
|
616
|
0 |
0 |
if ($key =~ /VGRD/) |
|
631
|
0 |
0 |
unless ($self->checkSetup) |
|
644
|
0 |
0 |
if ($i == 1) |
|
648
|
0 |
0 |
if ($i == 2) |
|
656
|
0 |
0 |
if ($key =~ /GRD/) { } |
|
672
|
0 |
0 |
unless ($self->checkSetup) |
|
706
|
0 |
0 |
if ($#grib_vars == 0) |
|
715
|
0 |
0 |
if ($i == 3) |
|
719
|
0 |
0 |
if ($i == 4) |
|
760
|
0 |
0 |
if ($key =~ /APCP/) { } |
|
792
|
0 |
0 |
unless open FOUT, ">$nome_file_out" |
|
817
|
0 |
0 |
if ($i1 == 0) { } |
|
839
|
0 |
0 |
if ($i2 >= 0 and $i2 <= 7) |
|
842
|
0 |
0 |
if ($i2 >= 8 and $i2 <= 15) |
|
845
|
0 |
0 |
if ($i2 >= 16 and $i2 <= 23) |
|
848
|
0 |
0 |
if ($i2 >= 24 and $i2 <= 31) |
|
851
|
0 |
0 |
if ($i2 >= 32 and $i2 <= 39) |
|
854
|
0 |
0 |
if ($i2 >= 40 and $i2 <= 47) |
|
857
|
0 |
0 |
if ($i2 >= 48 and $i2 <= 55) |
|
863
|
0 |
0 |
if ($key eq 'APCP') |
|
868
|
0 |
0 |
if ($key eq 'APCP1') |
|
873
|
0 |
0 |
if ($key eq 'APCP2') |
|
878
|
0 |
0 |
if ($key eq 'APCP3') |
|
883
|
0 |
0 |
if ($key eq 'APCP4') |
|
888
|
0 |
0 |
if ($key eq 'APCP5') |
|
893
|
0 |
0 |
if ($key eq 'APCP6') |
|
898
|
0 |
0 |
if ($key eq 'APCP7') |
|
903
|
0 |
0 |
if ($key eq 'PRES') |
|
907
|
0 |
0 |
if ($key eq 'TMP') |
|
911
|
0 |
0 |
if ($key eq 'VGRD' or $key eq 'UGRD' or $key eq 'RH') |
|
922
|
0 |
0 |
if ($lon == $maxlon and $index2 > 1) { } |
|
933
|
0 |
0 |
if ($min_value > $tot) |
|
936
|
0 |
0 |
if ($max_value < $tot) |
|
1024
|
0 |
0 |
unless open IN, "<$file_in" |
|
1028
|
0 |
0 |
unless open OUT, ">$file_temp" |
|
1060
|
0 |
0 |
unless open FOUT, '>out_01degree.txt' |
|
1103
|
0 |
0 |
unless open FOUT, ">$file_r" |
|
1131
|
0 |
0 |
unless open OUT, ">$file_in" |
|
1235
|
0 |
0 |
unless open CTL, ">$file_ctl" |
|
1252
|
0 |
0 |
unless open OUT, '>muletto.gs' |
|
1257
|
0 |
0 |
if ($fileout =~ /PRES/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /GRD/) { } |
|
1268
|
0 |
0 |
if ($fileout =~ /APCP/) |
|
1269
|
0 |
0 |
if ($fileout =~ /hr/) { } |
|
1313
|
0 |
0 |
if ($fileout =~ /TMP/) |
|
1354
|
0 |
0 |
if ($fileout =~ /RH/) |
|
1378
|
0 |
0 |
if ($$self{'CBARN_PATH'}) |
|
1386
|
0 |
0 |
if ($fileout =~ /1000/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /925/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /850/) { } |
|
1397
|
0 |
0 |
if ($fileout =~ /APCP[1-9]/) { } |
|
1406
|
0 |
0 |
if ($fileout =~ /APCP/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /RH/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /TMP/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /PRES/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /UGRD/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /VGRD/) { } |
|
1421
|
0 |
0 |
if ($fileout =~ /TMP/ or $fileout =~ /VGRD/ or $fileout =~ /UGRD/ or $fileout =~ /RH/) |
|
1494
|
0 |
0 |
unless open CTL, ">$file_ctl_u" |
|
1509
|
0 |
0 |
unless open CTL, ">$file_ctl_v" |
|
1526
|
0 |
0 |
unless open OUT, '>muletto.gs' |
|
1547
|
0 |
0 |
if ($fileout =~ /1000/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /925/) { } |
|
|
0 |
0 |
elsif ($fileout =~ /850/) { } |
|
1585
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
1594
|
0 |
0 |
if ($parameter eq 'temp') |
|
1603
|
0 |
0 |
if ($parameter eq 'grib') |
|
1608
|
0 |
0 |
if ($parameter eq 'png') |
|
1613
|
0 |
0 |
if ($parameter eq 'idrisi') |
|
1634
|
0 |
0 |
if ('' . $value =~ /[-+]?[0-9]*[^a-z\.]/) { } |
|
1704
|
0 |
0 |
if ($len > 2) |
|
1708
|
0 |
0 |
if ($len < 2) |
|
1739
|
0 |
0 |
if ($variable_name eq $var1 or $variable_name eq $var2 or $variable_name eq $var) |