diff options
Diffstat (limited to 'bin/buildd-uploader')
| -rwxr-xr-x | bin/buildd-uploader | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/bin/buildd-uploader b/bin/buildd-uploader new file mode 100755 index 0000000..de172f0 --- /dev/null +++ b/bin/buildd-uploader @@ -0,0 +1,51 @@ +#!/usr/bin/perl +# +# buildd-uploader: upload finished packages for buildd +# Copyright © 1998 Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de> +# Copyright © 2009 Roger Leigh <rleigh@debian.org> +# Copyright © 2005 Ryan Murray <rmurray@debian.org> +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see +# <http://www.gnu.org/licenses/>. +# +####################################################################### + +use strict; +use warnings; + +use Buildd qw(unlock_file); +use Buildd::Conf qw(); +use Buildd::Uploader; +use Sbuild::OptionsBase; + +my $conf = Buildd::Conf::new(); +exit 1 if !defined($conf); +my $options = Sbuild::OptionsBase->new($conf, "buildd-uploader", "1"); +exit 1 if !defined($options); +my $uploader = Buildd::Uploader->new($conf); +exit 1 if !defined($uploader); + +my $status = $uploader->run(); + +$uploader->close_log(); + +exit $status; + +END { + unlock_file($conf->get('HOME') . "/buildd-uploader") + if (defined($conf) && + defined($uploader) && + defined($uploader->get('Uploader Lock')) && + $uploader->get('Uploader Lock')); +} |