X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=Debian%2FDgit%2FPolicy%2FDebian.pm;fp=Debian%2FDgit%2FPolicy%2FDebian.pm;h=03118b1d5ebbfe78a16ab37f314fd0afe045246a;hp=0000000000000000000000000000000000000000;hb=323e5e59ee548bf44cc2cb9a584cb1c3edcabe3f;hpb=637c65f6a92e5a8436661ef0898079c0c0a104b0

diff --git a/Debian/Dgit/Policy/Debian.pm b/Debian/Dgit/Policy/Debian.pm
new file mode 100644
index 00000000..03118b1d
--- /dev/null
+++ b/Debian/Dgit/Policy/Debian.pm
@@ -0,0 +1,39 @@
+# -*- perl -*-
+
+package Debian::Dgit::Policy::Debian;
+
+use strict;
+use warnings;
+
+use POSIX;
+
+BEGIN {
+    use Exporter   ();
+    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+    $VERSION     = 1.00;
+    @ISA         = qw(Exporter);
+    @EXPORT      = qw(poldb_path poldb_setup $poldbh);
+    %EXPORT_TAGS = ( );
+    @EXPORT_OK   = qw();
+}
+
+our @EXPORT_OK;
+
+our $poldbh;
+
+sub poldb_path ($) {
+    my ($repos) = @_;
+    return "$repos/policy.sqlite3";
+}
+
+sub poldb_setup ($) {
+    my ($policydb) = @_;
+
+    $poldbh ||= DBI->connect("dbi:SQLite:$policydb",'','', {
+	RaiseError=>1, PrintError=>1, AutoCommit=>0
+			   });
+    $poldbh->do("PRAGMA foreign_keys = ON");
+}
+
+1;