michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add support for provides in module info

Browse Source
This commit is contained in:
Ilia Ross
2025-02-26 12:53:05 +02:00
parent acfc2b1c1f
commit 722ff23d86
2 changed files with 19 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
makemoduledeb.pl
View File

@@ -28,9 +28,9 @@ my $files_file = "$debian_dir/files";
die RED, "makemoduledeb.pl must be run on Debian", RESET;
# Parse command-line args
my ($force_theme, $url, $upstream, $debdepends, $debrecommends, $no_prefix,
$force_usermin, $release, $allow_overwrite, $final_mod, $dsc_file, $dir,
$ver, @exclude);
my ($force_theme, $url, $upstream, $provides, $debdepends, $debrecommends,
$no_prefix, $force_usermin, $release, $allow_overwrite, $final_mod,
$dsc_file, $dir, $ver, @exclude);
while(@ARGV) {
my $a = shift(@ARGV);
@@ -49,6 +49,9 @@ while(@ARGV) {
elsif ($a eq "--upstream") {
$upstream = shift(@ARGV);
}
elsif ($a eq "--provides") {
$provides = shift(@ARGV);
}
elsif ($a eq "--deb-depends") {
$debdepends = 1;
}
@@ -102,7 +105,7 @@ if (!$dir) {
print " [--licence name]\n";
print " [--email 'name <address>']\n";
print " [--upstream 'name <address>']\n";
print " [--provides provides]\n";
print " [--provides 'name1 name2']\n";
print " [--usermin]\n";
print " [--target-dir directory]\n";
print " [--dir directory-in-package]\n";
@@ -266,6 +269,13 @@ if ($debrecommends && exists($minfo{'recommends'})) {
}
}
# If module has 'provides', consider it too
$provides .= ($provides ? " " : "") . "$prefix$mod";
$provides .= ($provides ? " " : "") . $minfo{'provides'}
if (exists($minfo{'provides'}));
my @provides = split(/\s+/, $provides);
$provides = join(", ", @provides);
# Create the control file
my $kbsize = int(($size-1) / 1024)+1;
open(my $CONTROL, ">", "$control_file");
@@ -283,7 +293,7 @@ print $CONTROL <<EOF;
Pre-Depends: bash, perl
Installed-Size: $kbsize
Maintainer: $email
Provides: $prefix$mod
Provides: $provides
Description: $desc
EOF
close($CONTROL);