Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Lets convert asp serverside to htm clientside

Status
Not open for further replies.
Phalanx1

Phalanx1

Programmer
Jul 21, 2003
128
US
<script language=&quot;perlscript&quot; runat=&quot;server&quot;>
use IO::Socket;
sub ErrorReport(){
$Response->Write(&quot;Cannot connect!&quot;);
$Response->end;
}

sub whois {
my ($domain, $server) = @_;
my $returnString=&quot;&quot;;

my $remote=new IO::Socket::INET(
Proto => &quot;tcp&quot;,
PeerAddr => &quot;$server&quot;,
PeerPort => &quot;whois(43)&quot;,
) or die ErrorReport;

$remote->autoflush(1);
print $remote &quot;$domain\n&quot; . $BLANK;
while ( <$remote> ) {
$returnString.=$_;
}
close $remote;
$returnString;
}

</script>
<%
domain=Request(&quot;domain&quot;)
if domain & &quot;&quot; = &quot;&quot; then
domain=&quot;enter-domain-here.com&quot;
end if
%>
<head>
<title>Whois Utility -- ASP and PerlScript!</title>
</head>
<body>
<h1>Whois Utility</h1>
<p>Use this page to look up a domain name in the internic database,
or any of the listed databases. Have fun!
<p>
<form action=&quot;inc-whois.asp&quot;>
<table>
<tr>
<td align=&quot;right&quot;>Enter domain to search for:</td>
<td><input name=&quot;domain&quot; type=&quot;text&quot; value=&quot;<% =domain %>&quot; size=&quot;25&quot;>&nbsp;&nbsp;
<input type=&quot;submit&quot; value=&quot;Look up domain&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;>Select a WHOIS database:</td>
<td><select name=&quot;db&quot; size=&quot;1&quot;>
<option value=&quot;rs.internic.net&quot; selected>The InterNIC
(rs.internic.net)
<option value=&quot;whois.arin.net&quot;>American Registry for Internet
Numbers (whois.arin.net)
<option value=&quot;whois.ripe.net&quot;>European IP Address Allocations
(whois.ripe.net)
<option value=&quot;whois.apnic.net&quot;>European IP Address Allocations
(whois.apnic.net)
<option value=&quot;whois.nic.mil&quot;>US Military (whois.nic.mil)
<option value=&quot;whois.nic.gov&quot;>US Government (whois.nic.gov)
</select></td>
</tr>
</table>
</form>
<%
if Request(&quot;domain&quot;) & &quot;&quot; <> &quot;&quot; then
strDomain=Request(&quot;domain&quot;)
strDB=Request(&quot;db&quot;)
strOutput=&quot;<br><br><hr><br><pre>&quot; & _
whois(strDomain,strDB) & &quot;</pre>&quot;
Response.Write strOutput
end if
%>
</body>
</html>
this is what we will convert to clientside
 
HERE IT IS
BUT IT HAS BUGS(AS eXPECTED)

P-)

<script language=&quot;perlscript&quot;>
use IO::Socket;
sub ErrorReport(){
$Window->document-getElementById(Response)->innerText(&quot;Cannot connect!&quot;);
}

sub whois {
my ($domain, $server) = @_;
my $returnString=&quot;&quot;;

my $remote=new IO::Socket::INET(
Proto => &quot;tcp&quot;,
PeerAddr => &quot;$server&quot;,
PeerPort => &quot;whois(43)&quot;,
) or die ErrorReport;

$remote->autoflush(1);
print $remote &quot;$domain\n&quot; . $BLANK;
while ( <$remote> ) {
$returnString.=$_;
}
close $remote;
$returnString;
}

</script>
<script language=&quot;vbscript&quot;>
Function SelectDomain()
if domain & &quot;&quot; = &quot;&quot; Then
domain=InputBox(&quot;enter-domain-here.com&quot;)
Else
Set domain = nothing
domain = document.domain.innerText
end If
End Function
</script>
<head>
<title>Whois Utility -- ASP and PerlScript!</title>
</head>
<body>
<h1>Whois Utility</h1>
<p>Use this page to look up a domain name in the internic database,
or any of the listed databases. Have fun!
<p>
<div id=&quot;Response&quot;></div>
<form action=&quot;return false;&quot; onsubmit=&quot;SelectDomain()&quot;>
<table>
<tr>
<td align=&quot;right&quot;>Enter domain to search for:</td>
<td><input name=&quot;domain&quot; type=&quot;text&quot; value=&quot;&quot; size=&quot;25&quot;>&nbsp;&nbsp;
<input id=&quot;GetDomain&quot; type=&quot;submit&quot; value=&quot;Look up domain&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;>Select a WHOIS database:</td>
<td><select name=&quot;db&quot; size=&quot;1&quot;>
<option value=&quot;rs.internic.net&quot; selected>The InterNIC
(rs.internic.net)
<option id=&quot;DF&quot; value=&quot;whois.arin.net&quot;>American Registry for Internet
Numbers (whois.arin.net)
<option id=&quot;DF1&quot; value=&quot;whois.ripe.net&quot;>European IP Address Allocations
(whois.ripe.net)
<option id=&quot;DF2&quot; value=&quot;whois.apnic.net&quot;>European IP Address Allocations
(whois.apnic.net)
<option id=&quot;DF3&quot; value=&quot;whois.nic.mil&quot;>US Military (whois.nic.mil)
<option id=&quot;DF4&quot; value=&quot;whois.nic.gov&quot;>US Government (whois.nic.gov)
</select></td>
</tr>
</table>
</form>
<script language=&quot;Perlscript&quot;>
if($window->GetDomain->click eq 1){
my $strDomain = $window->document->getElementById(domain)->innerText
my @strDB =&quot;needs help here though!!&quot;
$strOutput=&quot;<br><br><hr><br><pre>&quot; & whois($strDomain, %strDB) & &quot;</pre>&quot;l
$window->document->getElementById(Response)->innerText = strOutput;
}
</script>
</body>
</html>
 
Phalanx, please post real questions. You say 'Here it is' and then post a bunch of code with no context.

Its better to say

'My question is: bla bla bla bla bla bla?'

'here is my code that gives me this problem.'

We are not your personal ASP to Perl conversion service ;)
 
at this line
my @strDB =&quot;needs help here though&quot;
i need a substitute to the request object to request a childnode of the select box.

sorry about saying we will convert it when i should have said &quot;I will convert it&quot;, and then ask for help.


 
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
1K
rob54321
rob54321
newbie1238585
  • Locked
  • Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
647
mikrom
mikrom
ss_ham
  • Locked
  • Question
in Perl find call looking to exclude folder and ignore duplicate finds.
Replies
2
Views
552
ss_ham
ss_ham
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
521
Dino_1000
Dino_1000
dan
  • Locked
  • Question
add a variable to subject in formmail.pl
Replies
6
Views
649
feherke
feherke

Part and Inventory Search

Sponsor

Back
Top