File: net_start.pl

package info (click to toggle)
linuxtv-dvb-apps 1.1.1%2Brev1483-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 7,556 kB
  • sloc: ansic: 48,832; makefile: 792; perl: 236; sh: 110; xml: 13
file content (24 lines) | stat: -rw-r--r-- 489 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl

$ADAPTER = 0;

&dvbnet($ADAPTER, 0,  512, "192.168.11.1");
&dvbnet($ADAPTER, 0, 2000, "192.168.21.1");


# &dvbnet(adapter,netdev,pid,"ip_addr");

sub dvbnet
{
  local ($ADAPTER, $NETDEV, $PID, $IP_ADDR) = @_;

  $DEV_NAME = `./dvbnet -a $ADAPTER -n $NETDEV -p $PID | grep created`;
  chop($DEV_NAME);

  $DEV_NAME =~ s/(.*)device //;
  $DEV_NAME =~ s/for (.*)//;

  $X = `/sbin/ifconfig $DEV_NAME $IP_ADDR netmask 255.255.255.0`;

  system("/sbin/ifconfig $DEV_NAME");
}