smatch_scripts/db/fill_db_untrusted.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5
   6 my $warns = shift;
   7
   8 if (!defined($warns)) {
   9     print "usage:  $0 <warns.txt>\n";
  10     exit(1);
  11 }
  12
  13 my $db = DBI->connect("dbi:SQLite:smatch_db.sqlite", "", "", {RaiseError => 1, AutoCommit => 0});
  14
  15 $db->do("delete from untrusted;");
  16
  17 open(WARNS, "<$warns");
  18 while (<WARNS>) {
  19     if (!($_ =~ / user_data /)) {
  20         next;
  21     }
  22     if ($_ =~ /kfree/) {
  23         next;
  24     }
  25
  26     s/\n//;
  27
  28     my ($file, $dummy, $func, $param);
  29     ($file, $dummy, $dummy, $dummy, $dummy, $func, $param) = split(/ /, $_);
  30
  31     if (!defined($param) || !($param =~ /^\d+$/)) {
  32         next;
  33     }
  34
  35     $db->do("insert into untrusted values ('$file', '$func', $param)");
  36 }
  37 $db->commit();
  38 $db->disconnect();