#!/usr/local/bin/perl # run.cgi # Run cfengine on this host require './cfengine-lib.pl'; &ReadParse(); &ui_print_unbuffered_header(undef, $text{'run_title'}, ""); # Construct the command $cmd = "$config{'cfengine'} -f $cfengine_conf"; $cmd .= " -v" if ($in{'verbose'}); $cmd .= " --dry-run" if ($in{'dry'}); $cmd .= " -i" if ($in{'noifc'}); $cmd .= " -m" if ($in{'nomnt'}); $cmd .= " -s" if ($in{'nocmd'}); $cmd .= " -t" if ($in{'notidy'}); $cmd .= " -X" if ($in{'nolinks'}); print "
",&text('run_exec', "$cmd"),"
\n";
print "
"; $ENV{'CFINPUTS'} = $config{'cfengine_dir'}; open(CMD, "$cmd 2>&1 ) { print &html_escape($_); } close(CMD); &additional_log("exec", undef, $cmd); print "\n"; &webmin_log("run"); &ui_print_footer("", $text{'index_return'});