topic-12482

Posts: 190

Joined: Tue Mar 14, 2006 01:59 AM

Twebclie enhancement
Posted: Sat Aug 30, 2008 05:06 PM

The modified method above allows retrieving a page from a server with shared IP hosting (but works even with static IP servers) if cPageName starts with "http://", otherwise it works as before (for compatibility reasons).

Code: Select all Collapse

   METHOD GetPage( cPageName ) INLINE ;   
          ::oSocket:SendData( "GET "+IIf(Upper(Left(cPageName,7))="HTTP://",;
                              cPageName + " HTTP/1.0" + CRLF + "host: " + SubStr(cPageName,8,AT("/",SubStr(cPageName,8)+"/")-1),;
                              "/" + cPageName + " HTTP/1.0") + CRLF + CRLF )

Antonio, could you please update the standard lib ?
Hi,
Davide

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Twebclie enhancement
Posted: Sun Aug 31, 2008 06:38 PM

Davide,

Updated, thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Davide

Posts: 190

Joined: Tue Mar 14, 2006 01:59 AM

Twebclie enhancement
Posted: Wed Sep 03, 2008 03:02 AM

This one is better (correct HTTP/1.1 syntax and user-agent declaration)
Hi,
Davide