apply.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# apply.cgi
# Call lilo to apply the current config

require './lilo-lib.pl';
&foreign_require("proc", "proc-lib.pl");
$| = 1;
&header($text{'apply_title'}, "");
print "<hr><p>\n";
$cmd = "$config{'lilo_cmd'} -v";
print &text('apply_exec', "<tt>$cmd</tt>"),"<p>\n";
print "<pre>";
&foreign_call("proc", "safe_process_exec", $cmd, 0, 0, STDOUT);
print "</pre>\n";
print "<hr>\n";
&footer("", $text{'index_return'});