n13i

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

binmode STDIN, ':encoding(utf8)';
binmode STDOUT, ':encoding(utf8)';

my $path = $ARGV[0] || '';

n13i

#!/bin/vbash
source /opt/vyatta/etc/functions/script-template

SET=${SBIN_PATH}/my_set
COMMIT=${SBIN_PATH}/my_commit

configure

current_set_ipaddr=$($API returnValue vpn l2tp remote-access outside-address)
current_ext_ipaddr=$(echo -n "$(run show interfaces pppoe pppoe0)" | grep inet | cut -d' ' -f6)

n13i

#!/usr/bin/perl
use warnings;
use strict;
use utf8;

use FindBin qw($Bin);
use Encode;
use YAML;
use Net::Twitter::Lite::WithAPIv1_1;
use DateTime;