mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
67 lines
2.3 KiB
Perl
Executable File
67 lines
2.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# list_pack.cgi
|
|
# List all the files in some package
|
|
|
|
require './cluster-software-lib.pl';
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'list_title'}, "");
|
|
|
|
@servers = &list_servers();
|
|
($s) = grep { $_->{'id'} == $in{'server'} } @servers;
|
|
&remote_foreign_require($s->{'host'}, "software", "software-lib.pl");
|
|
|
|
print &ui_subheading(&text('list_files', "<tt>$in{'package'}</tt>",
|
|
$s->{'desc'} ? $s->{'desc'} : $s->{'host'}));
|
|
print "<table class='table table-striped table-hover table-condensed' width=100%>\n";
|
|
print "<thead><tr><th>$text{'list_path'}</th> ",
|
|
"<th>$text{'list_owner'}</th> ",
|
|
"<th>$text{'list_group'}</th> ",
|
|
"<th>$text{'list_type'}</th> ",
|
|
"<th>$text{'list_size'}</th> ",
|
|
"<th>$text{'list_status'}</th> </tr></thead><tbody>\n";
|
|
$n = &remote_foreign_call($s->{'host'}, "software",
|
|
"check_files", $in{'package'});
|
|
$files = &remote_eval($s->{'host'}, "software", "\\%files");
|
|
for($i=0; $i<$n; $i++) {
|
|
$sz = $files->{$i,'size'};
|
|
$ty = $files->{$i,'type'};
|
|
print "<tr>\n";
|
|
if ($ty == 3 || $ty == 4) {
|
|
print "<td valign=top>$files->{$i,'path'} -> ",
|
|
"$files->{$i,'link'}</td>\n";
|
|
print "<td><br></td> <td><br></td>\n";
|
|
}
|
|
else {
|
|
print "<td valign=top><table width=100% cellpadding=0 ",
|
|
"cellspacing=0><tr><td>",
|
|
"$files->{$i,'path'}</td> <td align=right>\n";
|
|
if ($ty == 0 || $ty == 5) {
|
|
print "<a href='view.cgi",$files->{$i,'path'},
|
|
"'>$text{'list_view'}</a>";
|
|
}
|
|
print "</td></tr>","</table></td>\n";
|
|
print "<td valign=top>$files->{$i,'user'}</td>\n";
|
|
print "<td valign=top>$files->{$i,'group'}</td>\n";
|
|
}
|
|
print "<td valign=top>$software::type_map[$ty]</td>\n";
|
|
if ($ty != 0) { $sz = "<br>"; }
|
|
elsif ($sz > 1000000) { $sz = sprintf "%d MB", $sz/1000000; }
|
|
elsif ($sz > 1000) { $sz = sprintf "%d kB", $sz/1000; }
|
|
else { $sz .= " B"; }
|
|
print "<td valign=top>$sz</td>\n";
|
|
$err = $files->{$i,'error'};
|
|
if ($err) {
|
|
$err =~ s/</</g;
|
|
$err =~ s/>/>/g;
|
|
$err =~ s/\n/<br>/g;
|
|
print "<td valign=top><font color=#ff0000>$err</font></td>\n";
|
|
}
|
|
else { print "<td valign=top>$text{'list_ok'}</td>\n"; }
|
|
print "</tr>\n";
|
|
}
|
|
print "</tbody></table><p>\n";
|
|
|
|
&remote_finished();
|
|
&ui_print_footer("edit_pack.cgi?package=".&urlize($in{'package'})."&search=".&urlize($in{'search'}), $text{'edit_return'});
|
|
|