home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 February
/
PCWK0296.iso
/
po7_win
/
install
/
windows.shd
< prev
next >
Wrap
Text File
|
1995-01-11
|
3KB
|
87 lines
/* Copyright (c) Oracle Corporation 1993. All Rights Reserved */
/*****************************************************************************
NAME
windows.shd - V3 Shutdown script for Windows products.
DESCRIPTION
This script performs shutdown functionality. In particular, it scans
the reboot list and displays a message telling users to reboot their
machines and displaying the files that were modified in the process.
OWNER
Irene Chen
MODIFIED DD-MMM-YY Reason
zzerhoun 11-JAN-95 Point to release note instead of displaying it
zzerhoun 04-JAN-95 Display release note, if any
zzerhoun 28-DEC-94 Added remind_list and remind_helps
IChen 14-Jul-94 Created.
*****************************************************************************/
{
{bundle_name = bundle_name;}
['UNBOUND_VARIABLE: bundle_name = "";]
{
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 */
{
user_release_note = "%oracle_home%\release.wri";
if (exists(user_release_note))
information_dialog(user_release_exists_info,'NO_CANCEL);
else if (member(list(P_O7,P_O7_E,W_O7_W_NT,W_O7_NW,E_O7_W_NT,E_O7_NW),bundle_name))
information_dialog(user_release_not_exists_info,'NO_CANCEL);
}[ 'default: continue(); ] /* 'user_release_*' may not be bound */
}