#!/usr/bin/perl
use LWP::Simple qw(!head);
use CGI qw(:standard);

# проверить конфиг и подставить своё ##########################################

$tmpfile= '/tmp/routes.tmp';# временный файл
$route = '/sbin/route'; # путь к route
$gw = '192.168.0.1'; # шлюз

# кончился конфиг :) ##########################################################


getstore("http://avicontrol.aviel.ru/avc.pl?mode=get_routes",$tmpfile);
open (FILE, "$tmpfile") || die "Can't open '$tmpfile': $!\n";
@routes = <FILE>;
close(FILE);

foreach (@routes) {
	chomp;
	if (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
		$net = $1;
		$netmask = $2;
		$cmd = "$route add -net $net netmask $netmask gw $gw";
		setPrint($cmd,@ARGV[0]);
	}		
}
$cmd = "$route del default";
setPrint($cmd,@ARGV[0]);
$cmd = "$route add default ppp0";
setPrint($cmd,@ARGV[0]);

sub setPrint {
	if ($_[1] eq 'list') {
		print "$_[0]\n";
	}
	else {		
		print "running $_[0]\n";
		if (system("$_[0]") != 0) {				
		print "something wrong..\n";
		}				
	}
}


exit 0;

getstore("http://avicontrol.aviel.ru/avc.pl?mode=get_routes",$tmpfile);
open (FILE, "$tmpfile") || die "Can't open '$tmpfile': $!\n";
@routes = <FILE>;
close(FILE);

foreach (@routes) {
	chomp;
	if (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
		$net = $1;
		$netmask = $2;

foreach (split "\n", $data) {
	next if ($rv) = /rv=(\d+)/;
	($net, $mask) = split ' ';

foreach (split "\n", $data) {
	next if ($rv) = /rv=(\d+)/;
	($net, $mask) = split ' ';