data/usr/bin/pkgkde-getbuildlogs
Perl rmdir directory deletion callFailed logs storage key
SHA-2566161f99765e9a23006a2b81c5e30b34624747aa66ab323c9597a7811565385eb
MaleculeH₂(Cm₂F)
Evidence
1#!/usr/bin/perl
2
3# Copyright (C) 2010 Modestas Vainius <[email protected]>
4#
5# This program is free software: you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation, either version 3 of the License, or
8# (at your …
8:35… on.
9#
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13# GNU General Public License for more details.
14#
⋯10 lines
192:13… uct index URL
193 if (defined $distro) {
194 $url = construct_url('https://buildd.debian.org/status/package.php',
195 p => $pkg, suite => $distro);
196 } elsif (defined $opts{ver}) {
197 if (scalar(@arches) == 1 && scalar(@vers) == 1) {
198 $url = construct_url('https://buildd.debian.org/build.php',
199 pkg => $pkg, ver => \@vers, arch => \@arches);
200 } else {
201 # Only single ver + single arch query is supported by build.p …
344:6… s (-d $opt_destdir) {
345 mkdir $opt_destdir;
346}
347
348my ($ok_logs, $failed_logs) =
349 download_logs($opt_package, overwrite => $opt_force, destdir => $opt_destdir,
350 distro => $opt_distro, ver => \@opt_versi …
356:7… ror "no build logs referenced in the build log index";
357}
358
359END {
360 rmdir $opt_destdir if $opt_destdir && $opt_destdir ne ".";
361}
362
363exit 0
364
365# vim: noexpandtab tabstop=8 shiftwidth=4