bin/drakvpn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl

# drakvpn: VPN configuration GUI
# Olivier Blin, 2006 <oblin@mandriva.com>
# Licensed under the GPL

use strict;
use lib qw(/usr/lib/libDrakX);

# i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX)
BEGIN { unshift @::textdomains, 'drakx-net' }
use standalone;
use interactive;
use network::drakvpn;

common::require_root_capability();

my $in = 'interactive'->vnew;
network::drakvpn::create_connection($in);