=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== xmltv-0.6.3/grab/combiner/tv_grab_combiner-196- my( $fh, $filename ) = tempfile(UNLINK => 1); xmltv-0.6.3/grab/combiner/tv_grab_combiner:197: system( $grabber, '--configure', '--config-file', $filename ); xmltv-0.6.3/grab/combiner/tv_grab_combiner-198- ############################################## xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata-297-# do all the work. xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata:298:prepareinclude($conf,$opt); xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata-299-our @xmlfiles = downloadepg($opt->{days}, $opt->{offset}, $pin); ############################################## xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata-634- my $pin = $conf->{pin}->[0]; xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata:635: prepareinclude($conf, $opt); xmltv-0.6.3/grab/eu_epgdata/tv_grab_eu_epgdata-636- if (!$channelgroup) { ############################################## xmltv-0.6.3/grab/huro/tv_grab_huro.in-2030- next if not defined; xmltv-0.6.3/grab/huro/tv_grab_huro.in:2031: $where = "$CONFIG_FILE:$line_num"; xmltv-0.6.3/grab/huro/tv_grab_huro.in-2032- if (/^country:?\s+(\w\w)$/) { ############################################## xmltv-0.6.3/grab/huro/tv_grab_huro.in-2082- xmltv-0.6.3/grab/huro/tv_grab_huro.in:2083: $where = "$jobmap_file:$line_num"; xmltv-0.6.3/grab/huro/tv_grab_huro.in-2084- @fields = split m/:/; ############################################## xmltv-0.6.3/grab/huro/tv_grab_huro.in-2107- xmltv-0.6.3/grab/huro/tv_grab_huro.in:2108: $where = "$catmap_file:$line_num"; xmltv-0.6.3/grab/huro/tv_grab_huro.in-2109- @fields = split m/:/; ############################################## xmltv-0.6.3/grab/it/tv_grab_it.in-419- xmltv-0.6.3/grab/it/tv_grab_it.in:420: my $where = "$CHANNEL_NAMES_FILE:$line_num"; xmltv-0.6.3/grab/it/tv_grab_it.in-421- ############################################## xmltv-0.6.3/grab/it_dvb/tv_grab_it_dvb.in-341- xmltv-0.6.3/grab/it_dvb/tv_grab_it_dvb.in:342: my $where = "$CHANNEL_NAMES_FILE:$line_num"; xmltv-0.6.3/grab/it_dvb/tv_grab_it_dvb.in-343- my @fields = split /;/; ############################################## xmltv-0.6.3/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite-452-# xmltv-0.6.3/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite:453:$sql = 'select 1 from lineups l1 where (l1.downloaded <= ? and l1.lineup in ( ' . join(', ', ('?') x scalar(@{$conf->{'lineup'}})) . ' )) union select 1 where not exists (select 1 from lineups l2 where l2.lineup in ( ' . join(', ', ('?') x scalar(@{$conf->{'lineup'}})) . ' ))'; xmltv-0.6.3/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite-454- ############################################## xmltv-0.6.3/lib/Data/Recursive/Encode.pm-24- if(my $ref = ref $arg){ xmltv-0.6.3/lib/Data/Recursive/Encode.pm:25: my $refaddr = refaddr($arg); xmltv-0.6.3/lib/Data/Recursive/Encode.pm-26- my $proto; ############################################## xmltv-0.6.3/lib/ValidateGrabber.pm-406- alarm $CMD_TIMEOUT; xmltv-0.6.3/lib/ValidateGrabber.pm:407: system ( $cmd ); xmltv-0.6.3/lib/ValidateGrabber.pm-408- alarm 0; ############################################## xmltv-0.6.3/t/parallel_test-106- unless ($opt_a) { xmltv-0.6.3/t/parallel_test:107: system("time @a_cmd @constant_args @$a_args >$old_out") && die "@a_cmd failed"; xmltv-0.6.3/t/parallel_test-108- } ############################################## xmltv-0.6.3/t/parallel_test-110- t "in dir $a_dir, running fixup $_ <$old_out >$old_out.fix"; xmltv-0.6.3/t/parallel_test:111: system("{ $_ ; } <$old_out >$old_out.fix") && die "$_ failed"; xmltv-0.6.3/t/parallel_test-112- $old_out = "$old_out.fix"; ############################################## xmltv-0.6.3/t/parallel_test-117- unless ($opt_b) { xmltv-0.6.3/t/parallel_test:118: system("time @b_cmd @constant_args @$b_args >$new_out") && die "@b_cmd failed"; xmltv-0.6.3/t/parallel_test-119- } ############################################## xmltv-0.6.3/t/parallel_test-121- t "in dir $b_dir, running fixup $_ <$new_out >$new_out.fix"; xmltv-0.6.3/t/parallel_test:122: system("{ $_ ; } <$new_out >$new_out.fix") && die "$_ failed"; xmltv-0.6.3/t/parallel_test-123- $new_out = "$new_out.fix"; ############################################## xmltv-0.6.3/t/parallel_test-132- t "in dir $a_dir, running fixup $_ $new_out <$old_out >$old_out.fix"; xmltv-0.6.3/t/parallel_test:133: system("{ $_ $new_out ; } <$old_out >$old_out.fix") && die "$_ failed"; xmltv-0.6.3/t/parallel_test-134- $old_out = "$old_out.fix"; ############################################## xmltv-0.6.3/t/parallel_test-138- t "in dir $b_dir, running fixup $_ $old_out <$new_out >$new_out.fix"; xmltv-0.6.3/t/parallel_test:139: system("{ $_ $old_out ; } <$new_out >$new_out.fix") && die "$_ failed"; xmltv-0.6.3/t/parallel_test-140- $new_out = "$new_out.fix"; ############################################## xmltv-0.6.3/t/parallel_test-143- my $diff = "$tmp/$test_num.diff"; xmltv-0.6.3/t/parallel_test:144: if (system("diff -u $old_out $new_out >$diff")) { xmltv-0.6.3/t/parallel_test-145- print STDERR "diff found differences: \n"; ############################################## xmltv-0.6.3/t/test_tv_imdb.t-32- xmltv-0.6.3/t/test_tv_imdb.t:33:system("/bin/cp -rp $tests_dir/lists $tmpDir/"); xmltv-0.6.3/t/test_tv_imdb.t-34- ############################################## xmltv-0.6.3/t/test_tv_imdb.t-88- #print STDERR "\nRUN:$cmd\n"; xmltv-0.6.3/t/test_tv_imdb.t:89: my $r = system($cmd); xmltv-0.6.3/t/test_tv_imdb.t-90- ############################################## xmltv-0.6.3/t/test_tv_imdb.t-110- if ( $in ne $out ) { xmltv-0.6.3/t/test_tv_imdb.t:111: #system("cp $dir/output.xml /tmp/$n-output"); xmltv-0.6.3/t/test_tv_imdb.t:112: #system("cp $input-expected /tmp/$n-expected"); xmltv-0.6.3/t/test_tv_imdb.t-113- warn "$input failed to match expected ('$in' != '$out')\n"; ############################################## xmltv-0.6.3/t/test_tv_augment.t-59- xmltv-0.6.3/t/test_tv_augment.t:60: my $r = system($cmd); xmltv-0.6.3/t/test_tv_augment.t-61- ############################################## xmltv-0.6.3/.pc/it_dvb_linux_warning/grab/it_dvb/tv_grab_it_dvb.in-331- xmltv-0.6.3/.pc/it_dvb_linux_warning/grab/it_dvb/tv_grab_it_dvb.in:332: my $where = "$CHANNEL_NAMES_FILE:$line_num"; xmltv-0.6.3/.pc/it_dvb_linux_warning/grab/it_dvb/tv_grab_it_dvb.in-333- my @fields = split /;/; ############################################## xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-32- xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t:33:system("/bin/cp -rp $tests_dir/lists $tmpDir/"); xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-34- ############################################## xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-88- #print STDERR "\nRUN:$cmd\n"; xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t:89: my $r = system($cmd); xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-90- ############################################## xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-110- if ( $in ne $out ) { xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t:111: #system("cp $dir/output.xml /tmp/$n-output"); xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t:112: #system("cp $input-expected /tmp/$n-expected"); xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_imdb.t-113- warn "$input failed to match expected ('$in' != '$out')\n"; ############################################## xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_augment.t-59- xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_augment.t:60: my $r = system($cmd); xmltv-0.6.3/.pc/autopkgtest.patch/t/test_tv_augment.t-61- ############################################## xmltv-0.6.3/.pc/typo-in-manual-page/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite-452-# xmltv-0.6.3/.pc/typo-in-manual-page/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite:453:$sql = 'select 1 from lineups l1 where (l1.downloaded <= ? and l1.lineup in ( ' . join(', ', ('?') x scalar(@{$conf->{'lineup'}})) . ' )) union select 1 where not exists (select 1 from lineups l2 where l2.lineup in ( ' . join(', ', ('?') x scalar(@{$conf->{'lineup'}})) . ' ))'; xmltv-0.6.3/.pc/typo-in-manual-page/grab/zz_sdjson_sqlite/tv_grab_zz_sdjson_sqlite-454-