File Coverage

blib/lib/Simple/Confvpn.pm

Criterion	Covered	Total	%
statement	6	68	8.8
branch	0	30	0.0
condition	0	6	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	114	7.0

package Simple::Confvpn;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(vpn_status vpn_start vpn_stop route_configuration);

our $VERSION = '1.09';


sub vpn_status
{
#----------------------------------------------------------------------
# Function: To check vpn status
#----------------------------------------------------------------------
	my $ppp_result=`ifconfig | grep ppp.`;
	if($? != 0)
	{
		print "please check the ifconfig command";
		exit 1;
	}
	else
	{
		if(length($ppp_result)>0)
		{
  			my @lines = split /\n/, $ppp_result;
  			foreach my $line (@lines)
  			{
    				my $ppp=substr($line,0,4);
    				my $ppp_inet=`ifconfig $ppp | grep -e "inet adr" -e"inet addr"`;
				if($? != 0)
				{
					print "please check the ifconfig command";
					exit 1;
				}
				else
				{
    					if(length($ppp_inet)>0)
    					{
						print "virtual private network[VPN] connection is running..";
						return 0;
    					}
				}
  			}

		 }
	}
}


sub vpn_start
{
#----------------------------------------------------------------------
# Function: To start the vpn
#----------------------------------------------------------------------
		my $csa=system("pppd call pure-ru1");
		die "pppd rule call is failing.." if($csa!=0);
		my $cpt=0;
		my $timeOut=30; #default
  		while(length(`ifconfig ppp0 | grep -e "inet adr" -e"inet addr"`)<=0 && $cpt<$timeOut)
  		{
    			$cpt++;
    			print "Waited $cpt/$timeOut sec for the vpn to set up...";
    			sleep 1;
  		}
  		if($cpt<$timeOut)
  		{
    			print "Started the service..";
			return 0;
  		}
  		else
  		{
    			print "A vpn connection was not set after $timeOut sec.";
			return 1;
  		}
}



sub route_configuration
{
#-----------------------------------------
##cpt route 0 for destination
##cpt route 1 for gateway
##cpt route 7 for interface
#------------------------------------------
	my $cptRoute=shift;
  	my $csa =system("route add default dev ppp0");
	die "adding route command is failing.." if($csa!=0);
  	my $route_result=`route -n`;
	if($route_result ne 0)
	{
		print "please check 'route -n' command after adding the default route";
		exit 1;
	}
	else
	{
  		my @linesRoute = split /\n/, $route_result;
  		foreach my $lineRoute (@linesRoute)
  		{
    			my @dataRoute = split / /, $lineRoute;
    			my $destination="";
    			my $gateway="";
    			my $interface="";
    			foreach my $dataRoute (@dataRoute)
    			{
      				if(length($dataRoute)>0)
      				{
        				if($cptRoute==0) {$destination=$dataRoute;}
        				if($cptRoute==1) {$gateway=$dataRoute;}
        				if($cptRoute==7) {$interface=$dataRoute;}
        				$cptRoute++;
      				}
    			}
    			if($destination eq '0.0.0.0' && index($interface, 'ppp') == -1)
    			{
      				my $csg=system("route del -net $destination gw $gateway");
				die "deleting route command is failing.." if($csg!=0);
    			}
    			$cptRoute=0;
  		}
		print "route configuration is done..";
		return 0;
	}
}


sub vpn_stop
{
#----------------------------------------------------------------------
# Function: To stop vpn
#----------------------------------------------------------------------
  	`ps -ef | grep ppp | awk '{print $2}' | xargs kill`;
	if($? ne 0)
	{
		print "couldnot stop the Vpn service..";
		exit 1;
	}
	else
	{
		print "service vpn stopped";
		return 0;
	}
}


1;

__END__