| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/software/ |
Upload File : |
#!/usr/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 = "file_info.cgi?file=".&urlize($files{$i,'path'});
$le = "</a>";
if ($ty == 3 || $ty == 4) {
# Hard or soft link
push(@cols, &ui_link($ls, &html_escape($files{$i,'path'}).
" -> ".&html_escape($files{$i,'link'})) );
push(@cols, "", "");
}
else {
$table = "<table width=100% cellpadding=0 cellspacing=0><tr><td>".
&ui_link($ls, &html_escape($files{$i,'path'}) ).
"</td><td align=right>\n";
if ($ty == 0 || $ty == 5) {
$table .= &ui_link("view.cgi".
&html_escape($files{$i,'path'}), $text{'list_view'});
}
$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'});