diff options
author | Nicolas Vigier <boklm@mageia.org> | 2011-01-20 16:38:50 +0000 |
---|---|---|
committer | Nicolas Vigier <boklm@mageia.org> | 2011-01-20 16:38:50 +0000 |
commit | 5c6ecec2883da9738911338811b275704f256b1b (patch) | |
tree | a606bb10e47633dc07c5fcb580d3971a8ce989ac | |
parent | abc9a802404902718dc808fdce36f226533f02de (diff) | |
download | mga-youri-submit-5c6ecec2883da9738911338811b275704f256b1b.tar mga-youri-submit-5c6ecec2883da9738911338811b275704f256b1b.tar.gz mga-youri-submit-5c6ecec2883da9738911338811b275704f256b1b.tar.bz2 mga-youri-submit-5c6ecec2883da9738911338811b275704f256b1b.tar.xz mga-youri-submit-5c6ecec2883da9738911338811b275704f256b1b.zip |
add script to sign package
-rwxr-xr-x | mga-signpackage | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/mga-signpackage b/mga-signpackage new file mode 100755 index 0000000..435e92e --- /dev/null +++ b/mga-signpackage @@ -0,0 +1,29 @@ +#!/usr/bin/perl -w + +use strict; +use RPM4::Sign; +use File::Spec; + +sub signpackage { + my ($file, $name, $path) = @_; + + # check if parent directory is writable + my $parent = (File::Spec->splitpath($file))[1]; + die "Unsignable package, parent directory is read-only" + unless -w $parent; + + my $sign = RPM4::Sign->new( + name => $name, + path => $path, + passphrase => '', + ); + + $sign->rpmssign($file) +} + +if (@ARGV != 3) { + exit 1; +} + +signpackage(@ARGV); + |