view release on metacpan or  search on metacpan

sbin/vsoapc  view on Meta::CPAN

if (not $DEBUG) {
    # Only load the debug from the config file if we haven't turned
    # debugging on from the cmd line    
    $DEBUG = VUser::ExtLib::strip_ws($cfg{'vuser'}{'debug'}) || 0;
    $DEBUG = VUser::ExtLib::check_bool($DEBUG) unless $DEBUG =~ /^\d+$/;
}
my $debug = $DEBUG;

if (not $username) {
    # Guess the username.
    $username = getlogin || (getpwuid($<))[0] || die "Unable to determine username. Use --username\n";
}

pod2usage() if $help;

if ($version) {
    print "Version: $VERSION\n";
    exit;
}

if (check_bool ($cfg{$c_sec}{'require authentication'}) and not $password) {