#!/usr/bin/perl

use strict;

require "/opt/nec/wbmc/lib/wbmc.pl";

my($IPFORWARD) = "/proc/sys/net/ipv4/ip_forward";
my($ipforward_state) = 0;
my(@ip_ffile);
my($val);

if (!&readFile("/etc/rc.d/rc.local","rc.local", \@ip_ffile) ) {
	system("/bin/echo cannot read rc.local\n");
	exit(1);
}


#rc.localip_forwardɤ߹
for $val (@ip_ffile){
	if($val =~ /\/bin\/echo\s+(\d)\s*>\s*$IPFORWARD\s*/){
		$ipforward_state = $1;
		last;
	}
}

#⤷IPեɤ꤬ʤäɲ
if($ipforward_state){
	system("\/bin\/echo \"router_state on\n\" > \/etc\/opt\/nec\/wbmc\/router.conf");
}
else{
	system("\/bin\/echo \"router_state off\n\" > \/etc\/opt\/nec\/wbmc\/router.conf");
}

exit(0);
