TODO

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1035 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/HTTPDtype.pl b/src/Modules/HTTPDtype.pl
index b65cc75138c4b60d1680b7bd8b484551f027e4f8..60db93dc3a26b811b9a4930e74106d9c834af864 100644 (file)
--- a/src/Modules/HTTPDtype.pl
+++ b/src/Modules/HTTPDtype.pl
@@ -12,6 +12,7 @@ sub HTTPDtype {
     my($line) = '';
     my($code, $mess, %h);
 
+    # TODO: remove leading http:// and trailing :port and /foo if found
     $HOST = 'joeysmith.com' unless length($HOST) > 0;
     return unless &::loadPerlModule("Net::HTTP::NB");
     return unless &::loadPerlModule("IO::Select");