mirror of
https://github.com/webmin/webmin.git
synced 2025-08-17 19:06:28 +00:00
17 lines
333 B
Perl
Executable File
17 lines
333 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# openall.cgi
|
|
# Add all classes to the open list
|
|
|
|
require './software-lib.pl';
|
|
$n = &list_packages();
|
|
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("tree.cgi");
|
|
|