print "$error</ul>\n$text{'gencert_pleasefix'}\n";
}
-print "<hr>\n";
+print &ui_hr();
&print_cert_form("gencert");
-print "<hr>\n";
+print &ui_hr();
&footer("", $text{'index_return'});
sub process{
$outfile=&tempname();
if (((-e $in{'certfile'})||(-e $in{'keyfile'})||(-e $in{'keycertfile'}))&&($in{'overwrite'} ne "yes")) {
&overwriteprompt();
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
}
unlink($outfile);
unlink($conffilename);
- print "<hr>\n";
+ print &ui_hr();
if ($error){ print "<b>$text{'gencert_e_genfailed'}</b>\n<pre>$error</pre>\n<hr>\n";}
else {
print "<b>$text{'gencert_genworked'}</b>\n<pre>$out</pre>\n";
if (-e $in{'keycertfile'}) {
print "<b>$text{'gencert_saved_keycert'} <a href=$url>$in{'keyfile'}</a></b><br>\n";
}
- print "<hr>\n";
+ print &ui_hr();
}
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
}
if (!$in{'emailAddress'}) { $in{'emailAddress'}=$config{'default_email'}; }
}
-print "<hr>\n";
+print &ui_hr();
&print_cert_form("gencsr");
-print "<hr>\n";
+print &ui_hr();
&footer("", $text{'index_return'});
sub process{
$outfile=&tempname();
if (((-e $in{'csrfile'})||(-e $in{'keyfile'}))&&($in{'overwrite'} ne "yes")) {
&overwriteprompt();
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
}
unlink($outfile);
unlink($conffilename);
- print "<hr>\n";
+ print &ui_hr();
if ($error){ print "<b>$text{'gencsr_e_genfailed'}</b>\n<pre>$error</pre>\n<hr>\n";}
else {
print "<b>$text{'gencsr_genworked'}</b>\n<pre>$out</pre>\n";
$url="\"view.cgi?keyfile=".&my_urlize($in{'keyfile'}).'"';
print "<b>$text{'gencert_saved_key'} <a href=$url>$in{'keyfile'}</a></b><br>\n";
}
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
}
close(FILE);
if ($type eq "cert") { chmod(0644,$filename); }
elsif ($type eq "key") { chmod(0400,$filename); }
- print "<hr>\n";
+ print &ui_hr();
print "<h4>File $filename uploaded successfully</h4>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'import_return'});
}
print "</td><td><a href=$p.cgi>$txt</a></td></tr>\n";
}
print "</table></td></tr></table>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("/", $text{'index_index'});
print "$error</ul>\n$text{'gencert_pleasefix'}\n";
}
-print "<hr>\n";
+print &ui_hr();
&print_sign_form("signcsr");
-print "<hr>\n";
+print &ui_hr();
&footer("", $text{'index_return'});
sub process{
}
if ((-e $in{'signfile'})&&($in{'overwrite'} ne "yes")) {
&overwriteprompt();
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
$error=0;
chmod(0400,$in{'signfile'});
}
- print "<hr>\n";
+ print &ui_hr();
if ($error){ print "<b>$text{'signcsr_e_signfailed'}</b>\n<pre>$error</pre>\n<hr>\n";}
else {
print "<b>$text{'signcsr_worked'}</b>\n<pre>$out</pre>\n";
$url="\"view.cgi?certfile=".&my_urlize($in{'signfile'}).'"';
print "<b>$text{'signcsr_saved_cert'} <a href=$url>$in{'signfile'}</a></b><br>\n";
- print "<hr>\n";
+ print &ui_hr();
}
&footer("", $text{'index_return'});
}
if ($in{'dl'} ne "yes" && $in{'pkcs12'} ne "yes") {
&header($text{'view_title'}, "");
- print "<hr>\n";
+ print &ui_hr();
}
if ($in{'delete'} eq "yes"){
if ($in{'keyfile'}) { $file=$in{'keyfile'} }
else {&print_key_info(1,$buffer);}
print "</td></tr></table>\n";
&download_form("keyfile", $in{'keyfile'}, $text{'key'});
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
else {&print_cert_info(1,$buffer);}
print "</td></tr></table>\n";
&download_form("certfile", $in{'certfile'}, $text{'certificate'});
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
print "</td></tr></table>\n";
&download_form("keycertfile", $in{'keycertfile'},
"$text{'certificate'} / $text{'key'}");
- print "<hr>\n";
+ print &ui_hr();
&footer("", $text{'index_return'});
exit;
}
print "</select>\n";
print "</td><td><input type=submit name=view value=\"$text{'view_view'}\"></td></tr></table></td></tr></table>\n";
print "</form>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("", $text{'index_return'});
sub output_cert
local $rv = &unserialise_variable($line);
close($rh);
- print "<hr>\n";
+ print &ui_hr();
if ($rv && $rv->[0]) {
# Run ok! Show the output
print "<font size=+1>",&text('cluster_success', $d),"</font><br>\n";
# Allow starting or stopping of cfd
($pid) = &find_byname("cfd");
-print "<hr>\n";
+print &ui_hr();
print "<table width=100%><tr>\n";
if ($pid) {
print "<form action=stop.cgi>\n";
print "<input type=submit value='$text{'save'}'></form>\n";
if (@$hosts) {
- print "<hr>\n";
+ print &ui_hr();
print "<form action=push.cgi>\n";
print "<table width=100%><tr>\n";
print "<td><input type=submit value='$text{'push_push'}'></td>\n";
&show_classes_table(\@secs, 0);
# Display option icons
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'index_options'});
@links = ( "run_form.cgi", "list_hosts.cgi", "edit_cfd.cgi", "edit_push.cgi" );
@titles = ( $text{'run_title'}, $text{'hosts_title'}, $text{'cfd_title'},
# Display run form
if (@hosts) {
- print "<hr>\n";
+ print &ui_hr();
print "<form action=cluster.cgi>\n";
print "<table width=100%>\n";
print "<tr> <td><input type=submit value='$text{'hosts_run'}'></td>\n";
# traverse the heirarchy
$spacer = " "x3;
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'host_installed'});
print "<table width=100%>\n";
&traverse("", 0);
print "</tr> </table><p>\n";
# Show hosts with the package
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'edit_hosts'});
@icons = map { "/servers/images/$_->{'type'}.gif" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
if (@hosts) {
# Display search form
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_installed'});
print "<table cellpadding=0 cellspacing=0 width=100%><tr><td>\n";
$formno += 2;
print "</form></td> </tr></table>\n";
# Display cross-cluster install form
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_install'});
print "$text{'index_installmsg'}<p>\n";
print "<td align=right><input type=submit value=\"$text{'delete'}\"></td> </tr>\n";
print "</form></table><p>\n";
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'uedit_hosts'});
&icons_table(\@links, \@titles, \@icons);
print "</tr></table>\n";
# Show users and groups
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'host_ulist'});
print "<table width=100% border>\n";
print "<tr $tb> <td><b>$text{'index_users'}</b></td> </tr>\n";
"value=\"$text{'delete'}\"></td> </tr>\n";
print "</form></table><p>\n";
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'uedit_hosts'});
&icons_table(\@links, \@titles, \@icons);
if (@hosts) {
# Display search and add forms
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_users'});
print "<table width=100%><tr>\n";
print "</tr></table>\n";
# Show hosts with the module or theme
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'edit_hosts'});
@icons = map { "/servers/images/$_->{'type'}.gif" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
if (@hosts) {
# Display modules lists and new module form
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_modules'});
print "<table width=100%><tr>\n";
print "<form action=edit_mod.cgi><td>\n";
# Display upgrade form
&foreign_require("webmin", "webmin-lib.pl");
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_upgrade'});
print "$text{'index_updesc'}<p>\n";
print "</tr></table>\n";
# Show hosts with the group
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'group_hosts'});
@icons = map { "/servers/images/$_->{'type'}.gif" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
print "</tr></table>\n";
# Show hosts with the module or theme
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'edit_hosts'});
@icons = map { "/servers/images/$_->{'type'}.gif" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
print "</tr></table>\n";
# Show hosts with the user
-print "<hr>\n";
+print &ui_hr();
print &ui_subheading($text{'user_hosts'});
@icons = map { "/servers/images/$_->{'type'}.gif" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
if (@hosts) {
# Display user search forms and new user buttons
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_users'});
print "<table width=100%>\n";
print "</table>\n";
# Display modules lists and new module form
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_modules'});
print "<table width=100%><tr>\n";
print "<form action=edit_mod.cgi><td>\n";
# Display upgrade form
&foreign_require("webmin", "webmin-lib.pl");
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_upgrade'});
print "$text{'index_updesc'}<p>\n";
$formno++;
# Show form for installing updates
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'index_update'});
print "$text{'index_updatedesc'}<p>\n";
print "<form action=update.cgi>\n";
}
if (!$access{'view'}) {
- print "<hr>\n";
+ print &ui_hr();
print &ui_buttons_start();
print &ui_buttons_row("restart_sharing.cgi",
$text{'index_apply'},
print "<b>$text{'index_none'}</b><p>\n";
}
-print "<hr>\n";
+print &ui_hr();
print &ui_buttons_start();
print &ui_buttons_row("apply.cgi", $text{'index_apply'},
$text{'index_applydesc'});
if ($config{'dhcpd_version'} >= 3 && !$in{'new'}) {
# Display address pools
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'esh_pools'});
local $pn = 1;
foreach $p (&find('pool', $sconf)) {
if ($config{'dhcpd_version'} >= 3 && !$in{'new'}) {
# Display address pools
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading($text{'esub_pools'});
local $pn = 1;
foreach $p (&find('pool', $sconf)) {
print "</tr></table>\n";
}
-print "<hr>\n";
+print &ui_hr();
foreach $g (@group) {
$parent = (defined($subnet{$g}) ? 1 + $subnet{$g} : 0) +
print "</tr></table>\n";
}
-print "<hr>\n";
+print &ui_hr();
############ START ZONES #####
print "<b>$text{'index_nozones'}</b><p>\n";
}
print "<a href='edit_zones.cgi?new=1'>","$text{'index_addzone'}</a> \n" if $access{'c_sub'};
- print "<hr>\n";
+ print &ui_hr();
}
############ END ZONES #####
if (!$in{'confirm'}) {
# Ask the user if he is sure ..
&header("Delete Zone", "");
- print "<hr>\n";
+ print &ui_hr();
print "<center><p>Are you sure you want to delete the zone <tt>",
&arpa_to_ip($zconf->{'values'}->[0]),"</tt> ? All records ",
print "<input type=radio name=rev value=1 checked> $text{'yes'}\n";
print "<input type=radio name=rev value=0> $text{'no'}\n";
print "</form></center>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("", "record types");
exit;
}
print "<td align=right><input type=submit value=Delete>\n";
print "</td></form> </tr></table>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("", "zone list");
sub types_table
&error("You are not allowed to edit records in this zone");
&header("Edit $code_map{$in{'type'}}", "");
print "<center><font size=+2>In ",&arpa_to_ip($dom),"</font></center>\n";
-print "<hr>\n";
+print &ui_hr();
@recs = &read_zone_file($zconf->{'values'}->[1], $zconf->{'values'}->[0]);
&foreign_call("bind8", "record_input", $in{'index'}, undef, $in{'type'},
$zconf->{'values'}->[1], $zconf->{'values'}->[0], $in{'num'},
$recs[$in{'num'}]);
-print "<hr>\n";
+print &ui_hr();
&footer("edit_recs.cgi?index=$in{'index'}&type=$in{'type'}", "records");
}
print "<p>\n";
}
-print "<hr>\n";
+print &ui_hr();
&footer("edit_master.cgi?index=$in{'index'}", "record types");
sub recs_table
&header("Edit Slave Zone", "");
print "<center><font size=+2>",&arpa_to_ip($v[0]),"</font></center>\n";
-print "<hr>\n";
+print &ui_hr();
print "<form action=save_slave.cgi>\n";
print "<input type=hidden name=index value=\"$in{'index'}\">\n";
print "<table border width=100%>\n";
print "<input type=hidden name=index value=\"$in{'index'}\">\n";
print "<td align=right><input type=submit value=Delete></td></form>\n";
print "</tr></table>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("", "zone list");
$file = &absolute_path($zconf->{'values'}->[1]);
&header("Edit Records File", "");
print "<center><font size=+1>$file</font></center>\n";
-print "<hr>\n";
+print &ui_hr();
open(FILE, $file);
while(<FILE>) {
join("", @lines),"</textarea><p>\n";
print "<input type=submit value=Save> <input type=reset value=Undo></form>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("edit_master.cgi?index=$in{'index'}", "record types");
require './dns-lib.pl';
&header("BIND 4 DNS Server", "", undef, 1, 1);
-print "<hr>\n";
+print &ui_hr();
%access = &get_module_acl();
# Check if named exists
print "could not be found on your system. Maybe it is not installed,\n";
print "or your <a href=\"$gconfig{'webprefix'}/config.cgi?$module_name\">BIND 4 module\n";
print "configuration</a> is incorrect. <p>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("/", "index");
exit;
}
print "<p>The server <i>$config{'named_pathname'}</i> appears to\n";
print "be BIND 8. Maybe your should use the\n";
print "<a href=/bind8/>BIND 8 server module</a> instead. <p>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("/", "index");
exit;
}
print "<p>The server <i>$config{'named_pathname'}</i> appears to\n";
print "be BIND 8. Maybe your should use the\n";
print "<a href=/bind8/>BIND 8 server module</a> instead. <p>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("/", "index");
exit;
}
"server, but use Webmin's older root server information<p>\n";
print "<center><input type=submit value=\"Create Primary Configuration File and Start Nameserver\"></center>\n";
print "</form>\n";
- print "<hr>\n";
+ print &ui_hr();
&footer("/", "index");
exit;
}
if ($access{'defaults'}) {
# Display form to set the defaults for new zones
&get_zone_defaults(\%zd);
- print "<hr>\n";
+ print &ui_hr();
print &ui_subheading("New Master Zone Defaults");
print "<form action=save_zonedef.cgi>\n";
print "<table border>\n";
}
# Display a form to start or restart named
-print "<hr>\n";
+print &ui_hr();
if ($config{'named_pid_file'}) {
if (open(PID, $config{'named_pid_file'})) {
<PID> =~ /(\d+)/;
print "</form>\n";
}
-print "<hr>\n";
+print &ui_hr();
&footer("/", "index");
sub zones_table
&header("Create Master Zone", "");
%access = &get_module_acl();
$access{'master'} || &error("You cannot create master zones");
-print "<hr>\n";
+print &ui_hr();
print "<form action=create_master.cgi>\n";
print "<table border width=100%>\n";
print "</table></td></tr></table><br>\n";
print "<input type=submit value=\"Create Zone\"></form>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("", "zone list");
%access = &get_module_acl();
$access{'slave'} || &error("You are not allowed to create slave zones");
&header("Create Slave Zone", "");
-print "<hr>\n";
+print &ui_hr();
print "<form action=create_slave.cgi>\n";
print "<input type=hidden name=type value=\"$lctype\">\n";
print "</table></td></tr></table><br>\n";
print "<input type=submit value=\"Create Zone\"></form>\n";
-print "<hr>\n";
+print &ui_hr();
&footer("", "zone list");
print "<a href=\"edit_export.cgi?new=1\">$text{'index_add'}</a> <p>\n";
}
-print "<hr>\n";
+print &ui_hr();
print "<table width=100%> <tr>\n";
print "<td><form action=restart_mountd.cgi>\n";
print "<input type=submit value=\"$text{'index_apply'}\">\n";
print &ui_links_row(\@edlinks);
# Buttons for IDE params and SMART
-print "<hr>\n";
+print &ui_hr();
print &ui_buttons_start();
if (&supports_hdparm($d)) {
print &ui_buttons_row("edit_hdparm.cgi", $text{'index_hdparm'},
}
if (!$in{'new'} && !$pinfo->{'extended'}) {
- print "<hr>\n";
+ print &ui_hr();
print &ui_buttons_start();
if (!@stat || $stat[2] == 0) {
&show_polls(\@conf, $config{'config_file'}, $config{'daemon_user'});
local @uinfo = getpwnam($config{'daemon_user'});
- print "<hr>\n";
+ print &ui_hr();
print "<table width=100%>\n";
if (&foreign_installed("cron") && $access{'cron'}) {
if (&foreign_installed("cron") && $access{'cron'}) {
# Show button to manage global cron job
- print "<hr>\n";
+ print &ui_hr();
print &ui_buttons_start();
print &ui_buttons_row("edit_cron.cgi",
$text{'index_cron'}, $text{'index_crondesc2'});
# Display a table of rules for each chain
foreach $c (sort by_string_for_iptables keys %{$table->{'defaults'}}) {
- print "<hr>\n";
+ print &ui_hr();
@rules = grep { lc($_->{'chain'}) eq lc($c) }
@{$table->{'rules'}};
print "<b>",$text{"index_chain_".lc($c)} ||
# Display buttons for applying and un-applying the configuration,
# and for creating an init script if possible
- print "<hr>\n";
+ print &ui_hr();
print "<table width=100%>\n";
if (!$config{'direct'}) {
# Show start/stop/apply buttons
$conf = &get_config();
if (&find_value("FromInetd", $conf) ne "yes") {
- print "<hr>\n";
+ print &ui_hr();
print &ui_buttons_start();
if (&is_frox_running()) {
print &ui_buttons_row("apply.cgi", $text{'index_apply'},