~bzr-pqm/bzr/bzr.dev

« back to all changes in this revision

Viewing changes to tools/win32/bzr.iss.cog

Committer: Mark Hammond
Date: 2008-07-22 10:53:02 UTC
mto: (3606.5.3 1.6)
mto: This revision was merged to the branch mainline in revision 3626.
Revision ID: mhammond@skippinet.com.au-20080722105302-027b8v2xx2ts1iai

merge inno script changes

files modified:
tools/win32/bzr.iss.cog

Show diffs side-by-side

added added

removed removed

tools/win32/bzr.iss.cog

InfoAfterFile="..\tools\win32\survey.txt"

VersionInfoCompany="Canonical Ltd."

VersionInfoCopyright="Canonical Ltd., 2005-2007"

VersionInfoDescription="Installer for stand-alone bzr.exe"

VersionInfoCopyright="Canonical Ltd., 2005-2008"

VersionInfoDescription="Windows installer for Bazaar"

; [[[cog

; import bzrlib

; version_number = []

; [[[end]]]

ChangesEnvironment=yes

PrivilegesRequired=none

; MARKH: PrivilegesRequired=none means it can't be installed by a non-admin

; user - but sadly we still need admin - eg, tortoise overlays, installing

; into "\Program Files", installing COM objects etc all must be done by an

; admin.

PrivilegesRequired=admin

[Files]

Source: "*.*"; DestDir: "{app}"; Flags: ignoreversion;

Source: "lib\*.*"; DestDir: "{app}\lib"; Flags: createallsubdirs ignoreversion recursesubdirs;

; Tortoise files - these are at the top as we use 'ExtractTemporaryFile' on

; the TortoiseOverlays MSI, and inno documents such files should be at the

; start for best performance.

; [[[cog

; if "TBZR" in os.environ: # we need a more formal way of controlling this...

; tovmsi = os.environ["TOVMSI_WIN32"] # point at TortoiseOverlays .msi

; cog.outl('Source: "%s"; Flags: dontcopy ignoreversion ; Components: tortoise' % tovmsi)

; cog.outl('Source: "tbzrcache.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: tortoise')

; cog.outl('Source: "tbzrcachew.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: tortoise')

; cog.outl('Source: "tbzrcommand.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: tortoise')

; cog.outl('Source: "tbzrcommandw.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: tortoise')

100

; cog.outl('Source: "tbzr_tracer.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: debug')

101

; # Note 'regserver' here appears to run regsvr32 without elevation, which

102

; # is no good for us - so we have a [run] entry below.

103

; cog.outl('Source: "tbzr.dll"; DestDir: "{app}"; Flags: ignoreversion regserver restartreplace; Components: tortoise')

104

; cog.outl(r'Source: "plugins\qbzr\*"; DestDir: "{app}\plugins\qbzr"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace; Components: tortoise')

105

;

106

; cog.outl('Source: "%s\\doc\\index.html"; DestDir: "{app}\\doc\\tbzr"; Flags: ignoreversion; Components: tortoise' % os.environ['TBZR'])

107

; ]]]

108

; [[[end]]]

109

110

; We can't say '*.*' due to optional components.

111

Source: "plugins\*.*"; DestDir: "{app}\\plugins"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace; Components: plugins

112

Source: "*.bat"; DestDir: "{app}"; Flags: ignoreversion;

113

Source: "*.url"; DestDir: "{app}"; Flags: ignoreversion;

114

Source: "msvc*.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace;

115

Source: "bz*.exe"; DestDir: "{app}"; Flags: ignoreversion;

116

Source: "Python*.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace;

117

Source: "lib\*.*"; DestDir: "{app}\lib"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace;

118

Source: "doc\*.*"; DestDir: "{app}\doc"; Flags: createallsubdirs ignoreversion recursesubdirs;

Source: "plugins\*.*"; DestDir: "{app}\plugins"; Components: plugins; Flags: createallsubdirs ignoreversion recursesubdirs;

119

; [[[cog

120

; try:

121

; import pycurl

105

134

; ]]]

106

135

; [[[end]]]

107

136

137

[Types]

138

Name: "typical"; Description: "A typical installation"

139

Name: "full"; Description: "Full Installation (typical installation plus test utilities)"

140

Name: "compact"; Description: "Compact installation"

141

Name: "custom"; Description: "Custom installation"; Flags: iscustom

108

142

109

143

[Components]

110

Name: "main"; Description: "Main Files"; Types: full compact custom; Flags: fixed

111

Name: "plugins"; Description: "Default plugins"; Types: full custom;

144

Name: "main"; Description: "Main Files"; Types: full typical compact custom; Flags: fixed

145

Name: "plugins"; Description: "Default plugins"; Types: full typical custom;

112

146

; [[[cog

113

147

; if ca_path:

114

148

; cog.outl('Name: "cabundle"; '

115

149

; 'Description: "CA certificates for SSL support"; '

116

; 'Types: full custom')

150

; 'Types: full typical custom')

151

; if "TBZR" in os.environ: # we need a more formal way of controlling this...

152

; cog.outl('Name: "tortoise"; Description: "Windows Shell Extensions (TortoiseBZR) - EXPERIMENTAL"; Types: full typical custom;')

153

; cog.outl('Name: "debug"; Description: "Test, diagnostic and debugging utilities"; Types: full custom;')

154

;

117

155

; ]]]

118

156

; [[[end]]]

119

157

120

121

158

[Dirs]

122

159

Name: "{userappdata}\bazaar\2.0"

123

160

Name: "{app}\plugins"; Flags: uninsalwaysuninstall

127

164

Name: "{group}\Documentation index"; Filename: "{app}\doc\index.html"; WorkingDir: "{app}\doc";

128

165

Name: "{group}\Bazaar Home Page"; Filename: "{app}\bazaar.url"; Comment: "http://www.bazaar-vcs.org";

129

166

Name: "{group}\Start Bzr in cmd shell"; Filename: "{cmd}"; Parameters: "/K start_bzr.bat"; WorkingDir: "{app}"; IconFilename: "{app}\bzr.exe"; Comment: "Open new Bzr session";

130

Name: "{group}\Uninstall Bazaar"; Filename: "{uninstallexe}"; IconFileName: "{sys}\shell32.dll"; IconIndex: 101; Comment: "Remove Bzr completely";

167

; NOTE: Intent is to change the log file location - the line below will need to change to reflect that.

168

Name: "{group}\Open Bzr log file"; Filename: "notepad.exe"; Parameters: "{userdocs}\.bzr.log"; Comment: "Launch notepad to view the bzr log file";

169

170

; [[[cog

171

; if "TBZR" in os.environ:

172

; cog.outl(r'Name: "{group}\TortoiseBZR documentation"; Filename: "{app}\doc\tbzr\index.html"; Comment: "Launch TortoiseBZR documentation";')

173

; ]]]

174

; [[[end]]]

175

; No Uninstall here - Control Panel will do

131

176

132

177

133

178

[Tasks]

134

Name: Path; Description: "Add {app} directory to PATH environment variable";

179

Name: Path; Description: "Add {app} directory to PATH environment variable"

135

180

Name: Shell; Description: "Add Bzr context menu to shell"; Flags: unchecked

181

; [[[cog

182

; if "TBZR" in os.environ:

183

; cog.outl('Name: TBZRReadme; Description: "View the TortoiseBZR Readme"; Components: tortoise')

184

; ]]]

185

; [[[end]]]

136

186

137

187

138

188

[Registry]

139

189

Root: HKLM; Subkey: "SOFTWARE\Bazaar"; Flags: noerror uninsdeletekey

140

190

Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "InstallPath"; ValueType: string; ValueData: "{app}"; Flags: noerror

141

Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "BzrlibPath"; ValueType: string; ValueData: "{app}\lib\library.zip\bzrlib"; Flags: noerror

142

Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PluginsPath"; ValueType: string; ValueData: "{app}\plugins"; Flags: noerror

143

Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PythonPath"; ValueType: string; ValueData: "{app}\lib\library.zip"; Flags: noerror

191

; Don't write stuff that can be implied

192

;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "BzrlibPath"; ValueType: string; ValueData: "{app}\lib\library.zip\bzrlib"; Flags: noerror

193

;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PluginsPath"; ValueType: string; ValueData: "{app}\plugins"; Flags: noerror

194

;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PythonPath"; ValueType: string; ValueData: "{app}\lib\library.zip"; Flags: noerror

144

195

; [[[cog cog.outl('Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "Version"; ValueType: string; ValueData: "%s"; Flags: noerror' % VERSION) ]]]

145

196

; [[[end]]]

146

197

148

199

[Run]

149

200

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--start-bzr"; Flags: skipifdoesntexist runhidden;

150

201

; [[[cog

202

; # NOTE: A patch has been submitted to Paramika that will avoid use

203

; # of the MFC DLL. See http://www.lag.net/pipermail/paramiko/2008-June/000732.html

151

204

; import os

152

205

; if os.path.isfile('win32_bzr.exe/lib/win32ui.pyd'): # pywin32 mfc wrapper

153

; cog.outl('Filename: "{app}\bzr_postinstall.exe"; '

206

; cog.outl(r'Filename: "{app}\bzr_postinstall.exe"; '

154

207

; 'Parameters: "--check-mfc71"; '

155

208

; 'Flags: skipifdoesntexist skipifsilent runhidden;')

156

209

; ]]]

157

210

; [[[end]]]

158

211

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--add-path"; Tasks: Path; Flags: skipifdoesntexist skipifsilent runhidden;

159

212

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--add-shell-menu"; Tasks: Shell; Flags: skipifdoesntexist skipifsilent runhidden;

213

; [[[cog

214

; if "TBZR" in os.environ:

215

; cog.outl('Filename: "regsvr32.exe"; Parameters: "/s tbzr.dll"; WorkingDir: "{app}"; Components: tortoise; Description: "Register TBZR"; StatusMsg: "Registering TBZR"')

216

; cog.outl(r'Filename: "{app}\doc\tbzr\index.html"; Tasks: TBZRReadme; Flags: shellexec')

217

; ]]]

218

; [[[end]]]

160

219

161

220

162

221

[UninstallRun]

163

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--delete-path --delete-shell-menu --silent"; Flags: skipifdoesntexist runhidden;

164

165

166

[UninstallDelete]

167

Type: filesandordirs; Name: "{app}\plugins\*"

222

; [[[cog

223

; if "TBZR" in os.environ:

224

; cog.outl('Filename: "regsvr32.exe"; Parameters: "/u /s tbzr.dll"; WorkingDir: "{app}"; Components: tortoise; StatusMsg: "Unregistering TBZR"; Flags: skipifdoesntexist')

225

; ]]]

226

; [[[end]]]

227

228

[Code]

229

const

230

SHCNF_IDLIST = $0000;

231

SHCNE_ASSOCCHANGED = $08000000;

232

WM_QUIT = 18;

233

234

procedure SHChangeNotify(wEventId, uFlags, dwItem1, dwItem2: Integer);

235

external 'SHChangeNotify@shell32.dll stdcall';

236

237

procedure CurStepChanged(CurStep: TSetupStep);

238

var

239

S, tovmsi, fqtovmsi, params: String;

240

ErrorCode: Integer;

241

hwnd: HWND;

242

begin

243

if CurStep=ssInstall then begin

244

// [[[cog

245

// if "TBZR" not in os.environ:

246

// cog.outl(' Exit; // No TSVN set - exit this procedure.')

247

// ]]]

248

// [[[end]]]

249

// ask the cache process to shut-down.

250

hwnd := FindWindowByClassName('TBZRCache_Taskbar');

251

if hwnd <> 0 then

252

PostMessage(hwnd, WM_QUIT, 1, 0);

253

end;

254

255

if CurStep=ssPostInstall then begin

256

// a couple of post-install tasks

257

if IsComponentSelected('tortoise') then begin

258

// Need to execute:

259

// msiexec /i TortoiseOverlays-1.X.X.XXXX-win32.msi /qn /norestart

260

// [[[cog

261

// if "TBZR" in os.environ:

262

// import os

263

// cog.outl("tovmsi := '%s';" % os.path.basename(os.environ["TOVMSI_WIN32"]))

264

// else:

265

// cog.outl("tovmsi := '';")

266

// ]]]

267

// [[[end]]]

268

ExtractTemporaryFile(tovmsi);

269

fqtovmsi := AddBackslash(ExpandConstant('{tmp}')) + tovmsi;

270

params := '/i "' + fqtovmsi + '" /qn /norestart';

271

if not ShellExec('', 'msiexec.exe', params, '', SW_HIDE,

272

ewWaitUntilTerminated, ErrorCode) then

273

MsgBox('Failed to install TortoiseOverlays: ' + SysErrorMessage(ErrorCode),

274

mbInformation, MB_OK);

275

// Ideally we could be bzr_postinstall.exe this way too, but

276

// its needed at uninstall time.

277

end;

278

// cause explorer to re-fetch handlers.

279

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);

280

end;

281

end;

282

Older »