#!/usr/bin/perl
#
# A my_print_defaults wrapper that outputs settings as (escaped) environment variable form
# ie, NAME="Escaped Value"
#
for my $line (grep { m/^--[A-Za-z][-A-Za-z_0-9]+=/ } (split(/\n/, qx(my_print_defaults @ARGV)))) {
        my ($k,$v) = split(/=/, $line, 2);
        $k =~ s/^--//g;
	$k =~ s/-/_/g;
        $k = uc($k);
        $v =~ s/\\/\\\\/g;
        $v =~ s/\$/\\\$/g;
        $v =~ s/\"/\\\"/g;
        print "$k=\"$v\"\n";
}
