\n";
print " $text{'edit_desc'} | \n";
print "",$mod->{'desc'}," | \n";
print "$text{'edit_ver'} | \n";
print "",$mod->{'version'} ? $mod->{'version'}
: $text{'edit_nover'}," | \n";
if ($type eq 'mod') {
# Show details of module
foreach $m (@{$checkonh->{'modules'}}) {
$modmap{$m->{'dir'}} = $m;
foreach $d (split(/\s+/, $m->{'depends'})) {
push(@{$ondeps{$d}}, $m);
}
}
&read_file("$usermin::config{'usermin_dir'}/webmin.catnames",
\%catnames);
%utext = &get_usermin_text();
print " $text{'edit_cat'} | \n";
$c = $mod->{'category'};
print "",$catname{$c} ? $catname{$c} :
$utext{"category_$c"} ? $utext{"category_$c"} :
$utext{"category_"}," | \n";
print "$text{'edit_dir'} | \n";
print "$mod->{'dir'} | \n";
# Show operating systems
print " $text{'edit_os'} | \n";
print "\n";
$oss = $mod->{'os_support'};
if (!$oss) {
print $text{'edit_osall'};
}
else {
open(OSLIST, "$root_directory/os_list.txt");
while() {
chop;
if (/^([^\t]+)\t+([^\t]+)\t+(\S+)\t+(\S+)\t*(.*)$/) {
$osname{$3} = $1 if (!$osname{$3});
}
}
close(OSLIST);
$osname{"*-linux"} = "Linux";
while(1) {
local ($os, $ver, $codes);
if ($oss =~ /^([^\/\s]+)\/([^\{\s]+)\{([^\}]*)\}\s*(.*)$/) {
$os = $1; $ver = $2; $codes = $3; $oss = $4;
}
elsif ($oss =~ /^([^\/\s]+)\/([^\/\s]+)\s*(.*)$/) {
$os = $1; $ver = $2; $oss = $3;
}
elsif ($oss =~ /^([^\{\s]+)\{([^\}]*)\}\s*(.*)$/) {
$os = $1; $codes = $2; $oss = $3;
}
elsif ($oss =~ /^\{([^\}]*)\}\s*(.*)$/) {
$codes = $1; $oss = $2;
}
elsif ($oss =~ /^(\S+)\s*(.*)$/) {
$os = $1; $oss = $2;
}
else { last; }
print " , \n" if ($doneone++);
$osn = $osname{$os} ? $osname{$os} : $os;
$osn =~ s/\s/ /g;
if ($ver) {
print "$osn $ver";
}
elsif ($os) {
print "$osn";
}
if ($codes) {
$codes =~ s/\s/ /g;
if ($os) {
print " (",&text('edit_codes',
"$codes"),")";
}
else {
print &text('edit_codes',
"$codes");
}
}
}
}
print " | \n";
# Show which modules this module depends upon
local @deps = grep { !/^[0-9\.]+$/ } split(/\s+/, $mod->{'depends'});
local @pdeps = split(/\s+/, $mod->{'perldepends'});
print " $text{'edit_deps'} | \n";
print "\n";
if (@deps || @pdeps) {
foreach $d (@deps) {
local $mm = $modmap{$d};
print $mm->{'desc'}," ($mm->{'dir'}) \n";
}
foreach $d (@pdeps) {
print &text('edit_pdep', "$d")," \n";
}
}
else {
print "$text{'edit_nodeps'}\n";
}
print " | \n";
# Show which other modules depend on this one
print "$text{'edit_ondeps'} | \n";
print "\n";
if ($ondeps{$mod->{'dir'}}) {
foreach $d (@{$ondeps{$mod->{'dir'}}}) {
print $d->{'desc'}," ($d->{'dir'}) \n";
}
}
else {
print "$text{'edit_nodeps'}\n";
}
print " | \n";
}
else {
# Show details of theme
}
print " |