#define WWIPSTUFF_SHAREWARE .F.

SET PROCEDURE TO wwUtils ADDITIVE
SET PROCEDURE TO wwAPI ADDITIVE
SET PROCEDURE TO wwEval ADDITIVE
SET PROCEDURE TO wwHTTP ADDITIVE   
SET PROCEDURE TO wwSMTP ADDITIVE
SET PROCEDURE TO WWPOP3 ADDIT
SET PROCEDURE TO wwDotNetBridge ADDITIVE

*** Optional XML features
SET CLASSLIB TO wwXML ADDITIVE


#IF WWIPSTUFF_SHAREWARE
    IF    MessageBox("Thank you for trying out the Shareware Version of"+CHR(13) +;
             "West Wind Internet Protocols." + CHR(13)+CHR(13) +;
             "Please don't forget to register your copy at:" +CHR(13) +;
             "http://www.west-wind.com/" +CHR(13) + CHR(13)+ ;
             "Register now?",32+4+256,;       
             "West Wind IP Tools")   = 6
           GoUrl("http://localhost/wwIPstuff.asp")
   ENDIF
#ENDIF

DO PATH WITH ".\SAMPLES\"