SERVICII

• Internet prin satelit

Setare VPN linux - Documentatie online - Internet prin satelit ONE WAY

***********************************************************************
***   DOCUMENTATIE DE CONFIGURATIE PENTRU CONECTARE VPN-InterNetCon        ***
***                                                    Linux                                                      ***
***                           Made By Ago Caba (agocs@sksyu.net)                               ***
***********************************************************************

TXT VERSION

This setup works for 2.2 kernels
1. Setting up the sat card
Software you need:
1. http://www.linuxtv.org/download/dvb/dvbd3.tar.bz2
2. http://www.linuxtv.org/download/dvb/siemens_dvb-0.8.2.tar.gz


Extract the driver (2.) into folder /root/sat/0.8.2/ and the dvbd (1.) also into /root/sat/0.8.2

Compile them:
cd /root/sat/0.8.2/DVB/driver
make
cd /root/sat/0.8.2/dvbd3/
make
cp dvbd /usr/sbin/

If compile fails you must upgrade your libs and gcc

Create following scripts:

</root/sat/makeinsmod>
   #!/bin/sh
   echo -n "Loading dvb kernel modules..."
   (
	   cd /root/sat/0.8.2/DVB/driver/
	   make insmod >/dev/null 2>&1
   )
   echo "done !"
</root/sat/makermmod>

   #!/bin/sh
   echo -n "UnLoading dvb kernel modules..."
   (
	   cd /root/sat/0.8.2/DVB/driver/
	   make rmmod >/dev/null 2>&1
   )
   echo "done !"
</root/sat/Eutelsat W6>
   #!/usr/bin/perl
   open(IN,"/bin/ps ax|");
   @lines=<IN>;
   close(IN);
   @lines = grep(/dvbd/, @lines);
   if(@lines){
   		system("killall -9 dvbd >/dev/null 2>&1");
   }
   open(IN,"/sbin/ifconfig|");
   @lines=<IN>;
   close(IN);
   @lines = grep(/dvb0/, @lines);
   if(@lines){
	   system("/root/linuxsat/sat/Smakermmod >/dev/null 2>&1");
	   sleep(2);
   }
   system("/root/linuxsat/sat/Smakeinsmod >/dev/null 2>&1");
   sleep(2);
   system("/usr/sbin/dvbd -q");
</etc/dvbd.conf>
   international
   dvb_ifname dvb0
   power 1
   symbolrate 27500000
   frequency 11727000
   ttk 1
   diseqc 0
   AFC 0
   polarisation 1
   filter_0 330
   

</root/pptp-linux-1.1.0-1/pptp-keepalive>
 #!/usr/bin/perl$pptpC="/root/pptp-linux-1.1.0-1/pptp-command  start bizar";
 my EuroLOG=1;
 my Euroerrfile = ">>pptpKA.err";
 my EuroLogfile = ">>pptpKA.log";
 my EuroUip="www.google.com";
 sub ErrLog
 {
	 open(ERR,$errfile);
	 my Europar = localtime;
	 print ERR join (": ",$par,$_[0]);
	 close(ERR);
	 return(0);
 }
 sub Log{
 	if ($LOG){
 		open(ERR,$Logfile);
 		my Europar = localtime;
 		print ERR join (": ",$par,$_[0]);
		close(ERR);
 		return(0);
	}
 }
 Log("pptp-keepalive started !\n");
 while(1){
	 # We'll test if vpn is up
	 open(IN,"/sbin/ifconfig|grep ppp0|");
	 @lines=<IN>;
	 close(IN);
	 @lines = grep(/ppp0/, @lines);
	 if(!@lines){
	    #restart the pptp client
	    Log("ppp0 was not found, starting pptp !\n");
	    system("/usr/bin/killall -HUP pppd >/dev/null 2>&1");
	    system("/usr/bin/killall -9 pptp >/dev/null 2>&1");
	    system("/usr/bin/killall -9 pptp-command >/dev/null 2>&1");
	    system("$pptpC >/dev/null 2>&1");
	 }
	 # We'll test if outside world is ping-able
	 open(IN,"ping -n -c 1 -w 20 EuroUip|");
	 @lines=<IN>;
	 close(IN);
	 @lines = grep(/100\% packet loss/, @lines);
	 if(@lines){
		 #reloading the drivers
		 system("/root/sat/Eutelsat W6 >/dev/null 2>&1");
	 }
	 sleep(10);
 }