#!/usr/bin/perl -w
#
# does signing of files
#
use strict;

sub
sign($) {
	my @files = @_;

	foreach my $file (@files) {
		unlink("$file.asc");
		system("gpg --detach-sign -a $file") && die "could not sign $file?:$!";
	}
}

sub
hash($) {
	my @files = @_;

	foreach my $file (@files) {
		unlink("$file.sha256");
		system("sha256sum $file > $file.sha256") && die "could not sha256sum $file?:$!";
	}
}

1;