mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
74 lines
2.4 KiB
Perl
Executable File
74 lines
2.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Lists all installed packages
|
|
|
|
require './software-lib.pl';
|
|
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
|
|
&help_search_link(defined(&package_help) ? ( &package_help() ) : ( ),
|
|
"man", "doc"));
|
|
|
|
# Show package search and list forms
|
|
print &ui_subheading($text{'index_installed'});
|
|
print "<table width=100%><tr><form action=search.cgi>\n";
|
|
print "<td><input type=submit value=\"$text{'index_search'}\">\n";
|
|
print "<input name=search size=30></td>\n";
|
|
print "<input type=hidden name=goto value=1>\n";
|
|
print "</form>\n";
|
|
|
|
print "<form action=tree.cgi>\n";
|
|
print "<td align=right><input type=submit value='$text{'index_tree'}'></td>\n";
|
|
print "</form></tr></table>\n";
|
|
|
|
# Show form to install a new package
|
|
print "<hr>\n";
|
|
print &ui_subheading($text{'index_install'});
|
|
print &text('index_installmsg', &package_system()),"<p>\n";
|
|
|
|
$upid = time().$$;
|
|
print &ui_form_start("install_pack.cgi?id=$upid", "form-data", undef,
|
|
&read_parse_mime_javascript($upid, [ "upload" ])),"\n";
|
|
print &ui_oneradio("source", 0, $text{'index_local'}, 1),"\n",
|
|
&ui_textbox("local", undef, 50),"\n",
|
|
&file_chooser_button("local", 0, 2),"<br>\n";
|
|
|
|
print &ui_oneradio("source", 1, $text{'index_uploaded'}, 0),"\n",
|
|
&ui_upload("upload", 20),"<br>\n";
|
|
|
|
print &ui_oneradio("source", 2, $text{'index_ftp'}, 0),"\n",
|
|
&ui_textbox("url", undef, 50),"\n";
|
|
print &search_system_input() if ($has_search_system);
|
|
print "<br>\n";
|
|
|
|
if ($has_update_system) {
|
|
print &ui_oneradio("source", 3, $text{$update_system.'_input'}, 0),"\n",
|
|
&ui_textbox("update", undef, 30),"\n",
|
|
&update_system_button("update", $text{$update_system.'_find'});
|
|
if (defined(&show_update_system_opts) &&
|
|
($opts = &show_update_system_opts())) {
|
|
print "<br>",(" " x 5),$opts,"\n";
|
|
}
|
|
print "<br>\n";
|
|
}
|
|
print &ui_submit($text{'index_installok'}),"\n";
|
|
print &ui_form_end();
|
|
|
|
# Show search form by file, if supported by package system
|
|
if (!$no_package_filesearch) {
|
|
print "<hr>\n";
|
|
print &ui_subheading($text{'index_ident'});
|
|
print &text('index_identmsg', &package_system()),"<p>\n";
|
|
print "<form action=file_info.cgi>\n";
|
|
print "<input type=submit value=\"$text{'index_identok'}\">\n";
|
|
print "<input name=file size=30>\n";
|
|
print &file_chooser_button("file", 0, 3);
|
|
print "</form>\n";
|
|
}
|
|
|
|
if ($has_update_system && defined(&update_system_form)) {
|
|
print "<hr>\n";
|
|
&update_system_form();
|
|
}
|
|
|
|
&ui_print_footer("/", $text{'index'});
|
|
|