mirror of
https://github.com/webmin/webmin.git
synced 2026-08-09 09:10:37 +01:00
111 lines
2.8 KiB
Perl
Executable File
111 lines
2.8 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# tree.cgi
|
|
# Display the package tree
|
|
|
|
require './software-lib.pl';
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'index_tree'}, "");
|
|
|
|
# read package list
|
|
$n = &list_packages("ALL");
|
|
|
|
# prcoess openall / closeall actions
|
|
if ( $in{'mode'} eq "closeall" ) {
|
|
&save_heiropen([ ]);
|
|
}
|
|
|
|
if ( $in{'mode'} eq "openall" ) {
|
|
for($i=0; $i<$n; $i++) {
|
|
@w = split(/\//, $packages{$i,'class'});
|
|
for($j=0; $j<@w; $j++) {
|
|
push(@list, join('/', @w[0..$j]));
|
|
}
|
|
}
|
|
local @list = &unique(@list);
|
|
&save_heiropen(\@list);
|
|
}
|
|
|
|
# work out the package hierarchy..
|
|
$spacer = " "x3;
|
|
for($i=0; $i<$n; $i++) {
|
|
push(@pack, $packages{$i,'name'});
|
|
push(@vers, $packages{$i,'version'});
|
|
#push(@svers, $packages{$i,'shortversion'} ||
|
|
# $packages{$i,'version'});
|
|
push(@class, $packages{$i,'class'});
|
|
push(@desc, $packages{$i,'desc'});
|
|
}
|
|
@order = sort { lc($pack[$a]) cmp lc($pack[$b]) } (0 .. $n-1);
|
|
$heir{""} = "";
|
|
foreach $c (sort { $a cmp $b } &unique(@class)) {
|
|
if (!$c) { next; }
|
|
@w = split(/\//, $c);
|
|
$p = join('/', @w[0..$#w-1]); # parent class
|
|
#if (!defined($heir{$p})) {
|
|
# $pp = join('/', @w[0..$#w-2]); # grandparent class
|
|
# $heir{$pp} .= "$p\0";
|
|
# $ppp = join('/', @w[0..$#w-3]); # great-grandparent class
|
|
# if ($ppp || 1) {
|
|
# $heir{$ppp} .= "$pp\0";
|
|
# }
|
|
# }
|
|
$heir{$p} .= "$c\0";
|
|
#$hasclasses++;
|
|
}
|
|
|
|
# get the current open list
|
|
%heiropen = map { $_, 1 } &get_heiropen();
|
|
$heiropen{""} = 1;
|
|
|
|
# traverse the hierarchy
|
|
print "<table width=\"95%\">\n";
|
|
&traverse("", 0);
|
|
print "</table>\n";
|
|
#if ($hasclasses) {
|
|
print &ui_link("ipkg-tree.cgi?mode=closeall", $text{'index_close'});
|
|
print "\n";
|
|
print &ui_link("ipkg-tree.cgi?mode=openall", $text{'index_open'});
|
|
print "<p>\n";
|
|
# }
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|
|
sub traverse
|
|
{
|
|
local($s, $act, $i);
|
|
|
|
# Show the icon and class name
|
|
print "<tr style=\"border-top: 1px solid lightgrey\"> <td>", $spacer x $_[1];
|
|
if ($_[0]) {
|
|
print "<a name=\"$_[0]\"></a>\n";
|
|
$act = $heiropen{$_[0]} ? "close" : "open";
|
|
my $link = "ipkg-$act.cgi?what=".&urlize($_[0]);
|
|
$_[0] =~ /([^\/]+)$/;
|
|
print &ui_link($link, "<img border=0 src='images/$act.gif'>");
|
|
print " $1</td>\n";
|
|
}
|
|
else {
|
|
print "<img src=images/close.gif> <i>$text{'index_all'}</i></td>\n";
|
|
}
|
|
|
|
print "<td><br></td> </tr>\n";
|
|
if ($heiropen{$_[0]}) {
|
|
# print packages followed by sub-folders
|
|
foreach $i (@order) {
|
|
if ($class[$i] eq $_[0]) {
|
|
print "<tr> <td nowrap>", $spacer x ($_[1]+1);
|
|
print "<img border=0 src=images/pack.gif> \n";
|
|
print &ui_link("ipkg-edit_pack.cgi?package=". &urlize($pack[$i]).
|
|
"&version=". &urlize($vers[$i]),
|
|
"<b>".&html_escape($pack[$i]. ($vers[$i] ? " $vers[$i]" : ""))."</b>" );
|
|
print "</td> <td>",&html_escape($desc[$i]),"</td>\n";
|
|
print "</tr>\n";
|
|
}
|
|
}
|
|
foreach $s (&unique(split(/\0+/, $heir{$_[0]}))) {
|
|
&traverse($s, $_[1]+1);
|
|
}
|
|
}
|
|
}
|
|
|