jeans/motioneyeos
jeans/motioneyeos
1
0
Fork 0
mirror of https://github.com/motioneye-project/motioneyeos.git synced 2025-07-27 13:16:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils/scancpan: generates hashes of license files

Browse Source 
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
This commit is contained in:
Francois Perrad 2018-05-12 09:03:00 +02:00 committed by Thomas Petazzoni
parent d64dd8c78c
commit a12499bf99
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
utils/scancpan
View File

@ -483,6 +483,7 @@ use Module::CoreList;
use HTTP::Tiny; use HTTP::Tiny;
use Safe; use Safe;
use MetaCPAN::API::Tiny; use MetaCPAN::API::Tiny;
use Digest::SHA qw(sha256_hex);
# Below, 5.026 should be aligned with the version of perl actually # Below, 5.026 should be aligned with the version of perl actually
# bundled in Buildroot: # bundled in Buildroot:
@ -519,7 +520,7 @@ my %need_dlopen; # name -> 1 if requires dynamic library
my %deps_build; # name -> list of host dependencies my %deps_build; # name -> list of host dependencies
my %deps_runtime; # name -> list of target dependencies my %deps_runtime; # name -> list of target dependencies
my %deps_optional; # name -> list of optional target dependencies my %deps_optional; # name -> list of optional target dependencies
my %license_files; # name -> list of license files my %license_files; # name -> hash of license files
my %checksum; # author -> list of checksum my %checksum; # author -> list of checksum
my $mirror = 'http://cpan.metacpan.org'; # a CPAN mirror my $mirror = 'http://cpan.metacpan.org'; # a CPAN mirror
my $mcpan = MetaCPAN::API::Tiny->new(base_url => 'http://fastapi.metacpan.org/v1'); my $mcpan = MetaCPAN::API::Tiny->new(base_url => 'http://fastapi.metacpan.org/v1');
@ -556,7 +557,7 @@ sub find_license_files {
if (scalar @license_files == 0 && $manifest =~ m/(README)[\n\s]/i) { if (scalar @license_files == 0 && $manifest =~ m/(README)[\n\s]/i) {
@license_files = ($1); @license_files = ($1);
} }
return \@license_files; return @license_files;
} }
sub fetch { sub fetch {
@ -567,16 +568,19 @@ sub fetch {
say qq{fetch ${name}} unless $quiet; say qq{fetch ${name}} unless $quiet;
my $result = $mcpan->release( distribution => $name ); my $result = $mcpan->release( distribution => $name );
$dist{$name} = $result; $dist{$name} = $result;
$license_files{$name} = {};
eval { eval {
my $manifest = $mcpan->source( author => $result->{author}, my $author = $result->{author};
release => $name . q{-} . $result->{version}, my $release = $name . q{-} . $result->{version};
path => 'MANIFEST' ); my $manifest = $mcpan->source( author => $author, release => $release, path => 'MANIFEST' );
$need_dlopen{$name} = is_xs( $manifest ); $need_dlopen{$name} = is_xs( $manifest );
$license_files{$name} = find_license_files( $manifest ); foreach my $fname (find_license_files( $manifest )) {
my $license = $mcpan->source( author => $author, release => $release, path => $fname );
$license_files{$name}->{$fname} = sha256_hex( $license );
}
}; };
if ($@) { if ($@) {
warn $@; warn $@;
$license_files{$name} = [];
} }
my %build = (); my %build = ();
my %runtime = (); my %runtime = ();
@ -692,7 +696,7 @@ while (my ($distname, $dist) = each %dist) {
$license =~ s|mit|MIT|; $license =~ s|mit|MIT|;
$license =~ s|openssl|OpenSSL|; $license =~ s|openssl|OpenSSL|;
$license =~ s|perl_5|Artistic or GPL-1.0+|; $license =~ s|perl_5|Artistic or GPL-1.0+|;
my $license_files = join q{ }, @{$license_files{$distname}}; my $license_files = join q{ }, keys %{$license_files{$distname}};
say qq{write ${mkname}} unless $quiet; say qq{write ${mkname}} unless $quiet;
open my $fh, q{>}, $mkname; open my $fh, q{>}, $mkname;
say {$fh} qq{################################################################################}; say {$fh} qq{################################################################################};
@ -731,6 +735,13 @@ while (my ($distname, $dist) = each %dist) {
say {$fh} qq{# retrieved by scancpan from ${mirror}/}; say {$fh} qq{# retrieved by scancpan from ${mirror}/};
say {$fh} qq{md5 ${md5} ${filename}}; say {$fh} qq{md5 ${md5} ${filename}};
say {$fh} qq{sha256 ${sha256} ${filename}}; say {$fh} qq{sha256 ${sha256} ${filename}};
if (scalar keys %{$license_files{$distname}}) {
say {$fh} q{};
say {$fh} qq{# computed by scancpan};
while (my ($license, $digest) = each %{$license_files{$distname}}) {
say {$fh} qq{sha256 ${digest} ${license}};
}
}
close $fh; close $fh;
} }
} }
@ -819,7 +830,6 @@ Perl/CPAN distributions required by the specified distnames. The
dependencies and metadata are fetched from https://metacpan.org/. dependencies and metadata are fetched from https://metacpan.org/.
After running this script, it is necessary to check the generated files. After running this script, it is necessary to check the generated files.
You have to manually add the license files (PERL_FOO_LICENSE_FILES variable).
For distributions that link against a target library, you have to add the For distributions that link against a target library, you have to add the
buildroot package name for that library to the DEPENDENCIES variable. buildroot package name for that library to the DEPENDENCIES variable.
@ -831,7 +841,7 @@ in order to work with the right CoreList data.
=head1 LICENSE =head1 LICENSE
Copyright (C) 2013-2017 by Francois Perrad <francois.perrad@gadz.org> Copyright (C) 2013-2018 by Francois Perrad <francois.perrad@gadz.org>
This program is free software; you can redistribute it and/or modify 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 it under the terms of the GNU General Public License as published by