blob: 103141b72bad19160bef9efb619b0c1fb26bbc09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/perl
use strict;
use lib "/opt/vyatta/share/perl5/";
use Vyatta::Config;
## Check if a typeless node exists
# this is a lame little script to get around bug 2525 not being fixed.
# i.e. $VAR(./node/) always expands to true. Once bug 2525 is properly
# fixed, this can go away
my $node = shift;
my $config = new Vyatta::Config;
exit 0 if ($config->exists("$node"));
exit 1;
|
