OLD | NEW |
(Empty) | |
| 1 # Copyright © 2008 Raphaël Hertzog <hertzog@debian.org> |
| 2 # |
| 3 # This program is free software; you can redistribute it and/or modify |
| 4 # it under the terms of the GNU General Public License as published by |
| 5 # the Free Software Foundation; either version 2 of the License, or |
| 6 # (at your option) any later version. |
| 7 # |
| 8 # This program is distributed in the hope that it will be useful, |
| 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 11 # GNU General Public License for more details. |
| 12 # |
| 13 # You should have received a copy of the GNU General Public License |
| 14 # along with this program. If not, see <https://www.gnu.org/licenses/>. |
| 15 |
| 16 package Dpkg::Source::Package::V3::Custom; |
| 17 |
| 18 use strict; |
| 19 use warnings; |
| 20 |
| 21 our $VERSION = '0.01'; |
| 22 |
| 23 use parent qw(Dpkg::Source::Package); |
| 24 |
| 25 use Dpkg; |
| 26 use Dpkg::Gettext; |
| 27 use Dpkg::ErrorHandling; |
| 28 |
| 29 our $CURRENT_MINOR_VERSION = '0'; |
| 30 |
| 31 sub parse_cmdline_option { |
| 32 my ($self, $opt) = @_; |
| 33 if ($opt =~ /^--target-format=(.*)$/) { |
| 34 $self->{options}{target_format} = $1; |
| 35 return 1; |
| 36 } |
| 37 return 0; |
| 38 } |
| 39 sub do_extract { |
| 40 error(_g("Format `3.0 (custom)' is only used to create source packages")); |
| 41 } |
| 42 |
| 43 sub can_build { |
| 44 my ($self, $dir) = @_; |
| 45 |
| 46 return (0, _g('no files indicated on command line')) |
| 47 unless scalar(@{$self->{options}{ARGV}}); |
| 48 return 1; |
| 49 } |
| 50 |
| 51 sub do_build { |
| 52 my ($self, $dir) = @_; |
| 53 # Update real target format |
| 54 my $format = $self->{options}{target_format}; |
| 55 error(_g('--target-format option is missing')) unless $format; |
| 56 $self->{fields}{'Format'} = $format; |
| 57 # Add all files |
| 58 foreach my $file (@{$self->{options}{ARGV}}) { |
| 59 $self->add_file($file); |
| 60 } |
| 61 } |
| 62 |
| 63 1; |
OLD | NEW |