ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-09 10:39:02 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add "list" and usage to modulemanager [danieldg]

Browse Source 
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@10465 e03df62e-2008-0410-955e-edbf42e46eb7
This commit is contained in:
w00t 2008-09-07 23:19:55 +00:00
parent bfff438589
commit 76d8c58f09
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
modulemanager
View File

@ -118,8 +118,8 @@ sub ver_in_range {
return 1 unless defined $range; return 1 unless defined $range;
if ($range =~ /(.*)-(.*)/) { if ($range =~ /(.*)-(.*)/) {
my($l,$h) = ($1,$2); my($l,$h) = ($1,$2);
return 0 unless ver_cmp($ver, $l) >= 0; return 0 if $l && ver_cmp($ver, $l) < 0;
return 0 unless ver_cmp($ver, $h) <= 0; return 0 if $h && ver_cmp($ver, $h) > 0;
return 1; return 1;
} }
return !ver_cmp($ver, $range); return !ver_cmp($ver, $range);
@ -211,8 +211,32 @@ if ($action eq 'install') {
%todo = %saved; %todo = %saved;
} }
} }
} elsif ($action eq 'list') {
my @all = sort keys %modules;
for my $mod (@all) {
my @vers = sort { ver_cmp() } keys %{$modules{$mod}};
my $desc = '';
for my $ver (@vers) {
# latest defined description wins
$desc = $modules{$mod}{$ver}{description} || $desc;
}
next if @vers == 1 && $modules{$mod}{$vers[0]}{url} eq 'NONE';
my $instver = $installed{$mod} || '';
my $vers = join ' ', map { $_ eq $instver ? "\e[1m$_\e[m" : $_ } @vers;
print "$mod ($vers) - $desc\n";
}
} else { } else {
die "Unknown action $action" print <<ENDUSAGE
Use: $0 <action> <args>
Action is one of the following
install install new modules
upgrade upgrade installed modules
list lists available modules
For installing a package, specify its name or name=version to force the
installation of a specific version.
ENDUSAGE
;exit 1;
} }
resolve_deps(0); resolve_deps(0);