start.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# start.cgi
# Attempt to start dhcpd

require './dhcpd-lib.pl';
$whatfailed = $text{'start_failstart'};
if (!-r $config{'lease_file'}) {
	# first time.. need to create the lease file
	$config{'lease_file'} =~ /^(\S+)\/([^\/]+)$/;
	if (!-d $1) { mkdir($1, 0755); }
	open(LEASE, ">$config{'lease_file'}");
	close(LEASE);
	}
$out = `$config{'dhcpd_path'} -cf $config{'dhcpd_conf'} $config{'interfaces'} 2>&1`;
if ($?) {
	&error("<pre>$out</pre>");
	}
&redirect("");