++ to you ig.

Firstly. Please let me apologize for creating such a jumbled mess of a question. :(

Secondly. Thank you very much for your offered solutions.

While it was my intention to use just one form field to process either type of request. My posted attempts came from 2 different scripts. Because I haven't been able to figure out how to splice them together. Hence my question, and the confusing examples -- sorry.

OK I ran your first example up the flag pole. Here's the whole thing (note I haven't yet attempted to finalize the IP portion): 

#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use Net::Whois::Raw;
use Net::Whois::ARIN;

$Net::Whois::Raw::OMIT_MSG = 1;
$Net::Whois::Raw::CACHE_TIME = 1;
$Net::Whois::Raw::TIMEOUT = 8;

my $q = new CGI;
my $domname = $q->param("domname");
my $ip = $q->param("ip");

print "content-type:text/html; charset=utf-8\n\n";
print qq(<!DOCTYPE html>
<head><title>igwhois</title></head><body>);
print qq(<form method="post" action="/igwhois.cgi">
<fieldset>
    <label for="domname">Domain: </label><input type="text" name="domn
+ame" /><br />
    <label for="ip">IP: </label><input type="text" name="ip" />
</fieldset>
</form>);    
    
if (!$domname) {
    print "";
} else {
    my $text = get_whois($domname, undef, "QRY_LAST");
print qq(<pre>);
    print $text;
print qq(</pre>);
}


my $w = Net::Whois::ARIN->new(
    host    => 'whois.arin.net',
    port    => 43,
    timeout => 30,
);

if (!$ip) {
    print "";
} else {
    my @records = $w->network($ip);
    foreach my $net (@records)  {
        # print ...;
    }
}
print qq(</body></html>);

[download]
Sadly. Entering a domain name in the top field, and hitting enter, does nothing. It doesn't even post a query.
However. If I comment out the ip text field, and try it again. It works.
???

In a sick sort of way; this is refreshing. As I attempted a similar solution to the one you provided, and it reacted exactly the same.
So I don't feel quite so stupid now -- which is not to imply you are.

I'll take a shot at your second example, and see if I can get that one to work

Thank you again, ig, For all your time, and effort! I really appreciate it.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;

In reply to Re^2: How to deal with multiple functions served from only one input field? by taint
in thread How to deal with multiple functions served from only one input field? by taint

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.