Lines Matching refs:realm
54 my $realm = "";
97 'realm|R=s' => \$opt_realm,
256 # this might fill up workgroup, machine, realm
272 # get the realm
273 $realm = $opt_realm ||
290 my $upn = sprintf("%s", gen_upn($opt_machine ? "$machine\$" : $user, $realm));
350 print "usage: $0 [--base|-b base] [--debug level] [--debug level] [--DN|-D binddn] [--extendeddn|-e] [--help] [--host|-h host] [--machine|-P] [--metadata|-m] [--nodiffs] [--notify|-n] [--password|-w password] [--port port] [--rawdisplay] [--realm|-R realm] [--rootdse] [--saslmech|-Y saslmech] [--schema|-c] [--scope|-s scope] [--simpleauth|-x] [--starttls|-Z] [--user|-U user] [--wknguid] [--workgroup|-k workgroup] filter [attrs]\n";
364 print "\t--realm|-R [realm]\n\t\tUse [realm] when trying to construct bind-principal\n";
407 my $realm = shift;
422 if ( -x $dig && $realm ) {
423 my $key = sprintf("_ldap._tcp.%s", lc($realm));
456 if ($line =~ /realm/) {
457 ($tmp, $realm) = split(/=/, $line);
458 $realm =~ s/\s+|\t+//g;
471 my $realm = shift;
472 if ($machine && $realm) {
473 return sprintf("%s\@%s", lc($machine), uc($realm));
559 printf KRB5CONF "[libdefaults]\n\tdefault_realm = %s\n\tclockskew = %d\n", uc($realm), 60*60;
560 printf KRB5CONF "[realms]\n\t%s = {\n\t\tkdc = %s\n\t}\n", uc($realm), $server;
613 my ($t,$realm) = split(/\@/, $service);
614 return $realm;
616 die "very odd: could not get realm";
689 my $user = sprintf("%s\@%s", $user, uc($realm));