home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / dsl / NVinst.exe / Scripts / Terminal / whois.nvs < prev   
Encoding:
Text File  |  2007-02-10  |  2.0 KB  |  75 lines
  1. program Terminal_WhoIs;
  2. var evnt,i,x:integer;
  3.     s,s1,s2,s3,ts:string;
  4.     v1,v2:integer;
  5. begin
  6. enableharddisconnect(0);
  7. setstatus('Connected to WhoIs server '+nv_remoteip);
  8. textbackground($000000);
  9. textfont(0);setoemcp(0);
  10. setbackcolor($000000);
  11. textbackground($FFFFFF);
  12. writeln('                                                                              ');
  13. textbackground($000000);
  14. textcolor($00FFFF);
  15. writeln('>Type in any text field below address, about which you wish to see information');
  16. writeln('>If specified server doesn''t has information try another server');
  17. s:='';
  18. repeat
  19. evnt:=waitevent(v1,v2);
  20. if (evnt=1) or (evnt=0) then
  21.  begin
  22.  repeat
  23.  try
  24.   s:=s+recv;
  25.   except
  26.   s:=s+#13;
  27.   evnt:=0;
  28.   end;
  29.   x:=pos(#13,s);
  30.   if x=0 then x:=pos(#10,s);
  31.   if x=0 then x:=pos('%',s);
  32.   if x<>0 then
  33.    begin
  34.    ts:=copy(s,1,x-1);
  35.    if length(ts)>1 then
  36.     begin
  37.     if (ts[1]='[') and (ts[length(ts)]=']') then textcolor($FFFF00) else
  38.     if ((ts[1]=';') and (ts[2]=';'))or (ts[1]='%') then textcolor($FF00FF) else
  39.     if (ts[1]=';') then textcolor($FF00AA) else
  40.     if (pos('inetnum:',ts)=1) or (pos('org:',ts)=1) or (pos('netname:',ts)=1) or
  41.      (pos('descr:',ts)=1) or (pos('country:',ts)=1) or (pos('organisation:',ts)=1) or
  42.      (pos('org-name:',ts)=1) or (pos('org-type:',ts)=1) or (pos('address:',ts)=1) or
  43.      (pos('phone:',ts)=1)or(pos('e-mail:',ts)=1)or(pos('fax-no:',ts)=1)or
  44.      (pos('person:',ts)=1)or(pos('route:',ts)=1)or(pos('holes:',ts)=1)or
  45.      (pos('origin:',ts)=1)then textcolor($CCFFCC) else
  46.      textcolor($00FF00);
  47.     end else textcolor($00FF00)
  48.    writeln(ts);
  49.    delete(s,1,x);
  50.    end;
  51.   until x=0;
  52.  end;
  53. if evnt=5 then
  54.  begin
  55.  s:=chr(v2);
  56.  {if(v2=13)then s:=s+#10;}
  57.  send(s);
  58.  end;
  59.  
  60. if evnt=6 then
  61.  begin
  62.  s1:='';s2:='';
  63.  i:=getinputtext(s1,s2);
  64.  
  65.  if(v2<>0)then begin s3:=s1+s2; setinputtext(2,'');end
  66.           else begin s3:=s1; setinputtext(1,'');end;
  67.  textcolor($FFFF00);
  68.  writeln('>'+s3);
  69.  if(i and 1)<>0 then s3:=s3+#13#10;
  70.  send(s3);
  71.  end;
  72.  
  73. until evnt=0;
  74. end.
  75.