Lines Matching refs:ans
115 my($libnet_cfg_in,$libnet_cfg_out,$msg,$ans,$def,$have_old);
187 my $ans = Prompt($prompt,$def);
189 $ans =~ s/(\A\s+|\s+\Z)//g;
191 @hosts = split(/\s+/, $ans);
210 my $ans = Prompt($prompt,$def);
211 $host = ($ans =~ /(\S*)/)[0];
263 my $ans = Prompt($prompt) or last;
265 if($ans eq '*') {
270 if($ans eq '=') {
275 unless ($ans =~ m{^\s*(?:(-?\s*)(\d+(?:\.\d+){0,3})/(\d+))}) {
276 warn "Bad netmask '$ans'\n";
282 warn "Bad netmask '$ans'\n";
287 warn "Bad netmask '$ans'\n";
581 $ans = Prompt($msg,$def);
582 $cfg{'ftp_firewall_type'} = 0+$ans;
678 $ans = Prompt("\nWhat is your local internet domain name :",$def);
680 $cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];