Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 20 | Rev 92 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | # |
1 | # |
2 | # VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois) |
2 | # VGWhoIs (ViaThinkSoft Global WhoIs, a fork of generic Whois / gwhois) |
3 | # Main program |
3 | # Main program |
4 | # |
4 | # |
5 | # (c) 2010-2019 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de> |
5 | # (c) 2010-2022 by Daniel Marschall, ViaThinkSoft <info@daniel-marschall.de> |
6 | # based on the code (c) 1998-2010 by Juliane Holzt <debian@kju.de> |
6 | # based on the code (c) 1998-2010 by Juliane Holzt <debian@kju.de> |
7 | # Some early parts by Lutz Donnerhacke <Lutz.Donnerhacke@Jena.Thur.de> |
7 | # Some early parts by Lutz Donnerhacke <Lutz.Donnerhacke@Jena.Thur.de> |
8 | # |
8 | # |
9 | # License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2) |
9 | # License: https://www.gnu.org/licenses/gpl-2.0.html (GPL version 2) |
10 | # |
10 | # |
Line 332... | Line 332... | ||
332 | } |
332 | } |
333 | 333 | ||
334 | elsif ($method eq 'cgi') { |
334 | elsif ($method eq 'cgi') { |
335 | my ($protocol, $hostname) = VGWhoIs::Utils::splitProtocolHost($host); |
335 | my ($protocol, $hostname) = VGWhoIs::Utils::splitProtocolHost($host); |
336 | 336 | ||
337 | print "Querying $hostname ($protocol) with cgi.\n\n"; |
337 | print "Querying $hostname ($protocol) with cgi:\n$host\n\n"; |
338 | #!! |
338 | |
339 | # print "$host\n"; |
339 | $result = VGWhoIs::Utils::lynxrender($host); |
- | 340 | ||
340 | 341 | ||
341 | # TODO: lynx seems to be better in some ways! |
342 | # Old: |
342 | # For example, a website that outputs "text/plain" will be rendered correct in lynx! |
- | |
343 | # $result = `lynx -connect_timeout=10 -dump "$host" 2>&1`; |
- | |
344 | # $result .= "FAILED with exit code $?\n\n" if $?; |
- | |
345 | 343 | ||
346 | # $result = `curl --max-time 10 --stderr /dev/null "$host" 2>&1`; # TODO escape |
344 | # $result = `curl --max-time 10 --stderr /dev/null "$host" 2>&1`; # TODO escape |
347 | 345 | ||
348 | # TODO: VGWhoIs::Core::getsource ok? war vorher IMMER lynx |
346 | # TODO: VGWhoIs::Core::getsource ok? war vorher IMMER lynx |
349 | my ($loc_text, $loc_exitcode) = VGWhoIs::Core::getsource($host); |
347 | # my ($loc_text, $loc_exitcode) = VGWhoIs::Core::getsource($host); |
- | 348 | ||
- | 349 | # $exitcode = max($exitcode, $loc_exitcode); |
|
- | 350 | # if ($loc_exitcode) { |
|
- | 351 | # $result .= "Query to web server failed.\n"; |
|
- | 352 | # } else { |
|
- | 353 | # $result = VGWhoIs::Utils::render_html($loc_text); |
|
- | 354 | # } |
|
350 | 355 | ||
351 | $exitcode = max($exitcode, $loc_exitcode); |
- | |
352 | if ($loc_exitcode) { |
- | |
353 | $result .= "Query to web server failed.\n"; |
- | |
354 | } else { |
- | |
355 | $result = VGWhoIs::Utils::render_html($loc_text); |
- | |
356 | } |
- | |
357 | } |
356 | } |
358 | 357 | ||
359 | elsif ($method eq 'cgipost') { |
358 | elsif ($method eq 'cgipost') { |
360 | my ($protocol, $hostname) = VGWhoIs::Utils::splitProtocolHost($host); |
359 | my ($protocol, $hostname) = VGWhoIs::Utils::splitProtocolHost($host); |
361 | 360 |