From 7fc052ce197ce5f774d27fdf50ae3ebb9e30ad97 Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Tue, 31 Dec 2013 14:24:01 +0100 Subject: [PATCH 1/2] More prerequisites to check to run makepack-dolibarr to build debian package (check on dpatch too). --- build/makepack-dolibarr.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/build/makepack-dolibarr.pl b/build/makepack-dolibarr.pl index 21785733d38..64f23316f5d 100755 --- a/build/makepack-dolibarr.pl +++ b/build/makepack-dolibarr.pl @@ -23,7 +23,7 @@ $RPMSUBVERSION="auto"; # auto use value found into BUILD "RPM_FEDORA"=>"rpmbuild", "RPM_MANDRIVA"=>"rpmbuild", "RPM_OPENSUSE"=>"rpmbuild", -"DEB"=>"dpkg", +"DEB"=>"dpkg dpatch", "APS"=>"zip", "EXEDOLIWAMP"=>"ISCC.exe" ); @@ -217,7 +217,7 @@ foreach my $target (keys %CHOOSEDTARGET) { last; } else { # Pas erreur ou erreur autre que programme absent - print " Found ".$REQUIREMENTTARGET{$target}."\n"; + print " Found ".$req."\n"; } } } From 0e54780377fe6a06b69330d167551ec267001de1 Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Tue, 31 Dec 2013 15:41:25 +0100 Subject: [PATCH 2/2] Fix: Update doc and packager for doliwamp Conflicts: build/exe/doliwamp/doliwamp.iss Conflicts: build/exe/doliwamp/doliwamp.iss Conflicts: build/exe/doliwamp/doliwamp.iss --- ChangeLog | 7 + build/README | 70 +- build/debian/changelog | 4 +- build/exe/doliwamp/doliwamp.iss | 2041 +++++++++++++++--------------- build/makepack-dolibarr.pl | 2 +- build/pad/pad_dolibarr.xml | 8 +- build/pad/pad_doliwamp.xml | 8 +- build/rpm/dolibarr_fedora.spec | 2 +- build/rpm/dolibarr_generic.spec | 2 +- build/rpm/dolibarr_mandriva.spec | 2 +- build/rpm/dolibarr_opensuse.spec | 2 +- htdocs/filefunc.inc.php | 2 +- 12 files changed, 1088 insertions(+), 1062 deletions(-) diff --git a/ChangeLog b/ChangeLog index f0b270f3b2e..654a5287bfe 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,13 @@ English Dolibarr ChangeLog -------------------------------------------------------------- +***** ChangeLog for 3.3.5 compared to 3.3.4 ***** + +- Fix: jcrop file to match debian rules +- Fix: Add missing country UK. +- Fix: Minor fix into package. +- Fix: Add missing label on project field. + ***** ChangeLog for 3.3.4 compared to 3.3.3 ***** - Fix: [ bug #1001 ] Social Contribution : State not correct diff --git a/build/README b/build/README index 954270d6ef2..897a59c4eef 100644 --- a/build/README +++ b/build/README @@ -7,10 +7,27 @@ All sub-directories of "build" directory contains files required to build automatically Dolibarr packages. There are several tools: + + - To build full Dolibarr packages, launch the script -> Edit version in makepack-dolibarr.pl file. > Launch command perl makepack-dolibarr.pl +Note: Prerequisites to build tgz, debian, rpm package +> apt-get install tar dpkg dpatch p7zip-full rpm zip + +Note: Prerequisites to build autoexe DoliWamp package: +> Install InnoSetup + For example by running isetup-5.3.9.exe (http://www.jrsoftware.org) +> Install WampServer into "C:\Program Files\Wamp" + For example by running wampserver2.2e-php5.4.3-httpd-2.4.2-mysql5.5.24-x64.exe (http://www.wampserver.com) +> Install WampServer addon to have versions: Apache2.2.11, Mysql5.0.45, Php5.3.0 + For example by running WampServer2-APACHE2211.exe (http://www.wampserver.com) + For example by running WampServer2-MYSQL5045.exe (http://www.wampserver.com) + For example by running WampServer2-PHP530.exe (http://www.wampserver.com) +> To build from Windows (running from makepack-dolibarr.pl script is however + recommanded), open file build/exe/doliwamp.iss and click on button "Compile". + The .exe file will be build into directory build. + - To build a translaction package, launch the script > perl makepack-dolibarrlang.pl @@ -20,17 +37,6 @@ There are several tools: - To build a package for a module, launch the script > perl makepack-dolibarrmodule.pl -- To build an autoexe DoliWamp package: -> Install InnoSetup (http://www.jrsoftware.org) -> Install WampServer into "C:\Program Files\Wamp" (http://www.wampserver.com) -> Install WampServer addon to have versions: - Apache2.2.6, Mysql5.0.45, Php5.2.5 -> Modify file build/exe/doliwamp.iss to change variable SourceDir - with value of Dolibarr repository. -> Modify AppVerName and OutputBaseFilename. -> Launch innosetup, open file build/exe/doliwamp.iss and click on - button "Compile". The .exe file will be build into directory build. - - To build developper documentation, launch the script > perl dolybarr-doxygen-build.pl @@ -43,24 +49,33 @@ generated packages will not contains this "build" directory. We can find in "build", following sub-directories: -* deb: +* aps: +To build APS package. + +* debian: To build Debian package. -* rpm: -To build Redhat or Mandrake package. +* dmg: +To build Mac OS package (not ready yet). -* tgz: -To build a tgz package. +* doap: +To build Doap descriptor to promote/describe Dolibarr releases. + +* doxygen: +Dir with config file to build doxygen documentation. * exe: To build exe package for Windows that distribute Dolibarr sources or to build the complete DoliWamp package. -* tgz: -To build a zip package. +* launchpad: +Doc file to explain how to use launchpad. -* doap: -To build Doap descriptor to promote/describe Dolibarr releases. +* live: +Doc file to explain how to create a demo live CD. + +* obs: +Doc file to explain how to push release onto OBS. * pad: To build a PAD file descriptor to promote/describe Dolibarr releases. @@ -68,5 +83,14 @@ To build a PAD file descriptor to promote/describe Dolibarr releases. * patch: Script file to generate a patch file to distribute a Dolibarr mod. -* dmg: -To build dmg DoliMamp package for Mac OS X +* perl: +Tool to install dolibarr when using virtualmin pro + +* rpm: +To build Redhat, Opensuse or Mandriva package. + +* tgz: +To build a tgz package. + +* zip: +To build a zip package. diff --git a/build/debian/changelog b/build/debian/changelog index 3a798d0d3cd..fe0fc6bbacb 100644 --- a/build/debian/changelog +++ b/build/debian/changelog @@ -1,6 +1,6 @@ -dolibarr (3.3.4) unstable; urgency=low +dolibarr (3.3.5) unstable; urgency=low [ Laurent Destailleur (eldy) ] * New upstream release. - -- Laurent Destailleur (eldy) Mon, 22 Apr 2013 12:00:00 +0100 + -- Laurent Destailleur (eldy) Mon, 30 Dec 2013 12:00:00 +0100 diff --git a/build/exe/doliwamp/doliwamp.iss b/build/exe/doliwamp/doliwamp.iss index 9bd1afd34e9..56db37dd05c 100644 --- a/build/exe/doliwamp/doliwamp.iss +++ b/build/exe/doliwamp/doliwamp.iss @@ -1,1023 +1,1018 @@ -; ----- DoliWamp.iss --------------------------------------------------------------------- -; Script to build an auto installer for Dolibarr. -; Works with InnoSetup 5.4.0 (a) -; Idea from WampServer 2 (http://www.wampserver.com) -;---------------------------------------------------------------------------------------- -; You must edit some path in this file to build an exe (like SourceDir). -; WARNING: Be sure that user.* files of Mysql database used to build -; package contains only one user called root with no password. -; For this, you can edit the mysql.user table of the source database to keep -; only the root user with no password, stop server and catch -; files user.MY* to put them in the Dolibarr build/exe/doliwamp/mysql directory. -; -;---------------------------------------------------------------------------------------- - - -[Setup] -; ----- Change this ----- -AppName=DoliWamp -; DoliWamp-x.x.x or DoliWamp-x.x.x-alpha or DoliWamp-x.x.x-beta or DoliWamp-x.x.x-rc or DoliWamp-x.x.x -AppVerName=DoliWamp-3.3.4 -; DoliWamp-x.x x or DoliWamp-x.x.x-alpha or DoliWamp-x.x.x-beta or DoliWamp-x.x.x-rc or DoliWamp-x.x.x -OutputBaseFilename=DoliWamp-3.3.4 -; Define full path from wich all relative path are defined -; You must modify this to put here your dolibarr root directory -;SourceDir=C:\Documents and Settings\ldestailleur\git\dolibarr_old -;SourceDir=Z:\home\ldestailleur\git\dolibarr_veryold -SourceDir=..\..\.. -; ----- End of change -;OutputManifestFile=build\doliwampbuild.log -AppId=doliwamp -AppPublisher=NLTechno -AppPublisherURL=http://www.nltechno.com -AppSupportURL=http://www.dolibarr.org -AppUpdatesURL=http://www.dolibarr.org -AppComments=DoliWamp includes Dolibarr, Apache, PHP and Mysql softwares. -AppCopyright=Copyright (C) 2008-2013 Laurent Destailleur, NLTechno -DefaultDirName=c:\dolibarr -DefaultGroupName=Dolibarr -;LicenseFile=COPYING -;Compression=none -Compression=lzma -SolidCompression=yes -WizardImageFile=build\exe\doliwamp\doliwamp.bmp -WizardSmallImageFile=build\exe\doliwamp\doliwampsmall.bmp -SetupIconFile=doc\images\dolibarr.ico -PrivilegesRequired=admin -DisableProgramGroupPage=yes -ChangesEnvironment=no -CreateUninstallRegKey=yes -;UseSetupLdr=no -;UninstallDisplayIcon={app}\bidon -OutputDir=build -ShowLanguageDialog=auto -ShowUndisplayableLanguages=no -;LanguageDetectionMethod=none -LanguageDetectionMethod=uilanguage -;SignedUninstaller=yes - -[Languages] -Name: "en"; MessagesFile: "compiler:Default.isl,build\exe\doliwamp\Languages\MyEnglish.isl" -Name: "br"; MessagesFile: "compiler:Languages\Portuguese.isl,build\exe\doliwamp\Languages\MyBrazilianPortuguese.isl" -Name: "ca"; MessagesFile: "compiler:Languages\Catalan.isl,build\exe\doliwamp\Languages\MyCatalan.isl" -Name: "da"; MessagesFile: "compiler:Languages\Danish.isl,build\exe\doliwamp\Languages\MyDanish.isl" -Name: "es"; MessagesFile: "compiler:Languages\Spanish.isl,build\exe\doliwamp\Languages\MySpanish.isl" -Name: "nl"; MessagesFile: "compiler:Languages\Dutch.isl,build\exe\doliwamp\Languages\MyDutch.isl" -Name: "fi"; MessagesFile: "compiler:Languages\Finnish.isl,build\exe\doliwamp\Languages\MyFinnish.isl" -Name: "fr"; MessagesFile: "compiler:Languages\French.isl,build\exe\doliwamp\Languages\MyFrench.isl" -Name: "ge"; MessagesFile: "compiler:Languages\German.isl,build\exe\doliwamp\Languages\MyGerman.isl" -Name: "it"; MessagesFile: "compiler:Languages\Italian.isl,build\exe\doliwamp\Languages\MyItalian.isl" -Name: "nb"; MessagesFile: "compiler:Languages\Norwegian.isl,build\exe\doliwamp\Languages\MyNorwegian.isl" -Name: "po"; MessagesFile: "compiler:Languages\Polish.isl,build\exe\doliwamp\Languages\MyPolish.isl" -Name: "pt"; MessagesFile: "compiler:Languages\Portuguese.isl,build\exe\doliwamp\Languages\MyPortuguese.isl" -Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl,build\exe\doliwamp\Languages\MyRussian.isl" -Name: "sv"; MessagesFile: "compiler:Languages\Slovenian.isl,build\exe\doliwamp\Languages\MySlovenian.isl" - -[Tasks] -;Name: "autostart"; Description: "Automatically launch DoliWamp server on startup. If you check this option, Services will be installed as automatic. Otherwise, services will be installed as manual and will start and stop with the service manager."; GroupDescription: "Auto Start:" ;Flags: unchecked; -Name: "quicklaunchicon"; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked -Name: "desktopicon"; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked - -[Dirs] -Name: "{app}\logs" -Name: "{app}\tmp" -Name: "{app}\dolibarr_documents" -Name: "{app}\bin\apache\apache2.2.11\logs" - -[Files] -; Stop/start -Source: "build\exe\doliwamp\stopdoliwamp.bat"; DestDir: "{app}\"; Flags: ignoreversion; AfterInstall: close() -Source: "build\exe\doliwamp\startdoliwamp.bat"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\removefiles.bat"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\rundoliwamp.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\rundolihelp.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\rundoliadmin.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\install_services.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\uninstall_services.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\mysqlinitpassword.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\mysqltestinstall.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\startdoliwamp_manual_donotuse.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\builddemosslfiles.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; -Source: "build\exe\doliwamp\UsedPort.exe"; DestDir: "{app}\"; Flags: ignoreversion; -; PhpMyAdmin, Apache, Php, Mysql -; Put here path of Wampserver applications -; Value OK: apache 2.2.6, php 5.2.5 (5.2.11, 5.3.0 and 5.3.1 fails if php_exif, php_pgsql, php_zip is on), mysql 5.0.45 or 5.1.36 -; Value OK: apache 2.2.11, php 5.3.0 (if no php_exif, php_pgsql, php_zip), mysql 5.0.45 or 5.1.36 -Source: "C:\Program Files\Wamp\apps\phpmyadmin3.2.0.1\*.*"; DestDir: "{app}\apps\phpmyadmin3.2.0.1"; Flags: ignoreversion recursesubdirs; Excludes: "config.inc.php,wampserver.conf,*.log,*_log,darkblue_orange" -Source: "C:\Program Files\Wamp\bin\apache\apache2.2.11\*.*"; DestDir: "{app}\bin\apache\apache2.2.11"; Flags: ignoreversion recursesubdirs; Excludes: "php.ini,httpd.conf,wampserver.conf,*.log,*_log" -Source: "C:\Program Files\Wamp\bin\php\php5.3.0\*.*"; DestDir: "{app}\bin\php\php5.3.0"; Flags: ignoreversion recursesubdirs; Excludes: "php.ini,phpForApache.ini,wampserver.conf,*.log,*_log" -Source: "C:\Program Files\Wamp\bin\mysql\mysql5.0.45\*.*"; DestDir: "{app}\bin\mysql\mysql5.0.45"; Flags: ignoreversion recursesubdirs; Excludes: "my.ini,data\*,wampserver.conf,*.log,*_log,MySQLInstanceConfig.exe" -; Mysql data files (does not overwrite if exists) -Source: "build\exe\doliwamp\mysql\*.*"; DestDir: "{app}\bin\mysql\data\mysql"; Flags: onlyifdoesntexist ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db" -; Dolibarr -Source: "htdocs\*.*"; DestDir: "{app}\www\dolibarr\htdocs"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,custom\*,custom2\*,documents\*,includes\ckeditor\_source\*,includes\savant\*,includes\phpmailer\*,jquery\plugins\template\*,PHPExcel\Shared\PDF\*,PHPExcel\Shared\PCLZip\*,tcpdf\fonts\dejavu-fonts-ttf-2.33\*,tcpdf\fonts\freefont-20100919\*,tcpdf\fonts\utils\*,*\conf.php,*\conf.php.mysql,*\conf.php.old,*\conf.php.postgres,*\conf.php.sav,*\install.forced.php" -Source: "dev\*.*"; DestDir: "{app}\www\dolibarr\dev"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,dbmodel\*,fpdf\*,initdata\*,iso-normes\*,licence\*,phpcheckstyle\*,phpunit\*,samples\*,test\*,uml\*,xdebug\*" -Source: "doc\*.*"; DestDir: "{app}\www\dolibarr\doc"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,wiki\*,plaquette\*,dev\*,images\dolibarr_screenshot2.png,images\dolibarr_screenshot3.png,images\dolibarr_screenshot4.png,images\dolibarr_screenshot5.png,images\dolibarr_screenshot6.png,images\dolibarr_screenshot7.png,images\dolibarr_screenshot8.png,images\dolibarr_screenshot9.png,images\dolibarr_screenshot10.png,images\dolibarr_screenshot11.png,images\dolibarr_screenshot12.png" -Source: "scripts\*.*"; DestDir: "{app}\www\dolibarr\scripts"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,product\materiel.net.php,product\import-product.php" -Source: "*.*"; DestDir: "{app}\www\dolibarr"; Flags: ignoreversion; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,default.properties,install.lock" -; Config files -Source: "build\exe\doliwamp\phpmyadmin.conf.install"; DestDir: "{app}\alias"; Flags: ignoreversion; -Source: "build\exe\doliwamp\dolibarr.conf.install"; DestDir: "{app}\alias"; Flags: ignoreversion; -Source: "build\exe\doliwamp\config.inc.php.install"; DestDir: "{app}\apps\phpmyadmin3.2.0.1"; Flags: ignoreversion; -Source: "build\exe\doliwamp\httpd.conf.install"; DestDir: "{app}\bin\apache\apache2.2.11\conf"; Flags: ignoreversion; -Source: "build\exe\doliwamp\my.ini.install"; DestDir: "{app}\bin\mysql\mysql5.0.45"; Flags: ignoreversion; -Source: "build\exe\doliwamp\php.ini.install"; DestDir: "{app}\bin\php\php5.3.0"; Flags: ignoreversion; -Source: "build\exe\doliwamp\index.php.install"; DestDir: "{app}\www"; Flags: ignoreversion; -Source: "build\exe\doliwamp\install.forced.php.install"; DestDir: "{app}\www\dolibarr\htdocs\install"; Flags: ignoreversion; -Source: "build\exe\doliwamp\openssl.conf"; DestDir: "{app}"; Flags: ignoreversion; -Source: "build\exe\doliwamp\ca_demo_dolibarr.crt"; DestDir: "{app}"; Flags: ignoreversion; -Source: "build\exe\doliwamp\ca_demo_dolibarr.key"; DestDir: "{app}"; Flags: ignoreversion; -; Licence -Source: "COPYRIGHT"; DestDir: "{app}"; Flags: ignoreversion; - - - -[Icons] -Name: "{group}\Dolibarr ERP-CRM"; Filename: "{app}\rundoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico -Name: "{group}\Tools\Help center"; Filename: "{app}\rundolihelp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\dolihelp.ico -Name: "{group}\Tools\Start DoliWamp server"; Filename: "{app}\startdoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliwampon.ico -Name: "{group}\Tools\Stop DoliWamp server"; Filename: "{app}\stopdoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliwampoff.ico -Name: "{group}\Tools\Admin DoliWamp server"; Filename: "{app}\rundoliadmin.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliadmin.ico -Name: "{group}\Tools\Uninstall DoliWamp"; Filename: "{app}\unins000.exe"; WorkingDir: "{app}"; IconFilename: {app}\uninstall_services.bat -Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Dolibarr"; WorkingDir: "{app}"; Filename: "{app}\rundoliwamp.bat"; Tasks: quicklaunchicon; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico -Name: "{userdesktop}\Dolibarr ERP-CRM"; Filename: "{app}\rundoliwamp.bat"; WorkingDir: "{app}"; Tasks: desktopicon; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico -Name: "{userdesktop}\Dolibarr Help center"; Filename: "{app}\rundolihelp.bat"; WorkingDir: "{app}"; Tasks: desktopicon; IconFilename: {app}\www\dolibarr\doc\images\dolihelp.ico -;Start of servers fromstartup menu disabled as services are auto -;Name: "{userstartup}\DoliWamp server"; Filename: "{app}\startdoliwamp.bat"; WorkingDir: "{app}"; Flags: runminimized; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico - - -[Code] - -//variables globales -var phpVersion: String; -var apacheVersion: String; -var path: String; -var pfPath: String; -var winPath: String; -var pathWithSlashes: String; -var Page: TInputQueryWizardPage; - -var smtpServer: String; -var apachePort: String; -var mysqlPort: String; -var newPassword: String; - -var lockFile: String; -var srcFile: String; -var destFile: String; -var srcFileH: String; -var destFileH: String; -var srcFileA: String; -var destFileA: String; -var srcContents: String; -var browser: String; -var mysqlVersion: String; -var phpmyadminVersion: String; -var phpDllCopy: String; -var batFile: String; - -var mysmtp: String; -var myporta: String; -var myportas: String; -var myport: String; -var mypass: String; - -var firstinstall: Boolean; -var value: String; - - -//----------------------------------------------- -//procedures lancees au debut de l'installation -function InitializeSetup(): Boolean; -begin - Result := MsgBox(CustomMessage('YouWillInstallDoliWamp')+#13#13+CustomMessage('ThisAssistantInstallOrUpgrade')+#13#13+CustomMessage('IfYouHaveTechnicalKnowledge')+#13#13+CustomMessage('ButIfYouLook')+#13#13+CustomMessage('DoYouWantToStart'), mbConfirmation, MB_YESNO) = IDYES; -end; - -procedure InitializeWizard(); -begin - //version des applis, a modifier pour chaque version de WampServer 2 - apacheVersion := '2.2.11'; - phpVersion := '5.3.0' ; - mysqlVersion := '5.0.45'; - phpmyadminVersion := '3.2.0.1'; - - smtpServer := 'localhost'; - apachePort := '80'; - mysqlPort := '3306'; - newPassword := 'changeme'; - - firstinstall := true; - - - //LoadStringFromFile (srcFile, srcContents); - //posvalue=Pos('$dolibarr_main_db_port=', srcFile); - - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer', value) then - begin - if value <> '' then smtpServer:=value; - end - else - begin - if RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Account Manager\Accounts\00000001','SMTP Server', value) then - begin - if value <> '' then smtpServer:=value; - end - else - begin - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'PMail\ServiceInfo\Mail_Account_1','SvcSMTPHost', value) then - begin - if value <> '' then smtpServer:=value; - end - else - begin - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\MSCRM','SMTPServer', value) then - begin - if value <> '' then smtpServer:=value; - end - end - end - end; - - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort', value) then - begin - if value <> '' then apachePort:=value; - end; - - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','mysqlPort', value) then - begin - if value <> '' then mysqlPort:=value; - end; - - if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','newPassword', value) then - begin - if value <> '' then newPassword:=value; - end; - - - // Prepare an object calle "Page" of type wpInstalling. - // Object will be show later in NextButtonClick function. - Page := CreateInputQueryPage(wpInstalling, - CustomMessage('TechnicalParameters'), '', - CustomMessage('IfFirstInstall')); - - // TODO Add control differently if first install or update - if firstinstall - then - begin - Page.Add(CustomMessage('SMTPServer'), False); - Page.Add(CustomMessage('ApachePort'), False); - Page.Add(CustomMessage('MySqlPort'), False); - Page.Add(CustomMessage('MySqlPassword'), False); - end - else - begin - Page.Add(CustomMessage('SMTPServer'), False); - Page.Add(CustomMessage('ApachePort'), False); - Page.Add(CustomMessage('MySqlPort'), False); - Page.Add(CustomMessage('MySqlPassword'), False); - end; - - // Default values - Page.Values[0] := smtpServer; - Page.Values[1] := apachePort; - Page.Values[2] := mysqlPort; - Page.Values[3] := newPassword; - -end; - - -//----------------------------------------------- -// Stop all services (if exist) -procedure close(); -var myResult: Integer; -begin -path := ExpandConstant('{app}'); -pfPath := ExpandConstant('{pf}'); -winPath := ExpandConstant('{win}'); -pathWithSlashes := path; -StringChange (pathWithSlashes, '\','/'); - -batFile := path+'\stopdoliwamp.bat'; -Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); -end; - - - - -//----------------------------------------------------------- -// Install pages -function NextButtonClick(CurPageID: Integer): Boolean; -var myResult: Integer; -var res: Boolean; -var paramok: Boolean; -var datadirold: String; -var datadirnew: String; -var exedirold: String; -var exedirnew: String; -var themessage: String; -begin - - res := True; - - //MsgBox(''+CurPageID,mbConfirmation,MB_YESNO); - - if CurPageID = Page.ID then - begin - - // This must be in if curpage.id = page.id, otherwise it is executed after each Next button - - path := ExpandConstant('{app}'); - winPath := ExpandConstant('{win}'); - pathWithSlashes := path; - StringChange (pathWithSlashes, '\','/'); - datadirold := pathWithSlashes+'/bin/mysql/mysql5.0.45/data'; - datadirnew := pathWithSlashes+'/bin/mysql/data'; - exedirold := pathWithSlashes+'/bin/mysql/mysql5.0.45'; - exedirnew := pathWithSlashes+'/bin/mysql/mysql5.0.45'; - - // If we have a new database version, we should only copy old my.ini file into new directory - // and change only all basedir= strings to use new version. Like this, data dir is still correct. - // Install of service and stop/start scripts are already rebuild by installer. -// FileCopy(exedirold+'/my.ini',exedirnew+'/my.ini', true); - -// We should not need this, also databases may not be called dolibarr -// res := RenameFile(ibdata1dirold+'/dolibarr',ibdata1dirnew+'/dolibarr'); -// if res then -// begin -// themessage := CustomMessage('OldVersionFoundAndMoveInNew'); -// MsgBox(themessage,mbInformation,MB_OK); -// TODO Replace also mysql.ini and resintall service -// end -// else -// begin -// themessage := CustomMessage('OldVersionFoundButFailedToMoveInNew'); -// MsgBox(themessage,mbInformation,MB_OK); -// end; - - - //---------------------------------------------- - // Copie des dll de php vers apache - //---------------------------------------------- - // TODO Update this list when changing PHP/Apache versions - - phpDllCopy := 'fdftk.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'fribidi.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'gds32.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libeay32.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libmhash.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libmysql.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libpq.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'msql.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libmcrypt.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'libmysqli.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'ntwdblib.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - - phpDllCopy := 'php5activescript.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'php5nsapi.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'php5ts.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - - phpDllCopy := 'ssleay32.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - phpDllCopy := 'yaz.dll'; - filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); - - - // Remove lock file - lockfile := pathWithSlashes+'/dolibarr_documents/install.lock'; - if FileExists (lockfile) and not DeleteFile(lockfile) then - begin - themessage := FmtMessage(CustomMessage('FailedToDeleteLock'),[pathWithSlashes]); - MsgBox(themessage,mbInformation,MB_OK); - end - - - // Check if parameters already defined in conf.php file - srcFile := pathWithSlashes+'/www/dolibarr/htdocs/conf/conf.php'; - if not FileExists (srcFile) then - begin - firstinstall := true; - - // Values from wizard - mysmtp := Page.Values[0]; - myporta := Page.Values[1]; - myportas:= '443'; - myport := Page.Values[2]; - mypass := Page.Values[3]; - end - else - begin - firstinstall := false; - - // Values from registry - mysmtp := smtpServer; - myporta := apachePort; - myportas:= '443'; - myport := mysqlPort; - mypass := newPassword; - end; - - paramok := True; - // TODO Test if choice of param is ok if firstinstall - - if (firstinstall) then - begin - - // Test serveur SMTP -// if paramok then -// begin -// batFile := pathWithSlashes+'/UsedPort.exe'; -// MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) -// Exec(batFile, '-s '+smtpServer+' -p 25', path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - //themessage := 'Le serveur '+smtpServer+' semble ne pas etre joignable pour l envoi de mail SMTP (port 25). Si vous avez un firewall, verifiez sa configuration. Sinon, revenez en arriere pour choisir une autre valeur pour le serveur SMTP sortant d envoi de mail (Cette information est doit etre fournie par votre fournisseur d acces Internet).'; -// themessage := 'The server '+smtpServer+' seems to be unreachable to send outgoing SMTP emails (port 25). If you have a firewall, check its setup. Otherwise, go back to choose another value for the SMTP server (This information shoud be given by your Internet Service Provider) or click "No" to ignore error. Cancel choice to choose another value ?'; -// if ((IntToStr(myResult) <> '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then -// begin -// paramok := False; -// end; -// end; - - if paramok then - begin - // Test port Apache - batFile := pathWithSlashes+'/UsedPort.exe'; - //MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) - Exec(batFile, '-s localhost -p '+myporta, path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - //themessage := 'Le port '+myporta+' semble deja pris. Revenez en arriere pour choisir une autre valeur pour le port Apache.'; - themessage := FmtMessage(CustomMessage('PortAlreadyInUse'),[myporta,'Apache']); - if ((IntToStr(myResult) = '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then - begin - paramok := False; - end; - end; - - if paramok then - begin - // Test port Mysql - batFile := pathWithSlashes+'/UsedPort.exe'; - //MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) - Exec(batFile, '-s localhost -p '+myport, path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - //themessage := 'Le port '+myport+' semble deja pris. Revenez en arriere pour choisir une autre valeur pour le port MySQL.'; - themessage := FmtMessage(CustomMessage('PortAlreadyInUse'),[myport,'MySql']); - if ((IntToStr(myResult) = '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then - begin - paramok := False; - end; - end; - - end; - - if paramok - then - begin - - //---------------------------------------------- - // Rename file c:/windows/php.ini (we don't want it) - //---------------------------------------------- - - if FileExists ('c:/windows/php.ini') then - begin - if MsgBox('A previous c:/windows/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then - begin - RenameFile('c:/windows/php.ini','c:/windows/php_old.ini'); - end; - end; - if FileExists ('c:/winnt/php.ini') then - begin - if MsgBox('A previous c:/winnt/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then - begin - RenameFile('c:/winnt/php.ini','c:/winnt/php_old.ini'); - end; - end; - - - - //---------------------------------------------- - // Create rundoliwamp.bat, rundolihelp.bat and rundoliadmin.bat (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/rundoliwamp.bat'; - srcFile := pathWithSlashes+'/rundoliwamp.bat.install'; - - destFileH := pathWithSlashes+'/rundolihelp.bat'; - srcFileH := pathWithSlashes+'/rundolihelp.bat.install'; - - destFileA := pathWithSlashes+'/rundoliadmin.bat'; - srcFileA := pathWithSlashes+'/rundoliadmin.bat.install'; - - if (not FileExists (destFile) or not FileExists (destFileH) or not FileExists (destFileA)) - and (FileExists(srcFile) and FileExists(srcFileH) and FileExists(srcFileA)) then - begin - //navigateur - browser := 'iexplore.exe'; - if FileExists (pfPath+'/Mozilla Firefox/firefox.exe') then - begin - if MsgBox(CustomMessage('FirefoxDetected'),mbConfirmation,MB_YESNO) = IDYES then - begin - browser := pfPath+'/Mozilla Firefox/firefox.exe'; - end; - end; - if browser = 'iexplore.exe' then - begin - if FileExists (pfPath+'/Internet Explorer/iexplore.exe') then - begin - GetOpenFileName(CustomMessage('ChooseDefaultBrowser'), browser, pfPath+'/Internet Explorer','exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe'); - end - else - begin - GetOpenFileName(CustomMessage('ChooseDefaultBrowser'), browser, winPath,'exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe'); - end; - end; - - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - SaveStringToFile(destFile,srcContents, False); - - LoadStringFromFile (srcFileH, srcContents); - StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - SaveStringToFile(destFileH,srcContents, False); - - LoadStringFromFile (srcFileA, srcContents); - StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - SaveStringToFile(destFileA,srcContents, False); - end - - - if MsgBox(CustomMessage('DoliWampWillStartApacheMysql'),mbConfirmation,MB_YESNO) = IDYES then - begin - - - //---------------------------------------------- - // Create file alias phpmyadmin (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/alias/phpmyadmin.conf'; - srcFile := pathWithSlashes+'/alias/phpmyadmin.conf.install'; - - if FileExists(srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //installDir et version de phpmyadmin - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPPHPMYADMINVERSION', phpmyadminVersion, True); - - SaveStringToFile(destFile,srcContents, False); - end - DeleteFile(srcFile); - - - - //---------------------------------------------- - // Create file alias dolibarr (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/alias/dolibarr.conf'; - srcFile := pathWithSlashes+'/alias/dolibarr.conf.install'; - - if not FileExists (destFile) and FileExists(srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); - - SaveStringToFile(destFile, srcContents, False); - end - DeleteFile(srcFile); - - - - - //---------------------------------------------- - // Create file configuration for phpmyadmin (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php'; - srcFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php.install'; - - if not FileExists (destFile) and FileExists (srcFile) then - begin - // sinon on prends le fichier par defaut - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - SaveStringToFile(destFile,srcContents, False); - end - - - - //---------------------------------------------- - // Create file httpd.conf (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf'; - srcFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf.install'; - - if not FileExists (destFile) and FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //installDir et version de php - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - - //---------------------------------------------- - // Create file my.ini (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini'; - srcFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini.install'; - - if not FileExists (destFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //installDir et version de php - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - - //---------------------------------------------- - // Create file index.php (always but archive if exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/www/index.php'; - srcFile := pathWithSlashes+'/www/index.php.install'; - - if not FileExists (destFile) then - begin - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - SaveStringToFile(destFile, srcContents, False); - end - else - begin - RenameFile(destFile, destFile+'.old'); - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); - StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); - SaveStringToFile(destFile, srcContents, False); - end - - - - - - //---------------------------------------------- - // Create file dolibarr parametres predefinis install web (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php'; - srcFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php.install'; - - if not FileExists (destFile) and FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - //---------------------------------------------- - // Create file install_services.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/install_services.bat'; - srcFile := pathWithSlashes+'/install_services.bat.install'; - - if FileExists(srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - //---------------------------------------------- - // Create file install_services_auto.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/install_services_auto.bat'; - srcFile := pathWithSlashes+'/install_services_auto.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - - //---------------------------------------------- - // Create file uninstall_services.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/uninstall_services.bat'; - srcFile := pathWithSlashes+'/uninstall_services.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - - //---------------------------------------------- - // Create file mysqlinitpassword.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/mysqlinitpassword.bat'; - srcFile := pathWithSlashes+'/mysqlinitpassword.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - //---------------------------------------------- - // Create file mysqltestinstall.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/mysqltestinstall.bat'; - srcFile := pathWithSlashes+'/mysqltestinstall.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - //---------------------------------------------- - // Create file startdoliwamp_manual_donotuse.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/startdoliwamp_manual_donotuse.bat'; - srcFile := pathWithSlashes+'/startdoliwamp_manual_donotuse.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); - StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - //---------------------------------------------- - // Create file builddemosslfiles.bat (always) - //---------------------------------------------- - - destFile := pathWithSlashes+'/builddemosslfiles.bat'; - srcFile := pathWithSlashes+'/builddemosslfiles.bat.install'; - - if FileExists (srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - - //version de apache et mysql - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); - - SaveStringToFile(destFile,srcContents, False); - end - - - //---------------------------------------------- - // Create file php.ini in php (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini'; - srcFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini.install'; - - if not FileExists (destFile) and FileExists(srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPSMTP', mysmtp, True); - StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); - SaveStringToFile(destFile,srcContents, False); - end - - //---------------------------------------------- - // Create file php.ini in apache (if not exists) - //---------------------------------------------- - - destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/php.ini'; - srcFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini.install'; - - if not FileExists (destFile) and FileExists(srcFile) then - begin - LoadStringFromFile (srcFile, srcContents); - StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); - StringChangeEx (srcContents, 'WAMPSMTP', mysmtp, True); - StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); - SaveStringToFile(destFile,srcContents, False); - end - - - - // Uninstall and Install services - batFile := path+'\uninstall_services.bat'; - Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - batFile := path+'\install_services.bat'; - Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - - // Start services - batFile := path+'\startdoliwamp.bat'; - Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - //MsgBox(myResult,mbInformation,MB_OK); - - // Change mysql password (works only if not yet defined) - batFile := path+'\mysqlinitpassword.bat'; - Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - - // Remove dangerous files - batFile := path+'\removefiles.bat'; - Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); - - - // Save parameters to registry - RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'smtpServer', mysmtp); - RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'apachePort', myporta); - RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'apachePSSL', myportas); - RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'mysqlPort', myport); - RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'newPassword', mypass); - - - res := True; - - end - else - begin - -// MsgBox('Apache and Mysql installation has been canceled. Please select parameters to start their installation.',mbInformation,MB_OK) - - res := False; - - end - - end - else - begin - - //MsgBox('Selected values seems to be already used. Please choose other values.',mbInformation,MB_OK); - - res := False; - - end - - end - - - Result := res; -end; - - - - - -//----------------------------------------------- -//procedure launched by the end of the installation, it deletes the installation files -procedure DeinitializeSetup(); -begin -// DeleteFile(path+'\install_services.bat'); -// DeleteFile(path+'\install_services_auto.bat'); -end; - - -//----------------------------------------------- -//procedure launched at beginning of the uninstallation -function InitializeUninstall(): Boolean; -begin - Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer'); - Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort'); - Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','mysqlPort'); - Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','newPassword'); - Result := RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp'); - - Result := True; -end; - -//----------------------------------------------- -//procedure launched by the end of the uninstallation -procedure DeinitializeUninstall(); -begin - path := ExpandConstant('{app}'); - winPath := ExpandConstant('{win}'); - pathWithSlashes := path; - StringChange (pathWithSlashes, '\','/'); - - MsgBox(FmtMessage(CustomMessage('ProgramHasBeenRemoved'),[path]),mbInformation,MB_OK); -end; - - -[Run] -; Launch Dolibarr in browser. This is run after Wizard because of postinstall flag -Filename: "{app}\rundoliwamp.bat"; Description: {cm:LaunchNow}; Flags: shellexec postinstall skipifsilent runhidden - - -[UninstallDelete] -Type: files; Name: "{app}\*.*" -Type: files; Name: "{app}\bin\mysql\mysql5.0.45\*.*" -Type: filesandordirs; Name: "{app}\alias" -Type: filesandordirs; Name: "{app}\apps" -Type: filesandordirs; Name: "{app}\bin\apache" -Type: filesandordirs; Name: "{app}\bin\php" -Type: filesandordirs; Name: "{app}\help" -Type: filesandordirs; Name: "{app}\lang" -Type: filesandordirs; Name: "{app}\logs" -Type: filesandordirs; Name: "{app}\scripts" -Type: filesandordirs; Name: "{app}\tmp" -Type: filesandordirs; Name: "{app}\www\dolibarr" - - -[UninstallRun] -Filename: "{app}\uninstall_services.bat"; Flags: runhidden - - - +; ----- DoliWamp.iss --------------------------------------------------------------------- +; Script to build an auto installer for Dolibarr. +; Works with InnoSetup 5.4.0 (a) +; Idea from WampServer 2 (http://www.wampserver.com) +;---------------------------------------------------------------------------------------- +; You must edit some path in this file to build an exe (like SourceDir). +; WARNING: Be sure that user.* files of Mysql database used to build +; package contains only one user called root with no password. +; For this, you can edit the mysql.user table of the source database to keep +; only the root user with no password, stop server and catch +; files user.MY* to put them in the Dolibarr build/exe/doliwamp/mysql directory. +; +;---------------------------------------------------------------------------------------- + + +[Setup] +; ----- Change this ----- +AppName=DoliWamp +; DoliWamp-x.x.x or DoliWamp-x.x.x-alpha or DoliWamp-x.x.x-beta or DoliWamp-x.x.x-rc or DoliWamp-x.x.x +AppVerName=DoliWamp-3.3.5 +; DoliWamp-x.x x or DoliWamp-x.x.x-alpha or DoliWamp-x.x.x-beta or DoliWamp-x.x.x-rc or DoliWamp-x.x.x +OutputBaseFilename=DoliWamp-3.3.5 +; ----- End of change +;OutputManifestFile=build\doliwampbuild.log +; Define full path from which all relative path are defined +; You must modify this to put here your dolibarr root directory +;SourceDir=Z:\home\ldestailleur\git\dolibarrxxx +SourceDir=..\..\.. +AppId=doliwamp +AppPublisher=NLTechno +AppPublisherURL=http://www.nltechno.com +AppSupportURL=http://www.dolibarr.org +AppUpdatesURL=http://www.dolibarr.org +AppComments=DoliWamp includes Dolibarr, Apache, PHP and Mysql softwares. +AppCopyright=Copyright (C) 2008-2013 Laurent Destailleur, NLTechno +DefaultDirName=c:\dolibarr +DefaultGroupName=Dolibarr +;LicenseFile=COPYING +;Compression=none +Compression=lzma +SolidCompression=yes +WizardImageFile=build\exe\doliwamp\doliwamp.bmp +WizardSmallImageFile=build\exe\doliwamp\doliwampsmall.bmp +SetupIconFile=doc\images\dolibarr.ico +PrivilegesRequired=admin +DisableProgramGroupPage=yes +ChangesEnvironment=no +CreateUninstallRegKey=yes +;UseSetupLdr=no +;UninstallDisplayIcon={app}\bidon +OutputDir=build +ShowLanguageDialog=auto +ShowUndisplayableLanguages=no +LanguageDetectionMethod=uilanguage +;SignedUninstaller=yes + +[Languages] +Name: "en"; MessagesFile: "compiler:Default.isl,build\exe\doliwamp\Languages\MyEnglish.isl" +Name: "br"; MessagesFile: "compiler:Languages\Portuguese.isl,build\exe\doliwamp\Languages\MyBrazilianPortuguese.isl" +Name: "ca"; MessagesFile: "compiler:Languages\Catalan.isl,build\exe\doliwamp\Languages\MyCatalan.isl" +Name: "da"; MessagesFile: "compiler:Languages\Danish.isl,build\exe\doliwamp\Languages\MyDanish.isl" +Name: "es"; MessagesFile: "compiler:Languages\Spanish.isl,build\exe\doliwamp\Languages\MySpanish.isl" +Name: "nl"; MessagesFile: "compiler:Languages\Dutch.isl,build\exe\doliwamp\Languages\MyDutch.isl" +Name: "fi"; MessagesFile: "compiler:Languages\Finnish.isl,build\exe\doliwamp\Languages\MyFinnish.isl" +Name: "fr"; MessagesFile: "compiler:Languages\French.isl,build\exe\doliwamp\Languages\MyFrench.isl" +Name: "ge"; MessagesFile: "compiler:Languages\German.isl,build\exe\doliwamp\Languages\MyGerman.isl" +Name: "it"; MessagesFile: "compiler:Languages\Italian.isl,build\exe\doliwamp\Languages\MyItalian.isl" +Name: "nb"; MessagesFile: "compiler:Languages\Norwegian.isl,build\exe\doliwamp\Languages\MyNorwegian.isl" +Name: "po"; MessagesFile: "compiler:Languages\Polish.isl,build\exe\doliwamp\Languages\MyPolish.isl" +Name: "pt"; MessagesFile: "compiler:Languages\Portuguese.isl,build\exe\doliwamp\Languages\MyPortuguese.isl" +Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl,build\exe\doliwamp\Languages\MyRussian.isl" +Name: "sv"; MessagesFile: "compiler:Languages\Slovenian.isl,build\exe\doliwamp\Languages\MySlovenian.isl" + +[Tasks] +;Name: "autostart"; Description: "Automatically launch DoliWamp server on startup. If you check this option, Services will be installed as automatic. Otherwise, services will be installed as manual and will start and stop with the service manager."; GroupDescription: "Auto Start:" ;Flags: unchecked; +Name: "quicklaunchicon"; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked +Name: "desktopicon"; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked + +[Dirs] +Name: "{app}\logs" +Name: "{app}\tmp" +Name: "{app}\dolibarr_documents" +Name: "{app}\bin\apache\apache2.2.11\logs" + +[Files] +; Stop/start +Source: "build\exe\doliwamp\stopdoliwamp.bat"; DestDir: "{app}\"; Flags: ignoreversion; AfterInstall: close() +Source: "build\exe\doliwamp\startdoliwamp.bat"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\removefiles.bat"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\rundoliwamp.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\rundolihelp.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\rundoliadmin.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\install_services.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\uninstall_services.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\mysqlinitpassword.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\mysqltestinstall.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\startdoliwamp_manual_donotuse.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\builddemosslfiles.bat.install"; DestDir: "{app}\"; Flags: ignoreversion; +Source: "build\exe\doliwamp\UsedPort.exe"; DestDir: "{app}\"; Flags: ignoreversion; +; PhpMyAdmin, Apache, Php, Mysql +; Put here path of Wampserver applications +; Value OK: apache 2.2.6, php 5.2.5 (5.2.11, 5.3.0 and 5.3.1 fails if php_exif, php_pgsql, php_zip is on), mysql 5.0.45 or 5.1.36 +; Value OK: apache 2.2.11, php 5.3.0 (if no php_exif, php_pgsql, php_zip), mysql 5.0.45 or 5.1.36 +Source: "C:\Program Files\Wamp\apps\phpmyadmin3.2.0.1\*.*"; DestDir: "{app}\apps\phpmyadmin3.2.0.1"; Flags: ignoreversion recursesubdirs; Excludes: "config.inc.php,wampserver.conf,*.log,*_log,darkblue_orange" +Source: "C:\Program Files\Wamp\bin\apache\apache2.2.11\*.*"; DestDir: "{app}\bin\apache\apache2.2.11"; Flags: ignoreversion recursesubdirs; Excludes: "php.ini,httpd.conf,wampserver.conf,*.log,*_log" +Source: "C:\Program Files\Wamp\bin\php\php5.3.0\*.*"; DestDir: "{app}\bin\php\php5.3.0"; Flags: ignoreversion recursesubdirs; Excludes: "php.ini,phpForApache.ini,wampserver.conf,*.log,*_log" +Source: "C:\Program Files\Wamp\bin\mysql\mysql5.0.45\*.*"; DestDir: "{app}\bin\mysql\mysql5.0.45"; Flags: ignoreversion recursesubdirs; Excludes: "my.ini,data\*,wampserver.conf,*.log,*_log,MySQLInstanceConfig.exe" +; Mysql data files (does not overwrite if exists) +Source: "build\exe\doliwamp\mysql\*.*"; DestDir: "{app}\bin\mysql\data\mysql"; Flags: onlyifdoesntexist ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db" +; Dolibarr +Source: "htdocs\*.*"; DestDir: "{app}\www\dolibarr\htdocs"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,custom\*,custom2\*,documents\*,includes\ckeditor\_source\*,includes\savant\*,includes\phpmailer\*,jquery\plugins\template\*,nltechno*,PHPExcel\Shared\PDF\*,PHPExcel\Shared\PCLZip\*,tcpdf\fonts\dejavu-fonts-ttf-2.33\*,tcpdf\fonts\freefont-20100919\*,tcpdf\fonts\utils\*,*\conf.php,*\conf.php.mysql,*\conf.php.old,*\conf.php.postgres,*\conf.php.sav,*\install.forced.php" +Source: "dev\*.*"; DestDir: "{app}\www\dolibarr\dev"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,dbmodel\*,fpdf\*,initdata\*,iso-normes\*,licence\*,phpcheckstyle\*,phpunit\*,samples\*,test\*,uml\*,xdebug\*" +Source: "doc\*.*"; DestDir: "{app}\www\dolibarr\doc"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,wiki\*,plaquette\*,dev\*,images\dolibarr_screenshot2.png,images\dolibarr_screenshot3.png,images\dolibarr_screenshot4.png,images\dolibarr_screenshot5.png,images\dolibarr_screenshot6.png,images\dolibarr_screenshot7.png,images\dolibarr_screenshot8.png,images\dolibarr_screenshot9.png,images\dolibarr_screenshot10.png,images\dolibarr_screenshot11.png,images\dolibarr_screenshot12.png" +Source: "scripts\*.*"; DestDir: "{app}\www\dolibarr\scripts"; Flags: ignoreversion recursesubdirs; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,product\materiel.net.php,product\import-product.php" +Source: "*.*"; DestDir: "{app}\www\dolibarr"; Flags: ignoreversion; Excludes: ".gitignore,.project,CVS\*,Thumbs.db,default.properties,install.lock" +; Config files +Source: "build\exe\doliwamp\phpmyadmin.conf.install"; DestDir: "{app}\alias"; Flags: ignoreversion; +Source: "build\exe\doliwamp\dolibarr.conf.install"; DestDir: "{app}\alias"; Flags: ignoreversion; +Source: "build\exe\doliwamp\config.inc.php.install"; DestDir: "{app}\apps\phpmyadmin3.2.0.1"; Flags: ignoreversion; +Source: "build\exe\doliwamp\httpd.conf.install"; DestDir: "{app}\bin\apache\apache2.2.11\conf"; Flags: ignoreversion; +Source: "build\exe\doliwamp\my.ini.install"; DestDir: "{app}\bin\mysql\mysql5.0.45"; Flags: ignoreversion; +Source: "build\exe\doliwamp\php.ini.install"; DestDir: "{app}\bin\php\php5.3.0"; Flags: ignoreversion; +Source: "build\exe\doliwamp\index.php.install"; DestDir: "{app}\www"; Flags: ignoreversion; +Source: "build\exe\doliwamp\install.forced.php.install"; DestDir: "{app}\www\dolibarr\htdocs\install"; Flags: ignoreversion; +Source: "build\exe\doliwamp\openssl.conf"; DestDir: "{app}"; Flags: ignoreversion; +Source: "build\exe\doliwamp\ca_demo_dolibarr.crt"; DestDir: "{app}"; Flags: ignoreversion; +Source: "build\exe\doliwamp\ca_demo_dolibarr.key"; DestDir: "{app}"; Flags: ignoreversion; +; Licence +Source: "COPYRIGHT"; DestDir: "{app}"; Flags: ignoreversion; + + + +[Icons] +Name: "{group}\Dolibarr ERP-CRM"; Filename: "{app}\rundoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico +Name: "{group}\Tools\Help center"; Filename: "{app}\rundolihelp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\dolihelp.ico +Name: "{group}\Tools\Start DoliWamp server"; Filename: "{app}\startdoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliwampon.ico +Name: "{group}\Tools\Stop DoliWamp server"; Filename: "{app}\stopdoliwamp.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliwampoff.ico +Name: "{group}\Tools\Admin DoliWamp server"; Filename: "{app}\rundoliadmin.bat"; WorkingDir: "{app}"; IconFilename: {app}\www\dolibarr\doc\images\doliadmin.ico +Name: "{group}\Tools\Uninstall DoliWamp"; Filename: "{app}\unins000.exe"; WorkingDir: "{app}"; IconFilename: {app}\uninstall_services.bat +Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Dolibarr"; WorkingDir: "{app}"; Filename: "{app}\rundoliwamp.bat"; Tasks: quicklaunchicon; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico +Name: "{userdesktop}\Dolibarr ERP-CRM"; Filename: "{app}\rundoliwamp.bat"; WorkingDir: "{app}"; Tasks: desktopicon; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico +Name: "{userdesktop}\Dolibarr Help center"; Filename: "{app}\rundolihelp.bat"; WorkingDir: "{app}"; Tasks: desktopicon; IconFilename: {app}\www\dolibarr\doc\images\dolihelp.ico +;Start of servers fromstartup menu disabled as services are auto +;Name: "{userstartup}\DoliWamp server"; Filename: "{app}\startdoliwamp.bat"; WorkingDir: "{app}"; Flags: runminimized; IconFilename: {app}\www\dolibarr\doc\images\dolibarr.ico + + +[Code] + +//variables globales +var phpVersion: String; +var apacheVersion: String; +var path: String; +var pfPath: String; +var winPath: String; +var pathWithSlashes: String; +var Page: TInputQueryWizardPage; + +var smtpServer: String; +var apachePort: String; +var mysqlPort: String; +var newPassword: String; + +var lockFile: String; +var srcFile: String; +var destFile: String; +var srcFileH: String; +var destFileH: String; +var srcFileA: String; +var destFileA: String; +var srcContents: String; +var browser: String; +var mysqlVersion: String; +var phpmyadminVersion: String; +var phpDllCopy: String; +var batFile: String; + +var mysmtp: String; +var myporta: String; +var myportas: String; +var myport: String; +var mypass: String; + +var firstinstall: Boolean; +var value: String; + + +//----------------------------------------------- +//procedures lancees au debut de l'installation +function InitializeSetup(): Boolean; +begin + Result := MsgBox(CustomMessage('YouWillInstallDoliWamp')+#13#13+CustomMessage('ThisAssistantInstallOrUpgrade')+#13#13+CustomMessage('IfYouHaveTechnicalKnowledge')+#13#13+CustomMessage('ButIfYouLook')+#13#13+CustomMessage('DoYouWantToStart'), mbConfirmation, MB_YESNO) = IDYES; +end; + +procedure InitializeWizard(); +begin + //version des applis, a modifier pour chaque version de WampServer 2 + apacheVersion := '2.2.11'; + phpVersion := '5.3.0' ; + mysqlVersion := '5.0.45'; + phpmyadminVersion := '3.2.0.1'; + + smtpServer := 'localhost'; + apachePort := '80'; + mysqlPort := '3306'; + newPassword := 'changeme'; + + firstinstall := true; + + + //LoadStringFromFile (srcFile, srcContents); + //posvalue=Pos('$dolibarr_main_db_port=', srcFile); + + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer', value) then + begin + if value <> '' then smtpServer:=value; + end + else + begin + if RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Account Manager\Accounts\00000001','SMTP Server', value) then + begin + if value <> '' then smtpServer:=value; + end + else + begin + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'PMail\ServiceInfo\Mail_Account_1','SvcSMTPHost', value) then + begin + if value <> '' then smtpServer:=value; + end + else + begin + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\MSCRM','SMTPServer', value) then + begin + if value <> '' then smtpServer:=value; + end + end + end + end; + + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort', value) then + begin + if value <> '' then apachePort:=value; + end; + + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','mysqlPort', value) then + begin + if value <> '' then mysqlPort:=value; + end; + + if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','newPassword', value) then + begin + if value <> '' then newPassword:=value; + end; + + + // Prepare an object calle "Page" of type wpInstalling. + // Object will be show later in NextButtonClick function. + Page := CreateInputQueryPage(wpInstalling, + CustomMessage('TechnicalParameters'), '', + CustomMessage('IfFirstInstall')); + + // TODO Add control differently if first install or update + if firstinstall + then + begin + Page.Add(CustomMessage('SMTPServer'), False); + Page.Add(CustomMessage('ApachePort'), False); + Page.Add(CustomMessage('MySqlPort'), False); + Page.Add(CustomMessage('MySqlPassword'), False); + end + else + begin + Page.Add(CustomMessage('SMTPServer'), False); + Page.Add(CustomMessage('ApachePort'), False); + Page.Add(CustomMessage('MySqlPort'), False); + Page.Add(CustomMessage('MySqlPassword'), False); + end; + + // Default values + Page.Values[0] := smtpServer; + Page.Values[1] := apachePort; + Page.Values[2] := mysqlPort; + Page.Values[3] := newPassword; + +end; + + +//----------------------------------------------- +// Stop all services (if exist) +procedure close(); +var myResult: Integer; +begin +path := ExpandConstant('{app}'); +pfPath := ExpandConstant('{pf}'); +winPath := ExpandConstant('{win}'); +pathWithSlashes := path; +StringChange (pathWithSlashes, '\','/'); + +batFile := path+'\stopdoliwamp.bat'; +Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); +end; + + + + +//----------------------------------------------------------- +// Install pages +function NextButtonClick(CurPageID: Integer): Boolean; +var myResult: Integer; +var res: Boolean; +var paramok: Boolean; +var datadirold: String; +var datadirnew: String; +var exedirold: String; +var exedirnew: String; +var themessage: String; +begin + + res := True; + + //MsgBox(''+CurPageID,mbConfirmation,MB_YESNO); + + if CurPageID = Page.ID then + begin + + // This must be in if curpage.id = page.id, otherwise it is executed after each Next button + + path := ExpandConstant('{app}'); + winPath := ExpandConstant('{win}'); + pathWithSlashes := path; + StringChange (pathWithSlashes, '\','/'); + datadirold := pathWithSlashes+'/bin/mysql/mysql5.0.45/data'; + datadirnew := pathWithSlashes+'/bin/mysql/data'; + exedirold := pathWithSlashes+'/bin/mysql/mysql5.0.45'; + exedirnew := pathWithSlashes+'/bin/mysql/mysql5.0.45'; + + // If we have a new database version, we should only copy old my.ini file into new directory + // and change only all basedir= strings to use new version. Like this, data dir is still correct. + // Install of service and stop/start scripts are already rebuild by installer. +// FileCopy(exedirold+'/my.ini',exedirnew+'/my.ini', true); + +// We should not need this, also databases may not be called dolibarr +// res := RenameFile(ibdata1dirold+'/dolibarr',ibdata1dirnew+'/dolibarr'); +// if res then +// begin +// themessage := CustomMessage('OldVersionFoundAndMoveInNew'); +// MsgBox(themessage,mbInformation,MB_OK); +// TODO Replace also mysql.ini and resintall service +// end +// else +// begin +// themessage := CustomMessage('OldVersionFoundButFailedToMoveInNew'); +// MsgBox(themessage,mbInformation,MB_OK); +// end; + + + //---------------------------------------------- + // Copie des dll de php vers apache + //---------------------------------------------- + // TODO Update this list when changing PHP/Apache versions + + phpDllCopy := 'fdftk.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'fribidi.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'gds32.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libeay32.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libmhash.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libmysql.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libpq.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'msql.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libmcrypt.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'libmysqli.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'ntwdblib.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + + phpDllCopy := 'php5activescript.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'php5nsapi.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'php5ts.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + + phpDllCopy := 'ssleay32.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + phpDllCopy := 'yaz.dll'; + filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False); + + + // Remove lock file + lockfile := pathWithSlashes+'/dolibarr_documents/install.lock'; + if FileExists (lockfile) and not DeleteFile(lockfile) then + begin + themessage := FmtMessage(CustomMessage('FailedToDeleteLock'),[pathWithSlashes]); + MsgBox(themessage,mbInformation,MB_OK); + end + + + // Check if parameters already defined in conf.php file + srcFile := pathWithSlashes+'/www/dolibarr/htdocs/conf/conf.php'; + if not FileExists (srcFile) then + begin + firstinstall := true; + + // Values from wizard + mysmtp := Page.Values[0]; + myporta := Page.Values[1]; + myportas:= '443'; + myport := Page.Values[2]; + mypass := Page.Values[3]; + end + else + begin + firstinstall := false; + + // Values from registry + mysmtp := smtpServer; + myporta := apachePort; + myportas:= '443'; + myport := mysqlPort; + mypass := newPassword; + end; + + paramok := True; + // TODO Test if choice of param is ok if firstinstall + + if (firstinstall) then + begin + + // Test serveur SMTP +// if paramok then +// begin +// batFile := pathWithSlashes+'/UsedPort.exe'; +// MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) +// Exec(batFile, '-s '+smtpServer+' -p 25', path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + //themessage := 'Le serveur '+smtpServer+' semble ne pas etre joignable pour l envoi de mail SMTP (port 25). Si vous avez un firewall, verifiez sa configuration. Sinon, revenez en arriere pour choisir une autre valeur pour le serveur SMTP sortant d envoi de mail (Cette information est doit etre fournie par votre fournisseur d acces Internet).'; +// themessage := 'The server '+smtpServer+' seems to be unreachable to send outgoing SMTP emails (port 25). If you have a firewall, check its setup. Otherwise, go back to choose another value for the SMTP server (This information shoud be given by your Internet Service Provider) or click "No" to ignore error. Cancel choice to choose another value ?'; +// if ((IntToStr(myResult) <> '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then +// begin +// paramok := False; +// end; +// end; + + if paramok then + begin + // Test port Apache + batFile := pathWithSlashes+'/UsedPort.exe'; + //MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) + Exec(batFile, '-s localhost -p '+myporta, path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + //themessage := 'Le port '+myporta+' semble deja pris. Revenez en arriere pour choisir une autre valeur pour le port Apache.'; + themessage := FmtMessage(CustomMessage('PortAlreadyInUse'),[myporta,'Apache']); + if ((IntToStr(myResult) = '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then + begin + paramok := False; + end; + end; + + if paramok then + begin + // Test port Mysql + batFile := pathWithSlashes+'/UsedPort.exe'; + //MsgBox('batFile = '+batFile,mbConfirmation,MB_YESNO) + Exec(batFile, '-s localhost -p '+myport, path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + //themessage := 'Le port '+myport+' semble deja pris. Revenez en arriere pour choisir une autre valeur pour le port MySQL.'; + themessage := FmtMessage(CustomMessage('PortAlreadyInUse'),[myport,'MySql']); + if ((IntToStr(myResult) = '0') and (MsgBox(themessage,mbConfirmation,MB_YESNO) = IDYES)) then + begin + paramok := False; + end; + end; + + end; + + if paramok + then + begin + + //---------------------------------------------- + // Rename file c:/windows/php.ini (we don't want it) + //---------------------------------------------- + + if FileExists ('c:/windows/php.ini') then + begin + if MsgBox('A previous c:/windows/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then + begin + RenameFile('c:/windows/php.ini','c:/windows/php_old.ini'); + end; + end; + if FileExists ('c:/winnt/php.ini') then + begin + if MsgBox('A previous c:/winnt/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then + begin + RenameFile('c:/winnt/php.ini','c:/winnt/php_old.ini'); + end; + end; + + + + //---------------------------------------------- + // Create rundoliwamp.bat, rundolihelp.bat and rundoliadmin.bat (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/rundoliwamp.bat'; + srcFile := pathWithSlashes+'/rundoliwamp.bat.install'; + + destFileH := pathWithSlashes+'/rundolihelp.bat'; + srcFileH := pathWithSlashes+'/rundolihelp.bat.install'; + + destFileA := pathWithSlashes+'/rundoliadmin.bat'; + srcFileA := pathWithSlashes+'/rundoliadmin.bat.install'; + + if (not FileExists (destFile) or not FileExists (destFileH) or not FileExists (destFileA)) + and (FileExists(srcFile) and FileExists(srcFileH) and FileExists(srcFileA)) then + begin + //navigateur + browser := 'iexplore.exe'; + if FileExists (pfPath+'/Mozilla Firefox/firefox.exe') then + begin + if MsgBox(CustomMessage('FirefoxDetected'),mbConfirmation,MB_YESNO) = IDYES then + begin + browser := pfPath+'/Mozilla Firefox/firefox.exe'; + end; + end; + if browser = 'iexplore.exe' then + begin + if FileExists (pfPath+'/Internet Explorer/iexplore.exe') then + begin + GetOpenFileName(CustomMessage('ChooseDefaultBrowser'), browser, pfPath+'/Internet Explorer','exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe'); + end + else + begin + GetOpenFileName(CustomMessage('ChooseDefaultBrowser'), browser, winPath,'exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe'); + end; + end; + + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + SaveStringToFile(destFile,srcContents, False); + + LoadStringFromFile (srcFileH, srcContents); + StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + SaveStringToFile(destFileH,srcContents, False); + + LoadStringFromFile (srcFileA, srcContents); + StringChangeEx (srcContents, 'WAMPBROWSER', browser, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + SaveStringToFile(destFileA,srcContents, False); + end + + + if MsgBox(CustomMessage('DoliWampWillStartApacheMysql'),mbConfirmation,MB_YESNO) = IDYES then + begin + + + //---------------------------------------------- + // Create file alias phpmyadmin (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/alias/phpmyadmin.conf'; + srcFile := pathWithSlashes+'/alias/phpmyadmin.conf.install'; + + if FileExists(srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //installDir et version de phpmyadmin + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPPHPMYADMINVERSION', phpmyadminVersion, True); + + SaveStringToFile(destFile,srcContents, False); + end + DeleteFile(srcFile); + + + + //---------------------------------------------- + // Create file alias dolibarr (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/alias/dolibarr.conf'; + srcFile := pathWithSlashes+'/alias/dolibarr.conf.install'; + + if not FileExists (destFile) and FileExists(srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); + + SaveStringToFile(destFile, srcContents, False); + end + DeleteFile(srcFile); + + + + + //---------------------------------------------- + // Create file configuration for phpmyadmin (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php'; + srcFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php.install'; + + if not FileExists (destFile) and FileExists (srcFile) then + begin + // sinon on prends le fichier par defaut + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + SaveStringToFile(destFile,srcContents, False); + end + + + + //---------------------------------------------- + // Create file httpd.conf (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf'; + srcFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf.install'; + + if not FileExists (destFile) and FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //installDir et version de php + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + + //---------------------------------------------- + // Create file my.ini (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini'; + srcFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini.install'; + + if not FileExists (destFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //installDir et version de php + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + + //---------------------------------------------- + // Create file index.php (always but archive if exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/www/index.php'; + srcFile := pathWithSlashes+'/www/index.php.install'; + + if not FileExists (destFile) then + begin + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + SaveStringToFile(destFile, srcContents, False); + end + else + begin + RenameFile(destFile, destFile+'.old'); + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEPORT', myporta, True); + StringChangeEx (srcContents, 'WAMPAPACHEPSSL', myportas, True); + SaveStringToFile(destFile, srcContents, False); + end + + + + + + //---------------------------------------------- + // Create file dolibarr parametres predefinis install web (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php'; + srcFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php.install'; + + if not FileExists (destFile) and FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + //---------------------------------------------- + // Create file install_services.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/install_services.bat'; + srcFile := pathWithSlashes+'/install_services.bat.install'; + + if FileExists(srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + //---------------------------------------------- + // Create file install_services_auto.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/install_services_auto.bat'; + srcFile := pathWithSlashes+'/install_services_auto.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + + //---------------------------------------------- + // Create file uninstall_services.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/uninstall_services.bat'; + srcFile := pathWithSlashes+'/uninstall_services.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + + //---------------------------------------------- + // Create file mysqlinitpassword.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/mysqlinitpassword.bat'; + srcFile := pathWithSlashes+'/mysqlinitpassword.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + StringChangeEx (srcContents, 'WAMPMYSQLNEWPASSWORD', mypass, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + //---------------------------------------------- + // Create file mysqltestinstall.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/mysqltestinstall.bat'; + srcFile := pathWithSlashes+'/mysqltestinstall.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + //---------------------------------------------- + // Create file startdoliwamp_manual_donotuse.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/startdoliwamp_manual_donotuse.bat'; + srcFile := pathWithSlashes+'/startdoliwamp_manual_donotuse.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLVERSION', mysqlVersion, True); + StringChangeEx (srcContents, 'WAMPMYSQLPORT', myport, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + //---------------------------------------------- + // Create file builddemosslfiles.bat (always) + //---------------------------------------------- + + destFile := pathWithSlashes+'/builddemosslfiles.bat'; + srcFile := pathWithSlashes+'/builddemosslfiles.bat.install'; + + if FileExists (srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + + //version de apache et mysql + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPAPACHEVERSION', apacheVersion, True); + + SaveStringToFile(destFile,srcContents, False); + end + + + //---------------------------------------------- + // Create file php.ini in php (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini'; + srcFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini.install'; + + if not FileExists (destFile) and FileExists(srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPSMTP', mysmtp, True); + StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); + SaveStringToFile(destFile,srcContents, False); + end + + //---------------------------------------------- + // Create file php.ini in apache (if not exists) + //---------------------------------------------- + + destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/php.ini'; + srcFile := pathWithSlashes+'/bin/php/php'+phpVersion+'/php.ini.install'; + + if not FileExists (destFile) and FileExists(srcFile) then + begin + LoadStringFromFile (srcFile, srcContents); + StringChangeEx (srcContents, 'WAMPROOT', pathWithSlashes, True); + StringChangeEx (srcContents, 'WAMPSMTP', mysmtp, True); + StringChangeEx (srcContents, 'WAMPPHPVERSION', phpVersion, True); + SaveStringToFile(destFile,srcContents, False); + end + + + + // Uninstall and Install services + batFile := path+'\uninstall_services.bat'; + Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + batFile := path+'\install_services.bat'; + Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + + // Start services + batFile := path+'\startdoliwamp.bat'; + Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + //MsgBox(myResult,mbInformation,MB_OK); + + // Change mysql password (works only if not yet defined) + batFile := path+'\mysqlinitpassword.bat'; + Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + + // Remove dangerous files + batFile := path+'\removefiles.bat'; + Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult); + + + // Save parameters to registry + RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'smtpServer', mysmtp); + RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'apachePort', myporta); + RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'apachePSSL', myportas); + RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'mysqlPort', myport); + RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp', 'newPassword', mypass); + + + res := True; + + end + else + begin + +// MsgBox('Apache and Mysql installation has been canceled. Please select parameters to start their installation.',mbInformation,MB_OK) + + res := False; + + end + + end + else + begin + + //MsgBox('Selected values seems to be already used. Please choose other values.',mbInformation,MB_OK); + + res := False; + + end + + end + + + Result := res; +end; + + + + + +//----------------------------------------------- +//procedure launched by the end of the installation, it deletes the installation files +procedure DeinitializeSetup(); +begin +// DeleteFile(path+'\install_services.bat'); +// DeleteFile(path+'\install_services_auto.bat'); +end; + + +//----------------------------------------------- +//procedure launched at beginning of the uninstallation +function InitializeUninstall(): Boolean; +begin + Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer'); + Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort'); + Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','mysqlPort'); + Result := RegDeleteValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','newPassword'); + Result := RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp'); + + Result := True; +end; + +//----------------------------------------------- +//procedure launched by the end of the uninstallation +procedure DeinitializeUninstall(); +begin + path := ExpandConstant('{app}'); + winPath := ExpandConstant('{win}'); + pathWithSlashes := path; + StringChange (pathWithSlashes, '\','/'); + + MsgBox(FmtMessage(CustomMessage('ProgramHasBeenRemoved'),[path]),mbInformation,MB_OK); +end; + + +[Run] +; Launch Dolibarr in browser. This is run after Wizard because of postinstall flag +Filename: "{app}\rundoliwamp.bat"; Description: {cm:LaunchNow}; Flags: shellexec postinstall skipifsilent runhidden + + +[UninstallDelete] +Type: files; Name: "{app}\*.*" +Type: files; Name: "{app}\bin\mysql\mysql5.0.45\*.*" +Type: filesandordirs; Name: "{app}\alias" +Type: filesandordirs; Name: "{app}\apps" +Type: filesandordirs; Name: "{app}\bin\apache" +Type: filesandordirs; Name: "{app}\bin\php" +Type: filesandordirs; Name: "{app}\help" +Type: filesandordirs; Name: "{app}\lang" +Type: filesandordirs; Name: "{app}\logs" +Type: filesandordirs; Name: "{app}\scripts" +Type: filesandordirs; Name: "{app}\tmp" +Type: filesandordirs; Name: "{app}\www\dolibarr" + + +[UninstallRun] +Filename: "{app}\uninstall_services.bat"; Flags: runhidden diff --git a/build/makepack-dolibarr.pl b/build/makepack-dolibarr.pl index 64f23316f5d..c66a3b0254d 100755 --- a/build/makepack-dolibarr.pl +++ b/build/makepack-dolibarr.pl @@ -10,7 +10,7 @@ use Cwd; $PROJECT="dolibarr"; $MAJOR="3"; $MINOR="3"; -$BUILD="4"; # Mettre x pour release, x-dev pour dev, x-beta pour beta, x-rc pour release candidate +$BUILD="5"; # Mettre x pour release, x-dev pour dev, x-beta pour beta, x-rc pour release candidate $RPMSUBVERSION="auto"; # auto use value found into BUILD @LISTETARGET=("TGZ","ZIP","RPM_GENERIC","RPM_FEDORA","RPM_MANDRIVA","RPM_OPENSUSE","DEB","APS","EXEDOLIWAMP","SNAPSHOT"); # Possible packages diff --git a/build/pad/pad_dolibarr.xml b/build/pad/pad_dolibarr.xml index 4b09346a4db..8018e972c79 100644 --- a/build/pad/pad_dolibarr.xml +++ b/build/pad/pad_dolibarr.xml @@ -34,10 +34,10 @@ Dolibarr - 3.3.2 - 05 - 17 - 2013 + 3.3.5 + 01 + 01 + 2014 diff --git a/build/pad/pad_doliwamp.xml b/build/pad/pad_doliwamp.xml index 2602b3e877f..d4e497957db 100644 --- a/build/pad/pad_doliwamp.xml +++ b/build/pad/pad_doliwamp.xml @@ -34,10 +34,10 @@ DoliWamp - 3.3.2 - 05 - 17 - 2013 + 3.3.5 + 01 + 01 + 2014 diff --git a/build/rpm/dolibarr_fedora.spec b/build/rpm/dolibarr_fedora.spec index 16f72b5784d..4e1f9b15284 100755 --- a/build/rpm/dolibarr_fedora.spec +++ b/build/rpm/dolibarr_fedora.spec @@ -335,5 +335,5 @@ fi %changelog -* Mon Apr 22 2013 Laurent Destailleur 3.3.4-0.3 +* Mon Apr 22 2013 Laurent Destailleur 3.3.5-0.3 - Initial version (#723326) diff --git a/build/rpm/dolibarr_generic.spec b/build/rpm/dolibarr_generic.spec index 8cabd545db5..e9a25fc774c 100755 --- a/build/rpm/dolibarr_generic.spec +++ b/build/rpm/dolibarr_generic.spec @@ -548,5 +548,5 @@ fi %changelog -* Mon Apr 22 2013 Laurent Destailleur 3.3.4-0.3 +* Mon Apr 22 2013 Laurent Destailleur 3.3.5-0.3 - Initial version (#723326) diff --git a/build/rpm/dolibarr_mandriva.spec b/build/rpm/dolibarr_mandriva.spec index 518723e35a2..3bb9609a31c 100755 --- a/build/rpm/dolibarr_mandriva.spec +++ b/build/rpm/dolibarr_mandriva.spec @@ -333,5 +333,5 @@ fi %changelog -* Mon Apr 22 2013 Laurent Destailleur 3.3.4-0.3 +* Mon Apr 22 2013 Laurent Destailleur 3.3.5-0.3 - Initial version (#723326) diff --git a/build/rpm/dolibarr_opensuse.spec b/build/rpm/dolibarr_opensuse.spec index c36652973f7..725d0eed80a 100755 --- a/build/rpm/dolibarr_opensuse.spec +++ b/build/rpm/dolibarr_opensuse.spec @@ -342,5 +342,5 @@ fi %changelog -* Mon Apr 22 2013 Laurent Destailleur 3.3.4-0.3 +* Mon Apr 22 2013 Laurent Destailleur 3.3.5-0.3 - Initial version (#723326) diff --git a/htdocs/filefunc.inc.php b/htdocs/filefunc.inc.php index f27b144fe17..d87ecbde202 100755 --- a/htdocs/filefunc.inc.php +++ b/htdocs/filefunc.inc.php @@ -29,7 +29,7 @@ * \brief File that include conf.php file and commons lib like functions.lib.php */ -if (! defined('DOL_VERSION')) define('DOL_VERSION','3.3.4'); +if (! defined('DOL_VERSION')) define('DOL_VERSION','3.3.5'); if (! defined('EURO')) define('EURO',chr(128)); // Define syslog constants