diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-02 17:46:31 +0100 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:08 +0100 |
| commit | ab3be575e6a64ca698684995a02563b3cb82f68a (patch) | |
| tree | 803014c978ada2df1368fe43d3631953edc87617 /infra/dgit-repos-policy-debian | |
| parent | 2d2bbb5a3356b960f18683773c6b370bcce9660f (diff) | |
Implement cron mode for dgit-repos-server and corresponding code in dgit-repos-policy-debian
Diffstat (limited to 'infra/dgit-repos-policy-debian')
| -rwxr-xr-x | infra/dgit-repos-policy-debian | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index 41a5551..3c7c006 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -373,6 +373,21 @@ END return 0; } +sub action_check_list () { + opendir L, "$repos" or die "$repos $!"; + while (defined (my $dent = readdir L)) { + next unless $dent =~ m/^($package_re)\.git$/; + $pkg = $1; + statpackage(); + next unless $pkg_exists; + next unless $pkg_secret; + print "$pkg\n" or die $!; + } + closedir L or die $!; + close STDOUT or die $!; + return 0; +} + $action =~ y/-/_/; my $fn = ${*::}{"action_$action"}; if (!$fn) { |