init_constraints.pl (1f5207b7) init_constraints.pl (efe51d0c)
1#!/usr/bin/perl -w
2
3use strict;
4use warnings;
5use bigint;
6use DBI;
7use Data::Dumper;
8use File::Basename;

--- 32 unchanged lines hidden (view full) ---

41}
42
43sub load_manual_constraints($$)
44{
45 my $full_path = shift;
46 my $project = shift;
47 my $dir = dirname($full_path);
48
1#!/usr/bin/perl -w
2
3use strict;
4use warnings;
5use bigint;
6use DBI;
7use Data::Dumper;
8use File::Basename;

--- 32 unchanged lines hidden (view full) ---

41}
42
43sub load_manual_constraints($$)
44{
45 my $full_path = shift;
46 my $project = shift;
47 my $dir = dirname($full_path);
48
49 if ($project =~ /^$/) {
50 return;
51 }
52
49 open(FILE, "$dir/$project.constraints");
50 while (<FILE>) {
51 s/\n//;
52 $db->do("insert or ignore into constraints (str) values ('$_')");
53 }
54 close(FILE);
55
56 open(FILE, "$dir/$project.constraints_required");

--- 23 unchanged lines hidden --- 		53 open(FILE, "$dir/$project.constraints");
54 while (<FILE>) {
55 s/\n//;
56 $db->do("insert or ignore into constraints (str) values ('$_')");
57 }
58 close(FILE);
59
60 open(FILE, "$dir/$project.constraints_required");

--- 23 unchanged lines hidden ---