mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
67 lines
1.9 KiB
Perl
Executable File
67 lines
1.9 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# list_pack.cgi
|
|
# List all the files in some package
|
|
|
|
require './software-lib.pl';
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'list_title'}, "", "list_pack");
|
|
|
|
print &ui_subheading(&text('list_files', "<tt>$in{'package'}</tt>"));
|
|
print &ui_columns_start([
|
|
$text{'list_path'},
|
|
$text{'list_owner'},
|
|
$text{'list_group'},
|
|
$text{'list_type'},
|
|
$text{'list_size'},
|
|
$text{'list_status'} ], 100);
|
|
$n = &check_files($in{'package'}, $in{'version'});
|
|
@tds = ( "valign=top", "valign=top", "valign=top",
|
|
"valign=top", "valign=top", "valign=top" );
|
|
for($i=0; $i<$n; $i++) {
|
|
$sz = $files{$i,'size'};
|
|
$ty = $files{$i,'type'};
|
|
local @cols;
|
|
$ls = "<a href=\"file_info.cgi?file=".&urlize($files{$i,'path'})."\">";
|
|
$le = "</a>";
|
|
if ($ty == 3 || $ty == 4) {
|
|
# Hard or soft link
|
|
push(@cols, $ls.&html_escape($files{$i,'path'}).
|
|
" -> ".&html_escape($files{$i,'link'}).$le);
|
|
push(@cols, "", "");
|
|
}
|
|
else {
|
|
$table = "<table width=100% cellpadding=0 ".
|
|
"cellspacing=0><tr><td>$ls".
|
|
&html_escape($files{$i,'path'}).
|
|
"$le</td> <td align=right>\n";
|
|
if ($ty == 0 || $ty == 5) {
|
|
$table .= "<a href='view.cgi".
|
|
&html_escape($files{$i,'path'}).
|
|
"'>$text{'list_view'}</a>";
|
|
}
|
|
$table .= "</td></tr></table>";
|
|
push(@cols, $table);
|
|
push(@cols, &html_escape($files{$i,'user'}));
|
|
push(@cols, &html_escape($files{$i,'group'}));
|
|
}
|
|
push(@cols, $type_map[$ty]);
|
|
push(@cols, $ty != 0 ? "" : &nice_size($sz));
|
|
$err = $files{$i,'error'};
|
|
if ($err) {
|
|
$err =~ s/</</g;
|
|
$err =~ s/>/>/g;
|
|
$err =~ s/\n/<br>/g;
|
|
push(@cols, "<font color=#ff0000>$err</font>");
|
|
}
|
|
else {
|
|
push(@cols, $text{'list_ok'});
|
|
}
|
|
print &ui_columns_row(\@cols, \@tds);
|
|
}
|
|
print &ui_columns_end();
|
|
|
|
&ui_print_footer("edit_pack.cgi?package=".&urlize($in{'package'}).
|
|
"&version=".&urlize($in{'version'}), $text{'edit_return'},
|
|
"tree.cgi", $text{'index_treturn'});
|
|
|