11 lines
189 B
Perl
11 lines
189 B
Perl
#! /usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use esmith::ConfigDB;
|
|
use POSIX;
|
|
|
|
my $db = esmith::ConfigDB->open_ro;
|
|
system("/sbin/ifup", $db->get_prop('ExternalInterface', 'Name'));
|
|
pause();
|