Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/libnetcfg.PL

Lines Matching refs:def
115 my($libnet_cfg_in,$libnet_cfg_out,$msg,$ans,$def,$have_old);
159  my($prompt,$def) = @_;
161  $def = "" unless defined $def;
167    print $prompt,," [",$def,"]\n";
168    return $def;
170  prompt($prompt,$def);
179  my($prompt,$def) = @_;
181  $def = join(" ",@$def) if ref($def);
187    my $ans = Prompt($prompt,$def);
193  while(@hosts && defined($def = test_hostnames(@hosts)));
204  my($prompt,$def) = @_;
210    my $ans = Prompt($prompt,$def);
215    $def =""
216 	if $def eq $host;
238  my($prompt,$def) = @_;
242  my $val = Prompt($prompt,$def ? "yes" : "no");
253  my($prompt,$def) = @_;
258  @list{@$def} = ();
468 $def = $oldcfg{'nntp_hosts'} ||
471 $cfg{'nntp_hosts'} = get_host_list($msg,$def);
477 $def = $oldcfg{'smtp_hosts'} ||
480 $cfg{'smtp_hosts'} = get_host_list($msg,$def);
486 $def = $oldcfg{'pop3_hosts'} || [];
488 $cfg{'pop3_hosts'} = get_host_list($msg,$def);
494 $def = $oldcfg{'snpp_hosts'} || [];
496 $cfg{'snpp_hosts'} = get_host_list($msg,$def);
502 $def = $oldcfg{'ph_hosts'} ||
505 $cfg{'ph_hosts'}   =  get_host_list($msg,$def);
511 $def = $oldcfg{'time_hosts'} || [];
513 $cfg{'time_hosts'} = get_host_list($msg,$def);
519 $def = $oldcfg{'daytime_hosts'} || $oldcfg{'time_hosts'};
521 $cfg{'daytime_hosts'} = get_host_list($msg,$def);
580  $def = exists $oldcfg{'ftp_firewall_type'}  ? $oldcfg{'ftp_firewall_type'} : 1;
581  $ans = Prompt($msg,$def);
583  $def = $oldcfg{'ftp_firewall'} || $ENV{FTP_FIREWALL};
585  $cfg{'ftp_firewall'} = get_hostname("FTP proxy hostname :", $def);
607 $def = [];
610   $def = $oldcfg{'local_netmask'};
612 	join("\n\t",@{$def}),"\n\n";
622   my $mask = get_netmask("netmask :",$def);
636 ###$def = $cfg{'socks_hosts'} ||
641 ###$cfg{'socks_hosts'}   =  get_host_list($msg,$def);
658   $def = $oldcfg{'ftp_ext_passive'} || 0;
660   $cfg{'ftp_ext_passive'} = get_bool($msg,$def);
669 $def = $oldcfg{'ftp_int_passive'} || 0;
671 $cfg{'ftp_int_passive'} = get_bool($msg,$def);
676 $def = $oldcfg{'inet_domain'} || $ENV{LOCALDOMAIN};
678 $ans = Prompt("\nWhat is your local internet domain name :",$def);