Lines Matching refs:peer

382     local($peer,$intf);
388     $peer = $$options{"peer_system_name"};
390 	unless defined($peer);
392     warn("Missing interface on path to peer \"$peer\".\n"), return
394     warn("Bad interface $intf on path to peer \"$peer\".\n"), return
397 	$peer, "\".\n"), return
399     warn "Multiple definitions of path to peer \"$peer\".\n",
400 	if defined($paths{$peer});
402 	" encountered in path to peer \"", $peer, "\" (ignored).\n"
404     $paths{$peer} = $options;
593     local($peer);
598 	    $peer = $$opts{chap_peer_name};
601 	    $peer = $$opts{pap_peer_id};
603 	push(@authopts, "remotename " . requote($peer)) if $peer;
647 	push(@$pppdargs, "remotename " . requote($peer))
648 	  if $peer && !$$opts{require_authentication};
699 	${$$authf{$peer}}{$lclname} = requote($secret) . $addsecret;
702 	${$chapsecrets{$myname}}{$peer} = requote($csecret) if $csecret;
703 	${$papsecrets{$myname}}{$peer} = requote($psecret) if $psecret;
710     local($peer) = @_;
712     $optname = $$dialinusers{$peer};
716 	warn "Home directories of $peer and $optuser{$optname} are the same ($optfiles{$optname}\n";
717 	warn "Ignoring configuration for $peer.\n";
720     $optuser{$optname} = $peer;
721     $dialinshell{$peer} = "/usr/bin/pppd";
723     convert_options(\@pppdargs, $$paths{$peer}, undef, $peer);
1062 foreach $peer (keys %$paths) {
1063     if (exists($$systems{$peer})) {
1064 	$sline = $$systems{$peer};
1066 	    if (${$$paths{$peer}}{$isdialin}) {
1067 		translatedialin($peer);
1069 		print "We never call $peer, and he never calls us.\n"
1072 	    delete $$paths{$peer};
1075 	push @bidirectional, $peer if ${$$paths{$peer}}{$isdialin};
1076 	print "Ignoring time restriction on $peer\n"
1170 	    $chatfile = $pppdir . "chat.$peer.$$dev[3]";
1195 	    convert_options(\@pppdargs,$$paths{$peer},
1198 	    $optname = $peersdir . $peer;
1222     } elsif (${$$paths{$peer}}{$isdialin}) {
1223     	translatedialin($peer);
1225 	warn "Path $peer has no dial-in user nor Systems file entry.\n";
1226 	delete $$paths{$peer};
1239     while ($peer = pop @bidirectional) {
1240 	delete $ {$$paths{$peer}}{interface};
1241 	translatedialin($peer);
1294     foreach $peer (keys %dialinshell) {
1295 	$cstr .= "/^$peer:/s+[^:]*/aspppls\$+$dialinshell{$peer}+\n";