#!/usr/bin/perl # drakvpn: VPN configuration GUI # Olivier Blin, 2006 # 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);