Mercurial > hg > maltfilter

comparison maltfilter @ 58:a780a23e19a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change parsing status log messages.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 16 Aug 2009 22:17:48 +0300
parents a70493b6c916
children 69c39b5c6277
comparison
equal deleted inserted replaced
57:a70493b6c916 58:a780a23e19a8
736 undef(%ignorelist); 736 undef(%ignorelist);
737 mlog(0, "Updating initial blocklist from netfilter.\n"); 737 mlog(0, "Updating initial blocklist from netfilter.\n");
738 update_blocklist(-1); 738 update_blocklist(-1);
739 739
740 foreach my $filename (@scanfiles_once) { 740 foreach my $filename (@scanfiles_once) {
741 mlog(0, "Parsing [once] ".$filename." ...\n"); 741 mlog(0, "Parsing [ONCE] ".$filename." ...\n");
742 if (open(INFILE, "<", $filename)) { 742 if (open(INFILE, "<", $filename)) {
743 while (<INFILE>) { 743 while (<INFILE>) {
744 chomp; 744 chomp;
745 check_log_line($_); 745 check_log_line($_);
746 } 746 }
750 close(INFILE); 750 close(INFILE);
751 } 751 }
752 752
753 foreach my $filename (@scanfiles) { 753 foreach my $filename (@scanfiles) {
754 local *INFILE; 754 local *INFILE;
755 mlog(0, "Parsing ".$filename." ...\n"); 755 mlog(0, "Initial parsing ".$filename." ...\n");
756 if (open(INFILE, "<", $filename)) { 756 if (open(INFILE, "<", $filename)) {
757 $filehandles{$filename} = *INFILE; 757 $filehandles{$filename} = *INFILE;
758 while (<INFILE>) { 758 while (<INFILE>) {
759 chomp; 759 chomp;
760 check_log_line($_); 760 check_log_line($_);