cfengine/push.cgi

   1 #!/usr/local/bin/perl
   2 # push.cgi
   3 # Push the current configuration out to clients with cfrun
   4
   5 require './cfengine-lib.pl';
   6 &ui_print_unbuffered_header(undef, $text{'push_title2'}, "");
   7
   8 $cmd = "cfrun";
   9 print "<p>",&text('push_exec', "<tt>$cmd</tt>"),"<br>\n";
  10 print "<pre>";
  11 $ENV{'CFINPUTS'} = $config{'cfengine_dir'};
  12 chdir($config{'cfengine_dir'});
  13 open(CMD, "$cmd 2>&1 </dev/null |");
  14 while(<CMD>) {
  15         print &html_escape($_);
  16         }
  17 close(CMD);
  18 &additional_log("exec", undef, $cmd);
  19 print "</pre>\n";
  20 &webmin_log("prun");
  21
  22 &ui_print_footer("edit_push.cgi", $text{'push_return'},
  23         "", $text{'index_return'});
  24