comment on

++ 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

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks