#!/usr/bin/perl # edit_conf.cgi # Display ha_conf options require './heartbeat-lib.pl'; &ui_print_header(undef, $text{'conf_title'}, ""); @conf = &get_ha_config(); print "<form action=save_conf.cgi>\n"; print "<table border width=100%>\n"; print "<tr $tb> <td><b>$text{'conf_header'}</b></td> </tr>\n"; print "<tr $cb> <td><table width=100%>\n"; @serials = &find("serial", \@conf); print "<tr> <td><b>$text{'conf_serials'}</b></td>\n"; print "<td>\n"; for($i=0; $i<=@serials; $i++) { local $sfound; print "<select name=serial_$i>\n"; opendir(DIR, "/dev"); printf "<option value='' %s>%s</option>\n", $serials[$i] ? "" : "selected", $i ? " " : $text{'conf_none'}; foreach $p (glob($config{'serials'})) { printf "<option %s>%s</option>\n", $p eq $serials[$i] ? "selected" : "", $p; $sfound++ if ($p eq $serials[$i]); } closedir(DIR); print "<option selected>$serials[$i]</option>\n" if ($serials[$i] && !$sfound); print "</select>\n"; } print "</td> </tr>\n"; $baud = &find("baud", \@conf); print "<tr><td><b>$text{'conf_baud'}</b></td> <td>\n"; printf "<input type=radio name=baud_def value=1 %s> %s\n", $baud ? "" : "checked", $text{'default'}; printf "<input type=radio name=baud_def value=0 %s>\n", $baud ? "checked" : ""; printf "<input name=baud size=6 value='%s'></td> </tr>\n", $baud; # changed (Christof Amelunxen, 22.08.2003) # udp directive replaced by bcast @bcasts = &find("bcast", \@conf); print "<tr> <td><b>$text{'conf_bcasts'}</b></td> <td>\n"; printf "<input type=radio name=bcasts_def value=1 %s> %s\n", @bcasts ? "" : "checked", $text{'conf_none'}; printf "<input type=radio name=bcasts_def value=0 %s>\n", @bcasts ? "checked" : ""; printf "<input name=bcasts size=20 value='%s'></td>\n", join(" ", @bcasts); $udpport = &find("udpport", \@conf); print "<tr><td><b>$text{'conf_udpport'}</b></td> <td>\n"; printf "<input type=radio name=udpport_def value=1 %s> %s\n", $udpport ? "" : "checked", $text{'default'}; printf "<input type=radio name=udpport_def value=0 %s>\n", $udpport ? "checked" : ""; printf "<input name=udpport size=5 value='%s'></td> </tr>\n", $udpport; $mcast = &find("mcast", \@conf); print "<tr><td valign=top><b>$text{'conf_mcast'}</b></td> <td colspan=3>\n"; printf "<input type=radio name=mcast_def value=1 %s> %s<br>\n", $mcast ? "" : "checked", $text{'conf_none'}; printf "<input type=radio name=mcast_def value=0 %s>\n", $mcast ? "checked" : ""; @mcast = split(/\s+/, $mcast); $mloop = "<select name=mcast_loop>\n"; $mloop .= sprintf "<option value=0 %s>%s</option>\n", $mcast[4] ? "" : "selected", $text{'conf_disabled'}; $mloop .= sprintf "<option value=1 %s>%s</option>\n", $mcast[4] ? "selected" : "", $text{'conf_enabled'}; $mloop .= "</select>\n"; print &text('conf_mcastv', "<input name=mcast_dev size=4 value='$mcast[0]'>", "<input name=mcast_ip size=15 value='$mcast[1]'>", "<input name=mcast_port size=5 value='$mcast[2]'>", "<input name=mcast_ttl size=3 value='$mcast[3]'>", $mloop),"</td> </tr>\n"; $keepalive = &find("keepalive", \@conf); print "<tr> <td><b>$text{'conf_keepalive'}</b></td> <td nowrap>\n"; printf "<input type=radio name=keepalive_def value=1 %s> %s\n", $keepalive ? "" : "checked", $text{'default'}; printf "<input type=radio name=keepalive_def value=0 %s>\n", $keepalive ? "checked" : ""; printf "<input name=keepalive size=6 value='%s'> %s</td>\n", $keepalive, $text{'conf_secs'}; $deadtime = &find("deadtime", \@conf); print "<tr><td><b>$text{'conf_deadtime'}</b></td> <td nowrap>\n"; printf "<input type=radio name=deadtime_def value=1 %s> %s\n", $deadtime ? "" : "checked", $text{'default'}; printf "<input type=radio name=deadtime_def value=0 %s>\n", $deadtime ? "checked" : ""; printf "<input name=deadtime size=6 value='%s'> %s</td> </tr>\n", $deadtime, $text{'conf_secs'}; $watchdog = &find("watchdog", \@conf); print "<tr> <td><b>$text{'conf_watchdog'}</b></td> <td colspan=3>\n"; printf "<input type=radio name=watchdog_def value=1 %s> %s\n", $watchdog ? "" : "checked", $text{'conf_none'}; printf "<input type=radio name=watchdog_def value=0 %s>\n", $watchdog ? "checked" : ""; printf "<input name=watchdog size=25 value='%s'> %s</td> </tr>\n", $watchdog, &file_chooser_button("watchdog"); print "<tr> <td valign=top><b>$text{'conf_node'}</b></td> <td colspan=3>\n"; print "<textarea name=node rows=4 cols=40>", join("\n", &find("node", \@conf))," \n"; $logfile = &find("logfile", \@conf); print " $text{'conf_logfile'} \n"; printf " %s\n", $logfile ? "" : "checked", $text{'conf_none'}; printf "\n", $logfile ? "checked" : ""; printf " %s \n", $logfile, &file_chooser_button("logfile"); $logfacility = &find("logfacility", \@conf); print " $text{'conf_logfacility'} \n"; printf " %s\n", $logfacility ? "" : "checked", $text{'default'}; printf "\n", $logfacility ? "checked" : ""; if (&foreign_check("syslog")) { local %sconfig = &foreign_config("syslog"); print "\n"; foreach $f (split(/\s+/, $sconfig{'facilities'})) { printf "%s\n", $f eq $logfacility ? "selected" : "", $f; } print "\n"; } else { printf "\n", $logfacility; } print "\n"; $initdead = &find("initdead", \@conf); print "$text{'conf_initdead'} \n"; printf " %s\n", $initdead ? "" : "checked", $text{'default'}; printf "\n", $initdead ? "checked" : ""; printf " %s \n", $initdead, $text{'conf_secs'}; # changed (Christof Amelunxen, 22.08.2003) # define failback behaviour print "$text{'conf_nice_failback'} \n"; if (&version_atleast(1, 2, 0)) { $auto_failback = &find("auto_failback", \@conf); foreach $aa ("on", "off", "legacy", "") { printf " %s\n", $aa, $auto_failback eq $aa ? "checked" : "", $text{'conf_auto_'.$aa}; } } else { $nice_failback = &find("nice_failback", \@conf); printf " %s\n", $nice_failback ? "checked" : "", $text{'conf_enabled'}; printf " %s\n", $nice_failback ? "" : "checked", $text{'conf_disabled'}; } print " \n"; print "\n"; print "\n"; &ui_print_footer("", $text{'index_return'});