summaryrefslogtreecommitdiffstats
path: root/script/perlpkg.pl
blob: 8c20f226e55d5c1c4d8a450c000952c45dadc1e4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/bin/env perl

use v5.24;

use warnings;
use strict;

use Function::Parameters;
use Log::Any::Adapter;
use Log::Log4perl qw(:easy);
use Path::Tiny;
use TOML qw(from_toml);

use App::ArchLinux::PackagerTools;

=head1 NAME

perlpkg.pl - Script to support perl packaging on Arch Linux

=head1 SYNOPSIS

  perlpkg.pl [options]

  Options:
    --debug

=head1 DESCRIPTION

TODO

=head1 CONFIGURATION

To configure the script create a file called $XDG_CONFIG_HOME/perlpkg/config.toml.

The configuration file is not yet used/read.

TODO

=head1 SEE ALSO

L<App::ArchLinux::PackagerTools>

=cut

#my $config = from_toml(path(($ENV{XDG_CONFIG_HOME} // $ENV{HOME}."/.config")."/perlpkg/config.toml")->slurp);

Log::Log4perl->easy_init($ERROR);
if ($ARGV[0] // "" eq "--debug") {
	Log::Log4perl->easy_init($TRACE);
} else {
	Log::Log4perl->easy_init($INFO);
}
Log::Any::Adapter->set('Log4perl');

my $app = App::ArchLinux::PackagerTools->new();

use Data::Dumper;
my $dists = $app->get_distributions_in_repo();
my $dist_names = [map {$_->{dist_name}} $dists->@*];
my $updateable = $app->get_updateable_packages($dist_names);
my $pkgs = $app->add_maintainers($updateable);

# TODO generate new pacakge pkgbuild
# TODO build
# TODO release