-
Notifications
You must be signed in to change notification settings - Fork 15
/
doozer-var
42 lines (32 loc) · 1.08 KB
/
doozer-var
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl -w
######################################################################
# Copyright (c) 2012, Yahoo! Inc. All rights reserved.
#
# This program is free software. You may copy or redistribute it under
# the same terms as Perl itself. Please see the LICENSE.Artistic file
# included with this project for the terms of the Artistic License
# under which this project is licensed.
######################################################################
use strict;
use warnings;
use Chisel::Builder::Engine;
use Getopt::Long;
use Log::Log4perl qw/:easy/;
my $USAGE = "usage: doozer var <varname>\n";
my %opt;
die $USAGE unless GetOptions( \%opt );
die $USAGE unless @ARGV == 1;
# become chisel user if we started out as root
if( $< == 0 ) {
exec( "/bin/setuidgid", "chisel", $0, @ARGV );
die "exec failed: $!\n";
}
my $engine = Chisel::Builder::Engine->new;
$engine->setup;
my $value = $engine->config($ARGV[0]);
if( defined $value ) {
chomp $value;
print $value;
print "\n" if length $value; # don't add trailing newline if $value is zero-length
}
exit 0;