scripts/vyatta-output-config.pl


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

#!/usr/bin/perl

use strict;
use lib "/opt/vyatta/share/perl5/";
use VyattaConfigOutput;

if ($ARGV[0] eq '-all') {
  shift;
  VyattaConfigOutput::set_show_all(1);
}
if ($ARGV[0] eq '-active') {
  shift;
  VyattaConfigOutput::outputActiveConfig(@ARGV);
} else {
  VyattaConfigOutput::outputNewConfig(@ARGV);
}
exit 0;