mirror of
https://github.com/webmin/webmin.git
synced 2026-04-12 04:10:19 +01:00
17 lines
343 B
Perl
Executable File
17 lines
343 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# openall.cgi
|
|
# Add all classes to the open list
|
|
|
|
require './software-lib.pl';
|
|
$n = &list_packages("ALL");
|
|
for($i=0; $i<$n; $i++) {
|
|
@w = split(/\//, $packages{$i,'class'});
|
|
for($j=0; $j<@w; $j++) {
|
|
push(@list, join('/', @w[0..$j]));
|
|
}
|
|
}
|
|
@list = &unique(@list);
|
|
&save_heiropen(\@list);
|
|
&redirect("ipkg-tree.cgi");
|
|
|