/////////////////////////////////////////////////////////////////////////////// // EVENT: Installed event is sent just after files for the // WebLibrary or SourceCode features are transferred. /////////////////////////////////////////////////////////////////////////////// export prototype WebLibrary_Installed(); function WebLibrary_Installed() STRING svReturnLine, szInsertLine, szFileName, svGSDLHOME; NUMBER nResult, nvLineNumber; STRING szTitle, szMsg, svTmp; STRING szServerTxt, svCgiBin; LIST listInfo; begin svGSDLHOME = INSTALLDIR; // edit the gsdlsite.cfg file VarSave(SRCTARGETDIR); StrRemoveLastSlash(svGSDLHOME); SRCDIR = INSTALLDIR ^ "cgi-bin"; szFileName = INSTALLDIR ^ "cgi-bin" ^ "gsdlsite.cfg"; // if filegrep fails it's probably because gsdlsite.cfg has already // been edited by a previous call to WebLibrary_Installed (this will // happen if both the SourceCode and WebLibrary features are being // installed) nResult = FileGrep(szFileName, "**GSDLHOME**", svReturnLine, nvLineNumber, RESTART); if (nResult = 0) then szInsertLine = "gsdlhome \"" + svGSDLHOME + "\""; FileInsertLine("gsdlsite.cfg", szInsertLine, nvLineNumber, REPLACE); nResult = FileGrep(szFileName, "#httpprefix", svReturnLine, nvLineNumber, RESTART); if (nResult = 0) then szInsertLine = "httpprefix /gsdl"; FileInsertLine("gsdlsite.cfg", szInsertLine, nvLineNumber, REPLACE); else MessageBox(@TEXT_FILEGREP_FAILED, WARNING); endif; nResult = FileGrep(szFileName, "httpimg /images", svReturnLine, nvLineNumber, RESTART); if (nResult = 0) then szInsertLine = "httpimg /gsdl/images"; FileInsertLine("gsdlsite.cfg", szInsertLine, nvLineNumber, REPLACE); else MessageBox(@TEXT_FILEGREP_FAILED, WARNING); endif; endif; VarRestore(SRCTARGETDIR); // Create and display the SERVER.TXT file (will already exist if // this is the second call to this function) if (!Is(FILE_EXISTS, INSTALLDIR ^ "SERVER.TXT")) then szServerTxt = INSTALLDIR ^ "SERVER.TXT"; svCgiBin = INSTALLDIR ^ "cgi-bin"; szTitle = ""; szMsg = " "; listInfo = ListCreate(STRINGLIST); ListAddString(listInfo, @TEXT_SERVERTXT_01, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_02, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_03, AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_04, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_05, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_06, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_07, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_08, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_09, AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_10, AFTER); Sprintf(svTmp, @TEXT_SERVERTXT_11, szServerTxt); ListAddString(listInfo, svTmp, AFTER); ListAddString(listInfo, " ", AFTER); Sprintf(svTmp, @TEXT_SERVERTXT_12, TARGETDIR); ListAddString(listInfo, svTmp, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_13, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_14, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_15, AFTER); Sprintf(svTmp, @TEXT_SERVERTXT_16, svCgiBin); ListAddString(listInfo, svTmp, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_17, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_18, AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_19, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_20, AFTER); ListAddString(listInfo, " ", AFTER); rs(svCgiBin); rs(svGSDLHOME); ListAddString(listInfo, " ScriptAlias /gsdl/cgi-bin \"" + svCgiBin + "/\"", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, " Options None", AFTER); ListAddString(listInfo, " AllowOverride None", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, " Alias /gsdl \"" + svGSDLHOME + "/\"", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, " Options Indexes MultiViews FollowSymLinks", AFTER); ListAddString(listInfo, " AllowOverride None", AFTER); ListAddString(listInfo, " Order allow,deny", AFTER); ListAddString(listInfo, " Allow from all", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_21, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_22, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_23, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_24, AFTER); ListAddString(listInfo, " ", AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_25, AFTER); ListAddString(listInfo, @TEXT_SERVERTXT_26, AFTER); ListAddString(listInfo, " ", AFTER); ListWriteToFile(listInfo, szServerTxt); SdShowInfoList(szTitle, szMsg, listInfo); ListDestroy(listInfo); endif; end; /////////////////////////////////////////////////////////////////////////////// // EVENT: Uninstalling event is sent just before files for the feature: // WebLibrary are removed during uninstallation. /////////////////////////////////////////////////////////////////////////////// export prototype WebLibrary_UnInstalling(); function WebLibrary_UnInstalling() STRING szFile; begin szFile = INSTALLDIR ^ "SERVER.TXT"; DeleteFile(szFile); end;