* src/translate.erl: Search translations directory in priv_dir
instead of lib_dir (thanks to Sergei Golovan) * src/**/Makefile.in: Updated (thanks to Sergei Golovan) * src/win32/: Win32 installer stuff (thanks to Sergei Golovan) * src/**/Makefile.win32: Updated (thanks to Sergei Golovan) * src/configure.bat: Likewise * src/configure.erl: Likewise * doc/guide.tex: Updated (thanks to Sergei Golovan) SVN Revision: 226
This commit is contained in:
Alexey Shchepin
parent
aaccaa5a45
commit
13f650037e
15
ChangeLog
15
ChangeLog
|
|
@ -1,3 +1,18 @@
|
|||
2004-04-27 Alexey Shchepin <alexey@sevcom.net>
|
||||
|
||||
* src/translate.erl: Search translations directory in priv_dir
|
||||
instead of lib_dir (thanks to Sergei Golovan)
|
||||
|
||||
* src/**/Makefile.in: Updated (thanks to Sergei Golovan)
|
||||
|
||||
* src/win32/: Win32 installer stuff (thanks to Sergei Golovan)
|
||||
|
||||
* src/**/Makefile.win32: Updated (thanks to Sergei Golovan)
|
||||
* src/configure.bat: Likewise
|
||||
* src/configure.erl: Likewise
|
||||
|
||||
* doc/guide.tex: Updated (thanks to Sergei Golovan)
|
||||
|
||||
2004-04-26 Alexey Shchepin <alexey@sevcom.net>
|
||||
|
||||
* src/web/ejabberd_web_admin.erl: Better design for administration
|
||||
|
|
|
|||
|
|
@ -130,11 +130,10 @@ packages:
|
|||
\item \footahref{http://www.erlang.org/download/otp_win32_R9C-0.exe}{Erlang emulator version~5.3}
|
||||
\item \footahref{http://prdownloads.sourceforge.net/expat/expat_win32bin_1_95_7.exe?download}{Expat~1.95.7}
|
||||
\item
|
||||
\footahref{http://prdownloads.sourceforge.net/gnuwin32/libiconv-1.8-1-bin.exe?download}{Iconv~1.8
|
||||
binaries} and
|
||||
\footahref{http://prdownloads.sourceforge.net/gnuwin32/libiconv-1.8-1-lib.exe?download}{Iconv~1.8
|
||||
development libraries}
|
||||
\footahref{http://ftp.gnu.org/pub/gnu/libiconv/libiconv-1.9.1.tar.gz}{Iconv~1.9.1}
|
||||
(optional)
|
||||
\item \footahref{http://www.slproweb.com/download/Win32OpenSSL-v0.9.7d.exe}{Shining Light OpenSSL}
|
||||
(to enable SSL connections)
|
||||
\end{itemize}
|
||||
|
||||
|
||||
|
|
@ -169,31 +168,25 @@ TBD
|
|||
\label{sec:compilationwin}
|
||||
|
||||
\begin{enumerate}
|
||||
\item Install Erlang emulator (for example, into \verb|C:\Program Files\erl5.1.2|).
|
||||
\item Install Expat library into \verb|C:\Program Files\Expat-1.95.6|
|
||||
directory. Copy file \verb|C:\Program Files\Expat-1.95.6\Libs\libexpat.dll|
|
||||
\item Install Erlang emulator (for example, into \verb|C:\Program Files\erl5.3|).
|
||||
\item Install Expat library into \verb|C:\Program Files\Expat-1.95.7|
|
||||
directory. Copy file \verb|C:\Program Files\Expat-1.95.7\Libs\libexpat.dll|
|
||||
to your Windows system directory (for example, \verb|C:\WINNT| or
|
||||
\verb|C:\WINNT\System32|)
|
||||
\item Install Iconv library into \verb|C:\Program Files\GnuWin32| directory.
|
||||
Copy file \verb|C:\Program Files\GnuWin32\bin\libiconv-2.dll| to your
|
||||
\item Build and install Iconv library into \verb|C:\Program Files\iconv-1.9.1| directory.
|
||||
Copy file \verb|C:\Program Files\iconv-1.9.1\bin\iconv.dll| to your
|
||||
Windows system directory.
|
||||
|
||||
Note: Instead of copying libexpat.dll and libiconv-2.dll to Windows
|
||||
Note: Instead of copying libexpat.dll and iconv.dll to Windows
|
||||
directory, you can add directories
|
||||
\verb|C:\Program Files\Expat-1.95.6\Libs| and
|
||||
\verb|C:\Program Files\GnuWin32\bin| to \verb|PATH| environment
|
||||
\verb|C:\Program Files\Expat-1.95.7\Libs| and
|
||||
\verb|C:\Program Files\iconv-1.9.1\bin| to \verb|PATH| environment
|
||||
variable.
|
||||
\item Being in \verb|ejabberd\src| directory run:
|
||||
\begin{verbatim}
|
||||
configure
|
||||
nmake -f Makefile.win32
|
||||
\end{verbatim}
|
||||
\item To build MUC, IRC and pub/sub modules run
|
||||
\begin{verbatim}
|
||||
nmake -f Makefile.win32
|
||||
\end{verbatim}
|
||||
in \verb|ejabberd\src\mod_muc|, \verb|ejabberd\src\mod_muc| and
|
||||
\verb|ejabberd\src\mod_pubsub| directories
|
||||
\item Edit file \verb|ejabberd\src\ejabberd.cfg| and run
|
||||
\begin{verbatim}
|
||||
werl -s ejabberd -name ejabberd
|
||||
|
|
@ -201,14 +194,6 @@ werl -s ejabberd -name ejabberd
|
|||
\item Enjoy!
|
||||
\end{enumerate}
|
||||
|
||||
Some recent versions of Erlang distribution it seems have bug in crypto
|
||||
application, so ejabberd could be built but users can't use digest
|
||||
authentication (only plain-text). Also it seems SSL support is broken in
|
||||
Windows distribution of Erlang emulator.
|
||||
|
||||
|
||||
|
||||
|
||||
%\subsection{Initial Configuration}
|
||||
%\label{sec:initconfig}
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,6 @@
|
|||
|
||||
include Makefile.inc
|
||||
|
||||
EXPAT_DIR="c:\progra~1\expat-1.95.7"
|
||||
|
||||
ALL : build
|
||||
|
||||
REL=..\release
|
||||
|
|
@ -12,8 +10,20 @@ MSGS_DIR=$(EREL)\msgs
|
|||
SRC_DIR=$(EREL)\src
|
||||
PRIV_DIR=$(EREL)\priv
|
||||
SO_DIR=$(PRIV_DIR)\lib
|
||||
WIN32_DIR=$(EREL)\win32
|
||||
DOC_DIR=$(EREL)\doc
|
||||
|
||||
NSIS_SCRIPT=win32\ejabberd.nsi
|
||||
NSIS_HEADER=win32\ejabberd.nsh
|
||||
|
||||
installer : $(NSIS_SCRIPT) $(NSIS_HEADER)
|
||||
makensis $(NSIS_SCRIPT)
|
||||
|
||||
$(NSIS_HEADER) : Makefile.inc
|
||||
echo !define OUTFILEDIR "..\$(REL)" >$(NSIS_HEADER)
|
||||
echo !define TESTDIR "..\$(REL)\ejabberd-$(EJABBERD_VERSION)" >>$(NSIS_HEADER)
|
||||
echo !define VERSION "$(EJABBERD_VERSION)" >>$(NSIS_HEADER)
|
||||
|
||||
release_clean :
|
||||
if exist $(REL) rd /s /q $(REL)
|
||||
|
||||
|
|
@ -29,6 +39,11 @@ release : build release_clean
|
|||
copy *.dll $(SO_DIR)
|
||||
mkdir $(MSGS_DIR)
|
||||
copy msgs\*.msg $(MSGS_DIR)
|
||||
mkdir $(WIN32_DIR)
|
||||
copy win32\ejabberd.cfg $(EREL)
|
||||
copy win32\ejabberd.ico $(WIN32_DIR)
|
||||
mkdir $(WIN32_DIR)\5.3
|
||||
copy win32\5.3\*.beam $(WIN32_DIR)\5.3
|
||||
mkdir $(SRC_DIR)
|
||||
copy *.app $(SRC_DIR)
|
||||
copy *.erl $(SRC_DIR)
|
||||
|
|
@ -50,6 +65,9 @@ release : build release_clean
|
|||
copy stringprep\*.tcl $(SRC_DIR)\stringprep
|
||||
mkdir $(SRC_DIR)\web
|
||||
copy web\*.erl $(SRC_DIR)\web
|
||||
mkdir $(SRC_DIR)\win32
|
||||
mkdir $(SRC_DIR)\win32\5.3
|
||||
copy win32\5.3\*.erl $(SRC_DIR)\win32\5.3
|
||||
mkdir $(DOC_DIR)
|
||||
copy ..\doc\*.html $(DOC_DIR)
|
||||
copy ..\doc\*.png $(DOC_DIR)
|
||||
|
|
@ -73,7 +91,9 @@ all-recursive :
|
|||
nmake -nologo -f Makefile.win32
|
||||
cd ..\web
|
||||
nmake -nologo -f Makefile.win32
|
||||
cd ..
|
||||
cd ..\win32\5.3
|
||||
nmake -nologo -f Makefile.win32
|
||||
cd ..\..
|
||||
|
||||
compile-beam :
|
||||
erl -s make all report -noinput -s erlang halt
|
||||
|
|
@ -100,16 +120,18 @@ clean-recursive :
|
|||
nmake -nologo -f Makefile.win32 clean
|
||||
cd ..\web
|
||||
nmake -nologo -f Makefile.win32 clean
|
||||
cd ..
|
||||
cd ..\win32\5.3
|
||||
nmake -nologo -f Makefile.win32 clean
|
||||
cd ..\..
|
||||
|
||||
distclean : release_clean clean
|
||||
-@erase Makefile.inc
|
||||
|
||||
CC=cl.exe
|
||||
CC_FLAGS=-nologo -D__WIN32__ -DWIN32 -DWINDOWS -D_WIN32 -DNT -MD -Ox -I"$(ERLANG_DIR)\usr\include" -I"$(EI_DIR)\include" -I"$(EXPAT_DIR)\source\lib"
|
||||
CC_FLAGS=-nologo -D__WIN32__ -DWIN32 -DWINDOWS -D_WIN32 -DNT $(EXPAT_FLAG) -MD -Ox -I"$(ERLANG_DIR)\usr\include" -I"$(EI_DIR)\include" -I"$(EXPAT_DIR)\source\lib"
|
||||
|
||||
LD=link.exe
|
||||
LD_FLAGS=-release -nologo -incremental:no -dll "$(EI_DIR)\lib\ei_md.lib" "$(EI_DIR)\lib\erl_interface_md.lib" "$(EXPAT_DIR)\libs\libexpat.lib" MSVCRT.LIB kernel32.lib advapi32.lib gdi32.lib user32.lib comctl32.lib comdlg32.lib shell32.lib
|
||||
LD_FLAGS=-release -nologo -incremental:no -dll "$(EI_DIR)\lib\ei_md.lib" "$(EI_DIR)\lib\erl_interface_md.lib" "$(EXPAT_LIB)" MSVCRT.LIB kernel32.lib advapi32.lib gdi32.lib user32.lib comctl32.lib comdlg32.lib shell32.lib
|
||||
|
||||
$(DLL) : $(OBJECT)
|
||||
$(LD) $(LD_FLAGS) -out:$(DLL) $(OBJECT)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,20 @@
|
|||
|
||||
@if "x%1"=="x--help" goto usage
|
||||
|
||||
@set arg=dynamic
|
||||
@if "x%1"=="x--static" set arg=static
|
||||
|
||||
@echo Configuring for %arg% build...
|
||||
|
||||
erlc configure.erl
|
||||
erl -s configure -noshell
|
||||
erl -s configure -env arg %arg% -noshell
|
||||
|
||||
@goto end
|
||||
|
||||
:usage
|
||||
@echo Usage: configure.bat
|
||||
@echo or configure.bat --static
|
||||
@echo or configure.bat --help
|
||||
|
||||
:end
|
||||
|
||||
|
|
|
|||
|
|
@ -15,11 +15,46 @@
|
|||
-include("ejabberd.hrl").
|
||||
|
||||
start() ->
|
||||
EIDirS = "EI_DIR = " ++ code:lib_dir("erl_interface") ++ "\n",
|
||||
Static = case os:getenv("arg") of
|
||||
false ->
|
||||
false;
|
||||
"static" ->
|
||||
true;
|
||||
_ ->
|
||||
false
|
||||
end,
|
||||
case Static of
|
||||
true ->
|
||||
ExpatLib = "EXPAT_LIB = $(EXPAT_DIR)\\StaticLibs\\libexpatMT.lib\n",
|
||||
ExpatFlag = "EXPAT_FLAG = -DXML_STATIC\n",
|
||||
IconvDir = "ICONV_DIR = c:\\progra~1\\libiconv-1.9.1-static\n",
|
||||
IconvLib = "ICONV_LIB = $(ICONV_DIR)\\lib\\iconv.lib\n";
|
||||
false ->
|
||||
ExpatLib = "EXPAT_LIB = $(EXPAT_DIR)\\Libs\\libexpat.lib\n",
|
||||
ExpatFlag = "",
|
||||
IconvDir = "ICONV_DIR = c:\\progra~1\\libiconv-1.9.1\n",
|
||||
IconvLib = "ICONV_LIB = $(ICONV_DIR)\\lib\\iconv.lib\n"
|
||||
end,
|
||||
|
||||
EIDirS = "EI_DIR = " ++ code:lib_dir("erl_interface") ++ "\n",
|
||||
RootDirS = "ERLANG_DIR = " ++ code:root_dir() ++ "\n",
|
||||
Version = "EJABBERD_VERSION = " ++ ?VERSION ++ "\n",
|
||||
Version = "EJABBERD_VERSION = " ++ ?VERSION ++ "\n",
|
||||
ExpatDir = "EXPAT_DIR = c:\\progra~1\\expat-1.95.7\n",
|
||||
|
||||
SSLDir = "SSLDIR = " ++ code:lib_dir("ssl") ++ "\n",
|
||||
StdLibDir = "STDLIBDIR = " ++ code:lib_dir("stdlib") ++ "\n",
|
||||
|
||||
file:write_file("Makefile.inc",
|
||||
list_to_binary(EIDirS ++ RootDirS ++ Version)),
|
||||
list_to_binary(EIDirS ++
|
||||
RootDirS ++
|
||||
Version ++
|
||||
SSLDir ++
|
||||
StdLibDir ++
|
||||
ExpatDir ++
|
||||
ExpatLib ++
|
||||
ExpatFlag ++
|
||||
IconvDir ++
|
||||
IconvLib)),
|
||||
halt().
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,6 @@
|
|||
|
||||
include ..\Makefile.inc
|
||||
|
||||
GNUWIN_DIR="c:\progra~1\gnuwin32"
|
||||
|
||||
OUTDIR = ..
|
||||
EFLAGS = -I .. -pz ..
|
||||
|
||||
|
|
@ -34,10 +32,10 @@ $(OUTDIR)\mod_irc_connection.beam : mod_irc_connection.erl
|
|||
erlc -W $(EFLAGS) -o $(OUTDIR) mod_irc_connection.erl
|
||||
|
||||
CC=cl.exe
|
||||
CC_FLAGS=-nologo -D__WIN32__ -DWIN32 -DWINDOWS -D_WIN32 -DNT -MD -Ox -I"$(ERLANG_DIR)\usr\include" -I"$(EI_DIR)\include" -I"$(GNUWIN_DIR)\include"
|
||||
CC_FLAGS=-nologo -D__WIN32__ -DWIN32 -DWINDOWS -D_WIN32 -DNT -MD -Ox -I"$(ERLANG_DIR)\usr\include" -I"$(EI_DIR)\include" -I"$(ICONV_DIR)\include"
|
||||
|
||||
LD=link.exe
|
||||
LD_FLAGS=-release -nologo -incremental:no -dll "$(EI_DIR)\lib\ei_md.lib" "$(EI_DIR)\lib\erl_interface_md.lib" "$(GNUWIN_DIR)\lib\libiconv.lib" MSVCRT.LIB kernel32.lib advapi32.lib gdi32.lib user32.lib comctl32.lib comdlg32.lib shell32.lib
|
||||
LD_FLAGS=-release -nologo -incremental:no -dll "$(EI_DIR)\lib\ei_md.lib" "$(EI_DIR)\lib\erl_interface_md.lib" "$(ICONV_LIB)" MSVCRT.LIB kernel32.lib advapi32.lib gdi32.lib user32.lib comctl32.lib comdlg32.lib shell32.lib
|
||||
|
||||
$(DLL) : $(OBJECT)
|
||||
$(LD) $(LD_FLAGS) -out:$(DLL) $(OBJECT)
|
||||
|
|
|
|||
|
|
@ -0,0 +1,11 @@
|
|||
[Settings]
|
||||
NumFields=1
|
||||
|
||||
[Field 1]
|
||||
Type=label
|
||||
Left=0
|
||||
Right=-1
|
||||
Top=10
|
||||
Bottom=-10
|
||||
Text="Erlang OTP R9C (version 5.3) is required to install Ejabberd.\r\n\r\nIt is not found on your computer.\r\n\r\nPlease install Erlang OTP R9C before installing Ejabberd.\r\n\r\nIt can be downloaded from http://www.erlang.org/download/otp_win32_R9C-0.exe."
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
[Settings]
|
||||
NumFields=1
|
||||
|
||||
[Field 1]
|
||||
Type=label
|
||||
Left=0
|
||||
Right=-1
|
||||
Top=10
|
||||
Bottom=-10
|
||||
Text="Administrator privileges are recommended for Ejabberd install.\r\n\r\nOtherwise installing Ejabberd as a service will be impossible.\r\n\r\nIf you want to continue installation anyway, click Next."
|
||||
|
||||
|
|
@ -0,0 +1,129 @@
|
|||
% $Id$
|
||||
|
||||
%override_acls.
|
||||
|
||||
|
||||
% Users that have admin access. Add line like one of the following after you
|
||||
% will be successfully registered on server to get admin access:
|
||||
%{acl, admin, {user, "aleksey"}}.
|
||||
%{acl, admin, {user, "ermine"}}.
|
||||
|
||||
% Blocked users:
|
||||
%{acl, blocked, {user, "test"}}.
|
||||
|
||||
% Local users:
|
||||
{acl, local, {user_regexp, ""}}.
|
||||
|
||||
% Another examples of ACLs:
|
||||
%{acl, jabberorg, {server, "jabber.org"}}.
|
||||
%{acl, aleksey, {user, "aleksey", "jabber.ru"}}.
|
||||
%{acl, test, {user_regexp, "^test"}}.
|
||||
%{acl, test, {user_glob, "test*"}}.
|
||||
|
||||
|
||||
% Only admins can use configuration interface:
|
||||
{access, configure, [{allow, admin}]}.
|
||||
|
||||
% Every username can be registered via in-band registration:
|
||||
{access, register, [{allow, all}]}.
|
||||
|
||||
% After successful registration user will get message with following subject
|
||||
% and body:
|
||||
{welcome_message,
|
||||
{"Welcome!",
|
||||
"Welcome to Jabber Service. "
|
||||
"For information about Jabber visit http://jabber.org"}}.
|
||||
% Replace them with 'none' if you don't want to send such message:
|
||||
%{welcome_message, none}.
|
||||
|
||||
% List of people who will get notifications about registered users
|
||||
%{registration_watchers, ["admin1@localhost",
|
||||
% "admin2@localhost"]}.
|
||||
|
||||
% Only admins can send announcement messages:
|
||||
{access, announce, [{allow, admin}]}.
|
||||
|
||||
|
||||
% Only non-blocked users can use c2s connections:
|
||||
{access, c2s, [{deny, blocked},
|
||||
{allow, all}]}.
|
||||
|
||||
% Set shaper with name "normal" to limit traffic speed to 1000B/s
|
||||
{shaper, normal, {maxrate, 1000}}.
|
||||
|
||||
% Set shaper with name "fast" to limit traffic speed to 50000B/s
|
||||
{shaper, fast, {maxrate, 50000}}.
|
||||
|
||||
% For all users except admins used "normal" shaper
|
||||
{access, c2s_shaper, [{none, admin},
|
||||
{normal, all}]}.
|
||||
|
||||
% For all S2S connections used "fast" shaper
|
||||
{access, s2s_shaper, [{fast, all}]}.
|
||||
|
||||
% Admins of this server are also admins of MUC service:
|
||||
{access, muc_admin, [{allow, admin}]}.
|
||||
|
||||
% This rule allows access only for local users:
|
||||
{access, local, [{allow, local}]}.
|
||||
|
||||
|
||||
% Authentification method. If you want to use internal user base, then use
|
||||
% this line:
|
||||
{auth_method, internal}.
|
||||
|
||||
% For LDAP uthentification use these lines instead of above one:
|
||||
%{auth_method, ldap}.
|
||||
%{ldap_servers, ["localhost"]}. % List of LDAP servers
|
||||
%{ldap_uidattr, "uid"}. % LDAP attribute that holds user ID
|
||||
%{ldap_base, "dc=example,dc=com"}. % Base of LDAP directory
|
||||
|
||||
|
||||
% Host name:
|
||||
{host, "localhost"}.
|
||||
|
||||
|
||||
% Listened ports:
|
||||
{listen, [{5222, ejabberd_c2s, [{access, c2s},
|
||||
{shaper, c2s_shaper}]},
|
||||
% {5223, ejabberd_c2s, [{access, c2s},
|
||||
% {ssl, [{certfile, "./cert.pem"}]}]},
|
||||
{5269, ejabberd_s2s_in, [{shaper, s2s_shaper}]}%,
|
||||
% {5555, ejabberd_service, [{host, "icq.localhost", [{password, "someSecret"}]}]},
|
||||
% {8888, ejabberd_service, [%{access, local},
|
||||
% {hosts,
|
||||
% ["conference.e.localhost",
|
||||
% "muc.e.localhost"],
|
||||
% [{password, "secret"}]}]}
|
||||
]}.
|
||||
|
||||
% If SRV lookup fails, then port 5269 is used to communicate with remote server
|
||||
{outgoing_s2s_port, 5269}.
|
||||
|
||||
|
||||
% Used modules:
|
||||
{modules, [
|
||||
{mod_register, []},
|
||||
{mod_roster, []},
|
||||
{mod_privacy, []},
|
||||
{mod_configure, []},
|
||||
{mod_disco, []},
|
||||
{mod_stats, []},
|
||||
{mod_vcard, []},
|
||||
{mod_offline, []},
|
||||
{mod_echo, [{host, "echo.localhost"}]},
|
||||
{mod_private, []},
|
||||
{mod_irc, []},
|
||||
{mod_muc, []},
|
||||
{mod_pubsub, []},
|
||||
{mod_time, []},
|
||||
{mod_last, []},
|
||||
{mod_version, []}
|
||||
]}.
|
||||
|
||||
|
||||
|
||||
|
||||
% Local Variables:
|
||||
% mode: erlang
|
||||
% End:
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
|
|
@ -0,0 +1,563 @@
|
|||
; NSIS Modern User Interface
|
||||
; Ejabberd installation script
|
||||
|
||||
;--------------------------------
|
||||
;Include Modern UI
|
||||
|
||||
!include "MUI.nsh"
|
||||
!include "ejabberd.nsh" ; All release specific parameters come from this
|
||||
|
||||
;--------------------------------
|
||||
;General
|
||||
|
||||
;Name and file
|
||||
!define PRODUCT "Ejabberd"
|
||||
Name ${PRODUCT}
|
||||
OutFile "${OUTFILEDIR}\${PRODUCT}-${VERSION}.exe"
|
||||
|
||||
!define MUI_ICON "ejabberd.ico"
|
||||
!define MUI_UNICON "ejabberd.ico"
|
||||
|
||||
;--------------------------------
|
||||
;Configuration
|
||||
|
||||
SetCompressor lzma
|
||||
|
||||
;--------------------------------
|
||||
;Reserve Files
|
||||
|
||||
ReserveFile "CheckUser.ini"
|
||||
ReserveFile "CheckReqs.ini"
|
||||
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
|
||||
|
||||
;--------------------------------
|
||||
;Variables
|
||||
|
||||
Var MUI_TEMP
|
||||
Var STARTMENU_FOLDER
|
||||
Var ADMIN
|
||||
Var ERLANG_PATH
|
||||
Var ERLANG_VERSION
|
||||
Var REQUIRED_ERLANG_VERSION
|
||||
Var ERLSRV
|
||||
|
||||
;--------------------------------
|
||||
;Interface Settings
|
||||
|
||||
!define MUI_ABORTWARNING
|
||||
|
||||
;--------------------------------
|
||||
;Pages
|
||||
|
||||
!insertmacro MUI_PAGE_WELCOME
|
||||
Page custom CheckUser LeaveCheckUser
|
||||
!insertmacro MUI_PAGE_LICENSE "..\..\COPYING"
|
||||
Page custom CheckReqs LeaveCheckReqs
|
||||
;!insertmacro MUI_PAGE_COMPONENTS
|
||||
!insertmacro MUI_PAGE_DIRECTORY
|
||||
|
||||
!insertmacro MUI_PAGE_STARTMENU ${PRODUCT} $STARTMENU_FOLDER
|
||||
|
||||
!insertmacro MUI_PAGE_INSTFILES
|
||||
|
||||
!insertmacro MUI_UNPAGE_WELCOME
|
||||
!insertmacro MUI_UNPAGE_CONFIRM
|
||||
!insertmacro MUI_UNPAGE_INSTFILES
|
||||
|
||||
;--------------------------------
|
||||
;Languages
|
||||
|
||||
!insertmacro MUI_LANGUAGE "English"
|
||||
|
||||
;--------------------------------
|
||||
;Language Strings
|
||||
|
||||
;Description
|
||||
|
||||
LangString DESC_SecEjabberd ${LANG_ENGLISH} "Erlang jabber server."
|
||||
|
||||
;--------------------------------
|
||||
;Installer Sections
|
||||
|
||||
Section "Ejabberd" SecEjabberd
|
||||
SectionIn 1 RO
|
||||
|
||||
SetOutPath "$INSTDIR"
|
||||
File /r "${TESTDIR}\doc"
|
||||
File /r "${TESTDIR}\ebin"
|
||||
File /r "${TESTDIR}\msgs"
|
||||
File /r "${TESTDIR}\priv"
|
||||
File /r "${TESTDIR}\win32"
|
||||
SetOverwrite off
|
||||
File "${TESTDIR}\ejabberd.cfg"
|
||||
SetOverwrite on
|
||||
;File /r "${TESTDIR}\src"
|
||||
CreateDirectory "$INSTDIR\log"
|
||||
|
||||
;The startmenu stuff
|
||||
!insertmacro MUI_STARTMENU_WRITE_BEGIN ${PRODUCT}
|
||||
|
||||
;Create shortcuts
|
||||
StrCpy $0 "$SMPROGRAMS\$STARTMENU_FOLDER"
|
||||
CreateDirectory "$0"
|
||||
CreateShortCut "$0\Start Ejabberd.lnk" "$ERLANG_PATH\bin\werl.exe" \
|
||||
'-sname ejabberd -pa ebin -pa win32/$ERLANG_VERSION \
|
||||
-env EJABBERD_SO_PATH priv/lib -env EJABBERD_MSGS_PATH msgs \
|
||||
-env EJABBERD_LOG_PATH log/ejabberd.log \
|
||||
-s ejabberd -ejabberd config \"ejabberd.cfg\" -mnesia dir \"spool\"' \
|
||||
$INSTDIR\win32\ejabberd.ico
|
||||
CreateShortCut "$0\Edit Config.lnk" "%SystemRoot%\system32\notepad.exe" \
|
||||
"$INSTDIR\ejabberd.cfg"
|
||||
CreateShortCut "$0\Read Docs.lnk" "$INSTDIR\doc\guide.html"
|
||||
CreateShortCut "$0\Uninstall.lnk" "$INSTDIR\Uninstall.exe"
|
||||
|
||||
!insertmacro MUI_STARTMENU_WRITE_END
|
||||
|
||||
;Create Windows service
|
||||
StrCmp $ADMIN 1 0 skipservice
|
||||
|
||||
StrCpy $ERLSRV ""
|
||||
Push $ERLANG_PATH
|
||||
Push erlsrv.exe
|
||||
GetFunctionAddress $0 FFCallback
|
||||
Push $0
|
||||
Call FindFiles
|
||||
|
||||
StrCmp $ERLSRV "" skipservice
|
||||
|
||||
nsExec::ExecToLog '"$ERLSRV" remove ejabberd'
|
||||
Pop $0
|
||||
nsExec::ExecToLog '"$ERLSRV" add ejabberd -stopaction "init:stop()." \
|
||||
-onfail reboot -workdir "$INSTDIR" \
|
||||
-args "-s ejabberd -pa ebin -pa win32/$ERLANG_VERSION \
|
||||
-ejabberd config \\\"ejabberd.cfg\\\" \
|
||||
-env EJABBERD_SO_PATH priv/lib -env EJABBERD_MSGS_PATH msgs \
|
||||
-env EJABBERD_LOG_PATH log/ejabberd.log \
|
||||
-sasl sasl_error_logger {file,\\\"log/sasl.log\\\"} \
|
||||
-mnesia dir \\\"spool\\\"" -d'
|
||||
Pop $0
|
||||
nsExec::ExecToLog '"$ERLSRV" disable ejabberd'
|
||||
|
||||
skipservice:
|
||||
|
||||
;Create uninstaller
|
||||
WriteUninstaller "$INSTDIR\Uninstall.exe"
|
||||
|
||||
StrCpy $1 "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT}"
|
||||
StrCmp $ADMIN 1 admin2
|
||||
|
||||
WriteRegStr HKCU "Software\${PRODUCT}" "" "$INSTDIR"
|
||||
WriteRegStr HKCU "$1" "DisplayName" "${PRODUCT} ${VERSION}"
|
||||
WriteRegStr HKCU "$1" "UninstallString" "$INSTDIR\Uninstall.exe"
|
||||
WriteRegDWORD HKCU "$1" "NoModify" 1
|
||||
WriteRegDWORD HKCU "$1" "NoRepair" 1
|
||||
Goto done2
|
||||
|
||||
admin2:
|
||||
WriteRegStr HKLM "Software\${PRODUCT}" "" "$INSTDIR"
|
||||
WriteRegStr HKLM "Software\${PRODUCT}" "Erlsrv" "$ERLSRV"
|
||||
WriteRegStr HKLM "$1" "DisplayName" "${PRODUCT} ${VERSION}"
|
||||
WriteRegStr HKLM "$1" "UninstallString" "$INSTDIR\Uninstall.exe"
|
||||
WriteRegDWORD HKLM "$1" "NoModify" 1
|
||||
WriteRegDWORD HKLM "$1" "NoRepair" 1
|
||||
|
||||
done2:
|
||||
|
||||
SectionEnd ; SecEjabberd
|
||||
|
||||
Function FFCallback
|
||||
|
||||
Exch $0
|
||||
StrCpy $ERLSRV $0
|
||||
Pop $0
|
||||
Push "stop"
|
||||
|
||||
FunctionEnd
|
||||
|
||||
;--------------------------------
|
||||
;Descriptions
|
||||
|
||||
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
|
||||
!insertmacro MUI_DESCRIPTION_TEXT ${SecEjabberd} $(DESC_SecEjabberd)
|
||||
!insertmacro MUI_FUNCTION_DESCRIPTION_END
|
||||
|
||||
;--------------------------------
|
||||
;Uninstaller Section
|
||||
|
||||
Section "Uninstall"
|
||||
|
||||
ClearErrors
|
||||
UserInfo::GetName
|
||||
IfErrors admin
|
||||
Pop $0
|
||||
UserInfo::GetAccountType
|
||||
Pop $1
|
||||
StrCmp $1 "Admin" admin
|
||||
|
||||
StrCpy $ADMIN 0
|
||||
Goto skipservice
|
||||
|
||||
admin:
|
||||
StrCpy $ADMIN 1
|
||||
ReadRegStr $ERLSRV HKLM "Software\${PRODUCT}" "Erlsrv"
|
||||
|
||||
nsExec::ExecToLog '"$ERLSRV" remove ejabberd'
|
||||
Pop $0
|
||||
|
||||
skipservice:
|
||||
RMDir /r "$INSTDIR\doc"
|
||||
RMDir /r "$INSTDIR\ebin"
|
||||
RMDir /r "$INSTDIR\msgs"
|
||||
RMDir /r "$INSTDIR\priv"
|
||||
RMDir /r "$INSTDIR\win32"
|
||||
;RMDir /r "$INSTDIR\src"
|
||||
RMDir /r "$INSTDIR\log"
|
||||
Delete "$INSTDIR\Uninstall.exe"
|
||||
RMDir "$INSTDIR"
|
||||
|
||||
!insertmacro MUI_STARTMENU_GETFOLDER ${PRODUCT} $MUI_TEMP
|
||||
|
||||
Delete "$SMPROGRAMS\$MUI_TEMP\Start Ejabberd.lnk"
|
||||
Delete "$SMPROGRAMS\$MUI_TEMP\Edit Config.lnk"
|
||||
Delete "$SMPROGRAMS\$MUI_TEMP\Read Docs.lnk"
|
||||
Delete "$SMPROGRAMS\$MUI_TEMP\Uninstall.lnk"
|
||||
|
||||
;Delete empty start menu parent diretories
|
||||
StrCpy $MUI_TEMP "$SMPROGRAMS\$MUI_TEMP"
|
||||
|
||||
startMenuDeleteLoop:
|
||||
RMDir $MUI_TEMP
|
||||
GetFullPathName $MUI_TEMP "$MUI_TEMP\.."
|
||||
|
||||
IfErrors startMenuDeleteLoopDone
|
||||
|
||||
StrCmp $MUI_TEMP $SMPROGRAMS startMenuDeleteLoopDone startMenuDeleteLoop
|
||||
startMenuDeleteLoopDone:
|
||||
|
||||
StrCpy $1 "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT}"
|
||||
StrCmp $ADMIN 1 admin1
|
||||
DeleteRegKey HKCU "Software\${PRODUCT}"
|
||||
DeleteRegKey HKCU $1
|
||||
Goto done
|
||||
admin1:
|
||||
DeleteRegKey HKLM "Software\${PRODUCT}"
|
||||
DeleteRegKey HKLM $1
|
||||
|
||||
done:
|
||||
|
||||
SectionEnd
|
||||
|
||||
Function .onInit
|
||||
|
||||
StrCpy $REQUIRED_ERLANG_VERSION "5.3"
|
||||
|
||||
;Default installation folder
|
||||
StrCpy $INSTDIR "$PROGRAMFILES\${PRODUCT}"
|
||||
|
||||
;Get installation folder from registry if available
|
||||
ClearErrors
|
||||
ReadRegStr $0 HKLM "SOFTWARE\${PRODUCT}" ""
|
||||
IfErrors 0 copydir
|
||||
ReadRegStr $0 HKCU "SOFTWARE\${PRODUCT}" ""
|
||||
IfErrors skipdir
|
||||
copydir:
|
||||
StrCpy $INSTDIR "$0"
|
||||
|
||||
skipdir:
|
||||
|
||||
;Extract InstallOptions INI files
|
||||
!insertmacro MUI_INSTALLOPTIONS_EXTRACT "CheckUser.ini"
|
||||
!insertmacro MUI_INSTALLOPTIONS_EXTRACT "CheckReqs.ini"
|
||||
|
||||
FunctionEnd
|
||||
|
||||
LangString TEXT_CU_TITLE ${LANG_ENGLISH} "Checking User Privileges"
|
||||
LangString TEXT_CU_SUBTITLE ${LANG_ENGLISH} "Checking user privileged required to install Ejabberd."
|
||||
|
||||
Function CheckUser
|
||||
|
||||
ClearErrors
|
||||
UserInfo::GetName
|
||||
IfErrors Abort
|
||||
Pop $0
|
||||
UserInfo::GetAccountType
|
||||
Pop $1
|
||||
StrCmp $1 "Admin" Abort User
|
||||
|
||||
Abort:
|
||||
StrCpy $ADMIN 1
|
||||
Abort
|
||||
|
||||
User:
|
||||
StrCpy $ADMIN 0
|
||||
|
||||
!insertmacro MUI_HEADER_TEXT $(TEXT_CU_TITLE) $(TEXT_CU_SUBTITLE)
|
||||
|
||||
!insertmacro MUI_INSTALLOPTIONS_INITDIALOG "CheckUser.ini"
|
||||
|
||||
!insertmacro MUI_INSTALLOPTIONS_SHOW
|
||||
|
||||
FunctionEnd
|
||||
|
||||
Function LeaveCheckUser
|
||||
|
||||
FunctionEnd
|
||||
|
||||
LangString TEXT_CR_TITLE ${LANG_ENGLISH} "Unsatisfied Requirements"
|
||||
LangString TEXT_CR_SUBTITLE ${LANG_ENGLISH} "Unsatisfied Ejabberd requirements found."
|
||||
|
||||
Function CheckReqs
|
||||
|
||||
Push "HKLM"
|
||||
Call FindErlang
|
||||
Pop $ERLANG_PATH
|
||||
Pop $ERLANG_VERSION
|
||||
StrCmp $ERLANG_PATH "" 0 abort
|
||||
Push "HKCU"
|
||||
Call FindErlang
|
||||
Pop $ERLANG_PATH
|
||||
Pop $ERLANG_VERSION
|
||||
StrCmp $ERLANG_PATH "" 0 abort
|
||||
|
||||
!insertmacro MUI_HEADER_TEXT $(TEXT_CR_TITLE) $(TEXT_CR_SUBTITLE)
|
||||
|
||||
!insertmacro MUI_INSTALLOPTIONS_INITDIALOG "CheckReqs.ini"
|
||||
GetDlgItem $R0 $HWNDPARENT 1
|
||||
EnableWindow $R0 0
|
||||
|
||||
|
||||
!insertmacro MUI_INSTALLOPTIONS_SHOW
|
||||
|
||||
abort:
|
||||
Abort
|
||||
|
||||
FunctionEnd
|
||||
|
||||
Function LeaveCheckReqs
|
||||
|
||||
Abort
|
||||
|
||||
FunctionEnd
|
||||
|
||||
Function FindErlang
|
||||
|
||||
Exch $R0
|
||||
Push $R1
|
||||
Push $R2
|
||||
Push $R3
|
||||
Push $R4
|
||||
Push $R5
|
||||
|
||||
StrCpy $R1 0
|
||||
StrCpy $R2 "SOFTWARE\Ericsson\Erlang"
|
||||
|
||||
loop:
|
||||
StrCmp $R0 HKLM h1
|
||||
EnumRegKey $R3 HKCU $R2 $R1
|
||||
Goto l1
|
||||
h1:
|
||||
EnumRegKey $R3 HKLM $R2 $R1
|
||||
l1:
|
||||
IntOp $R1 $R1 + 1
|
||||
StrCmp $R3 "" endloop
|
||||
ClearErrors
|
||||
StrCmp $R0 HKLM h2
|
||||
ReadRegStr $R4 HKCU "$R2\$R3" ""
|
||||
Goto l2
|
||||
h2:
|
||||
ReadRegStr $R4 HKLM "$R2\$R3" ""
|
||||
l2:
|
||||
IfFileExists "$R4\bin\erl.exe" 0 loop
|
||||
Push $REQUIRED_ERLANG_VERSION
|
||||
Push $R3
|
||||
Call CompareVersions
|
||||
Pop $R5
|
||||
StrCmp $R5 1 get
|
||||
Goto loop
|
||||
|
||||
endloop:
|
||||
StrCpy $R4 ""
|
||||
|
||||
get:
|
||||
StrCpy $R0 $R4
|
||||
StrCpy $R1 $R3
|
||||
|
||||
Pop $R5
|
||||
Pop $R4
|
||||
Pop $R3
|
||||
Pop $R2
|
||||
Exch $R1
|
||||
Exch
|
||||
Exch $R0
|
||||
|
||||
FunctionEnd
|
||||
|
||||
;----------------------------------------------------------------------
|
||||
; CompareVersions
|
||||
; input:
|
||||
; top of stack = existing version
|
||||
; top of stack-1 = needed version
|
||||
; output:
|
||||
; top of stack = 1 if current version => neded version, else 0
|
||||
; version is a string in format "xx.xx.xx.xx" (number of interger sections
|
||||
; can be different in needed and existing versions)
|
||||
|
||||
Function CompareVersions
|
||||
; stack: existing ver | needed ver
|
||||
Exch $R0
|
||||
Exch
|
||||
Exch $R1
|
||||
; stack: $R1|$R0
|
||||
|
||||
Push $R1
|
||||
Push $R0
|
||||
; stack: e|n|$R1|$R0
|
||||
|
||||
ClearErrors
|
||||
loop:
|
||||
IfErrors VersionNotFound
|
||||
Strcmp $R0 "" VersionTestEnd
|
||||
|
||||
Call ParseVersion
|
||||
Pop $R0
|
||||
Exch
|
||||
|
||||
Call ParseVersion
|
||||
Pop $R1
|
||||
Exch
|
||||
|
||||
IntCmp $R1 $R0 +1 VersionOk VersionNotFound
|
||||
Pop $R0
|
||||
Push $R0
|
||||
|
||||
goto loop
|
||||
|
||||
VersionTestEnd:
|
||||
Pop $R0
|
||||
Pop $R1
|
||||
Push $R1
|
||||
Push $R0
|
||||
StrCmp $R0 $R1 VersionOk VersionNotFound
|
||||
|
||||
VersionNotFound:
|
||||
StrCpy $R0 "0"
|
||||
Goto end
|
||||
|
||||
VersionOk:
|
||||
StrCpy $R0 "1"
|
||||
end:
|
||||
; stack: e|n|$R1|$R0
|
||||
Exch $R0
|
||||
Pop $R0
|
||||
Exch $R0
|
||||
; stack: res|$R1|$R0
|
||||
Exch
|
||||
; stack: $R1|res|$R0
|
||||
Pop $R1
|
||||
; stack: res|$R0
|
||||
Exch
|
||||
Pop $R0
|
||||
; stack: res
|
||||
FunctionEnd
|
||||
|
||||
;-----------------------------------------------------------------------
|
||||
; ParseVersion
|
||||
; input:
|
||||
; top of stack = version string ("xx.xx.xx.xx")
|
||||
; output:
|
||||
; top of stack = first number in version ("xx")
|
||||
; top of stack-1 = rest of the version string ("xx.xx.xx")
|
||||
Function ParseVersion
|
||||
Exch $R1 ; version
|
||||
Push $R2
|
||||
Push $R3
|
||||
|
||||
StrCpy $R2 1
|
||||
loop:
|
||||
StrCpy $R3 $R1 1 $R2
|
||||
StrCmp $R3 "." loopend
|
||||
StrLen $R3 $R1
|
||||
IntCmp $R3 $R2 loopend loopend
|
||||
IntOp $R2 $R2 + 1
|
||||
Goto loop
|
||||
loopend:
|
||||
Push $R1
|
||||
StrCpy $R1 $R1 $R2
|
||||
Exch $R1
|
||||
|
||||
StrLen $R3 $R1
|
||||
IntOp $R3 $R3 - $R2
|
||||
IntOp $R2 $R2 + 1
|
||||
StrCpy $R1 $R1 $R3 $R2
|
||||
|
||||
Push $R1
|
||||
|
||||
Exch 2
|
||||
Pop $R3
|
||||
|
||||
Exch 2
|
||||
Pop $R2
|
||||
|
||||
Exch 2
|
||||
Pop $R1
|
||||
FunctionEnd
|
||||
|
||||
Function FindFiles
|
||||
|
||||
Exch $R5 # callback function
|
||||
Exch
|
||||
Exch $R4 # file name
|
||||
Exch 2
|
||||
Exch $R0 # directory
|
||||
Push $R1
|
||||
Push $R2
|
||||
Push $R3
|
||||
Push $R6
|
||||
|
||||
Push $R0 # first dir to search
|
||||
|
||||
StrCpy $R3 1
|
||||
|
||||
nextDir:
|
||||
Pop $R0
|
||||
IntOp $R3 $R3 - 1
|
||||
ClearErrors
|
||||
FindFirst $R1 $R2 "$R0\*.*"
|
||||
nextFile:
|
||||
StrCmp $R2 "." gotoNextFile
|
||||
StrCmp $R2 ".." gotoNextFile
|
||||
|
||||
StrCmp $R2 $R4 0 isDir
|
||||
Push "$R0\$R2"
|
||||
Call $R5
|
||||
Pop $R6
|
||||
StrCmp $R6 "stop" 0 isDir
|
||||
loop:
|
||||
StrCmp $R3 0 done
|
||||
Pop $R0
|
||||
IntOp $R3 $R3 - 1
|
||||
Goto loop
|
||||
|
||||
isDir:
|
||||
IfFileExists "$R0\$R2\*.*" 0 gotoNextFile
|
||||
IntOp $R3 $R3 + 1
|
||||
Push "$R0\$R2"
|
||||
|
||||
gotoNextFile:
|
||||
FindNext $R1 $R2
|
||||
IfErrors 0 nextFile
|
||||
|
||||
done:
|
||||
FindClose $R1
|
||||
StrCmp $R3 0 0 nextDir
|
||||
|
||||
Pop $R6
|
||||
Pop $R3
|
||||
Pop $R2
|
||||
Pop $R1
|
||||
Pop $R0
|
||||
Pop $R5
|
||||
Pop $R4
|
||||
|
||||
FunctionEnd
|
||||
|
||||
Loading…
Reference in New Issue