#!/usr/bin/perl -w
# dgit repos policy admin script for Debian
+use strict;
+
+use Debian::Dgit;
+setup_sigwarn();
+
our $usage = <<'END';
usage:
dgit-repos-admin-debian [<options>] operation...
untaint [--global|<package>] <gitobjid>
END
-use strict;
use POSIX;
use DBI;
-use Debian::Dgit;
use Debian::Dgit::Policy::Debian;
sub badusage ($) { die "bad usage: $_[0]\n$usage"; }
ON taints (gitobjid, package)
END
# any one of of the listed deliberatelies will override its taint
+ # the field `deliberately' contains `--deliberately-blah-blah',
+ # not just `blah blah'.
$poldbh->do(<<END);
CREATE TABLE IF NOT EXISTS taintoverrides (
taint_id INTEGER NOT NULL