[NTLUG:Discuss] Script for domain validation
David Camm
dcamm at advwebsys.com
Thu Apr 15 16:01:11 CDT 2004
with pleasure.......
david
Steve Southwell wrote:
> The perl example works perfectly! Much thanks!
>
> David Camm wrote:
>
>> well. i'm not a shell expert, but i would think that the first
>> statement ends with echo "bad" because there's a ';' after it then the
>> next command is an unconditional exit 1.
>>
>> could that be the problem?
>>
>> again, not being a shell person - could you do this:
>>
>> || (echo....; exit);
>>
>> david camm
>> advanced web systems
>>
>> ps - here's now to do it in perl:
>>
>> #!/usr/bin/perl
>> $result = `host $ARGV[0]`;
>> if ($result =~ / has address /) {print "Good\n"; exit (0);}
>> print "Bad\n";
>> exit 1;
>>
>>
>>
>> Steve Southwell wrote:
>>
>>> I've just about got a script working, and what I want it to do is
>>> simply validate that a given domain exists. (It's part of an email
>>> address validation routine)
>>>
>>> I'm just about brain dead this afternoon - can anyone tell my why
>>> this doesn't work, and perhaps suggest a fix:
>>>
>>> host $1 | grep " has address " &> /dev/null || echo "Bad"; exit 1
>>> echo "Good"; exit 0
>>>
>>> what happens is that it correctly handles the "Bad" case, but doesn't
>>> handle the good case.
>>>
>>
>>
>>
>> _______________________________________________
>> https://ntlug.org/mailman/listinfo/discuss
>
>
>
More information about the Discuss
mailing list