source: opsi/products/bacula/CLIENT_DATA/uninstall3264.ins@ 1102

Last change on this file since 1102 was 1023, checked in by joergs, on Jul 4, 2012 at 6:53:50 PM

bugfixes, uninstall, properties, bacula-fd.conf

File size: 2.1 KB
Line 
1; Copyright (c) uib gmbh (www.uib.de)
2; This sourcecode is owned by uib gmbh
3; and published under the Terms of the General Public License.
4; credits: http://www.opsi.org/en/credits/
5
6[Actions]
7requiredWinstVersion >= "4.10.8.6"
8
9DefVar $MsiId32$
10DefVar $UninstallProgram32$
11DefVar $MsiId64$
12DefVar $UninstallProgram64$
13DefVar $LogDir$
14DefVar $ExitCode$
15DefVar $ProductId$
16DefVar $InstallDir32$
17DefVar $InstallDir64$
18DefVar $LicenseRequired$
19DefVar $LicensePool$
20DefVar $INST_SystemType$
21DefVar $INST_architecture$
22
23Set $INST_SystemType$ = GetSystemType
24set $INST_architecture$ = GetProductProperty("install_architecture","system specific")
25
26
27Set $LogDir$ = "%SystemDrive%\tmp"
28
29; ----------------------------------------------------------------
30; - Please edit the following values -
31; ----------------------------------------------------------------
32Set $ProductId$ = "opsi-template"
33Set $InstallDir32$ = "%ProgramFiles32Dir%\Bacula"
34Set $InstallDir64$ = "%ProgramFiles64Dir%\Bacula"
35Set $LicenseRequired$ = "false"
36Set $LicensePool$ = "p_" + $ProductId$
37; ----------------------------------------------------------------
38
39
40comment "Show product picture"
41ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $ProductId$
42
43Message "Uninstalling " + $ProductId$ + " ..."
44
45if FileExists("%ScriptPath%\delsub3264.ins")
46 comment "Start uninstall sub section"
47 Sub "%ScriptPath%\delsub3264.ins"
48endif
49
50;if $LicenseRequired$ = "true"
51; comment "Licensing required, free license used"
52; Sub_free_license
53;endif
54
55[Sub_free_license]
56comment "License management is enabled and will be used"
57
58comment "Trying to free license used for the product"
59DefVar $result$
60Set $result$ = FreeLicense($LicensePool$)
61; If there is an assignment of a license pool to the product, it is possible to use
62; Set $result$ = FreeLicense("", $ProductId$)
63;
64; If there is an assignment of a license pool to a windows software id, it is possible to use
65; DefVar $WindowsSoftwareId$
66; $WindowsSoftwareId$ = "..."
67; set $result$ = FreeLicense("", "", $WindowsSoftwareId$)
68
69
Note: See TracBrowser for help on using the repository browser.