From 6e40287e2f39a80fc72bd8d0fbc1a8334d688c2d Mon Sep 17 00:00:00 2001
From: etobi <git@e-tobi.net>
Date: Tue, 3 Sep 2013 09:48:38 +0200
Subject: Imported Upstream version 1.1.0

---
 util/dvbnet/net_start.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 util/dvbnet/net_start.pl

(limited to 'util/dvbnet/net_start.pl')

diff --git a/util/dvbnet/net_start.pl b/util/dvbnet/net_start.pl
new file mode 100755
index 0000000..71e6367
--- /dev/null
+++ b/util/dvbnet/net_start.pl
@@ -0,0 +1,25 @@
+#!/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");
+}
+
-- 
cgit v1.2.3