~bhavi/ubuntu-app-review-board/lintian-arb_profile

# arb-check-source -- lintian check script -*- perl -*-

 

# Copyright (C) 2012 Bhavani Shankar <bhavi@ubuntu.com> 

#

# - Based on arb-lint by Daniel Holbach

#

# 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, you can find it on the World Wide

# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free

# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,

# MA 02110-1301, USA.

 

package Lintian::ubuntu::arb::arb_check_source;

 

use strict;

use warnings;

 

use Lintian::Tags qw(tag);

use Lintian::Relation;

 

sub run {

    my ($pkg, undef, $info, $proc, $group) = @_;

    my $qpkg = quotemeta ($pkg);

    my ($src) = $group->get_source_processable;

    my @entries = ();

    @entries = $info->changelog->data if $info->changelog;

    

    # Check for multiple changelog entries

    if (@entries) {

    my %versions;

    for my $entry (@entries) {

    $versions{$entry->Version} = 1 if defined $entry->Version;

    }   

}

 

    if (@entries > 1) {

    tag 'arb-app-has-multiple-changelog-entries';

   }

   # Check for conflicts, replaces and breaks field

    foreach my $fname (qw(conflicts replaces breaks)) {

       if (defined $info->field ($fname)) {

           tag 'field-not-allowed-in-arb-app', $fname;

       }

   }

  # Check for deprecated python installations

  my $bdepends = $info->relation ('build-depends-all'); {

  tag 'arb-app-has-deprecated-python-installation' if ($bdepends->implies('python-support | python-central'))   

  }

}

 

1;