chop($pwd = `pwd`);
# Parse command-line options
-if ($ARGV[0] eq "--dir") {
- shift(@ARGV);
- $forcedir = shift(@ARGV);
+while(@ARGV) {
+ if ($ARGV[0] eq "--dir") {
+ shift(@ARGV);
+ $forcedir = shift(@ARGV);
+ }
+ elsif ($ARGV[0] eq "--sign") {
+ shift(@ARGV);
+ $createsig = 1;
+ }
+ else {
+ last;
+ }
}
$file = shift(@ARGV);
$subdir = $forcedir || $mod;
$copydir = "/tmp/create-module/$subdir";
system("rm -rf $copydir");
- system("cp -r -L $mod $copydir");
+ system("cp -r -L $mod $copydir 2>/dev/null || cp -R -L $mod $copydir");
# Find type from .info file
undef(%minfo);
unlink("/tmp/create-module/$subdir/IDEAS");
system("cd /tmp/create-module && find . -name \\*.svn-work | xargs rm -rf");
system("cd /tmp/create-module && find . -name \\*.svn-base | xargs rm -rf");
- system("cd /tmp/create-module && find . -name \\*.cgi | xargs -r chmod +x");
- system("cd /tmp/create-module && find . -name \\*.pl | xargs -r chmod +x");
+ system("cd /tmp/create-module && find . -name \\*.cgi | xargs chmod +x");
+ system("cd /tmp/create-module && find . -name \\*.pl | xargs chmod +x");
system("cd /tmp/create-module && tar $flags $file $subdir") && die "Failed to create tar file";
}
if ($file =~ /^(.*)\.gz$/i) {
system("gzip -c $1 >$file");
unlink("$1");
}
+if ($createsig) {
+ system("rm -f $file-sig.asc");
+ system("gpg --armor --output $file-sig.asc --detach-sig $file");
+ }
# read_file(file, &assoc, [&order], [lowercase])
# Fill an associative array with name=value pairs from a file