#!/usr/bin/env perl

use strict;
use warnings;

use Fedora::RPM::Spec::License;

if (@ARGV < 1) {
        print STDERR "Usage: $0 fedora_license_string\n";
        exit 1;
}
my $fedora_license_string = $ARGV[0];

# Object.
my $obj = Fedora::RPM::Spec::License->new;

# Parse license.
$obj->parse($fedora_license_string);

# Print out.
print "Fedora license string: $fedora_license_string\n";
print 'Format: '.$obj->format."\n";
print "Contain licenses:\n";
print join "\n", map { '- '. $_ } $obj->licenses;
print "\n";
if ($obj->exceptions) {
        print "Contain exceptions:\n";
        print join "\n", map { '- '. $_ } $obj->exceptions;
        print "\n";
}

# Output with 'MIT' input:
# Fedora license string: MIT
# Format: 2
# Contain licenses:
# - MIT

# Output with 'MIT AND FSFAP' input:
# Fedora license string: MIT AND FSFAP
# Format: 2
# Contain licenses:
# - FSFAP
# - MIT

# Output with '(GPL+ or Artistic) and Artistic 2.0 and (MIT or GPLv2)' input:
# Fedora license string: (GPL+ or Artistic) and Artistic 2.0 and (MIT or GPLv2)
# Format: 1
# Contain licenses:
# - Artistic
# - Artistic 2.0
# - GPL+
# - GPLv2
# - MIT

# Output with 'LGPL-3.0-only WITH LGPL-3.0-linking-exception' input:
# Fedora license string: LGPL-3.0-only WITH LGPL-3.0-linking-exception
# Format: 2
# Contain licenses:
# - LGPL-3.0-only
# Contain exceptions:
# - LGPL-3.0-linking-exception