home *** CD-ROM | disk | FTP | other *** search
- /* Copyright (c) Oracle Corporation 1996. All Rights Reserved */
- /*****************************************************************************
- NAME
- win32.shd - V3 Shutdown script for Windows 32 bit products.
-
- DESCRIPTION
- This script performs shutdown functionality. In particular, it scans
- the remind list and displays a message reminding users to perform post-
- installation actions.
-
- CREATED
- Siddhartha Agarwal, July 10, 1996
-
- MODIFIED DD-MMM-YY Reason
-
- *****************************************************************************/
-
- {
- {
- if (not(empty(remind_list)))
- {
- remind_text = implode(remind_list,"%carriage_return%%carriage_return%");
- remind_help_text = implode(remind_helps,
- "%carriage_return%%carriage_return%");
- if (empty(remind_helps))
- information_dialog(remind_text, 'NO_CANCEL);
- else
- information_dialog(remind_text,remind_content,remind_help_text,
- 'NO_CANCEL);
- }
- }
- [ 'UNBOUND_VARIABLE: continue(); ] /* 'remind' may not be bound */
-
- {
- if (problem_reboot)
- information_dialog(path_problem_prompt,
- path_problem_content,
- path_problem_help);
-
- if (autoexec_reboot)
- information_dialog(autoexec_changed_message,
- autoexec_changed_content,
- autoexec_changed_help);
-
- if (not(empty(reboot)) || not(empty(reboot_hints)))
- {
- if (member(reboot,'config) || member(reboot,'autoexec))
- reboot_text = reboot_prompt1;
- else
- reboot_text = reboot_prompt2;
-
- if (member(reboot,'config))
- reboot_text = "%reboot_text% CONFIG.SYS";
- if (member(reboot,'autoexec))
- reboot_text = "%reboot_text% AUTOEXEC.BAT";
- while (not(empty(reboot_hints)))
- {
- hint = first(reboot_hints);
- reboot_text = "%reboot_text%%carriage_return%%carriage_return%%hint%";
- reboot_hints = rest(reboot_hints);
- }
-
- reboot_help_text = "%reboot_text%%carriage_return%%carriage_return%%reboot_help%";
-
- information_dialog(reboot_text,reboot_content,reboot_help_text,
- 'NO_CANCEL);
- }
- }
- [ 'UNBOUND_VARIABLE: continue(); ] /* 'reboot' may not be bound */
- }
-
-
-