BOOL Dlg_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam) {
chSETDLGICONS(hwnd, IDI_VMSTAT);
// Set a timer so that the information updates periodically.
SetTimer(hwnd, IDT_UPDATE, 1 * 1000, NULL);
// Force a timer message for the initial update.
FORWARD_WM_TIMER(hwnd, IDT_UPDATE, SendMessage);
return(TRUE);
}
/*
* Function: Process WM_TIMER messages
*/
static void
kwin_timer(HWND hwnd, UINT timer_id)
{
HWND hwndfocus;
time_t t;
time_t expiration;
BOOL expired;
#ifdef KRB4
CREDENTIALS c;
int ncred;
int i;
char service[ANAME_SZ];
char instance[INST_SZ];
char realm[REALM_SZ];
#endif
#ifdef KRB5
krb5_error_code code;
krb5_cc_cursor cursor;
krb5_creds cred;
int n;
char *s;
#endif
if (timer_id != 1) {
FORWARD_WM_TIMER(hwnd, timer_id, DefDlgProc);
return;
}
expired = FALSE;
ticket_init_list(GetDlgItem(hwnd, IDD_TICKET_LIST));
if (alerted) {
if (IsIconic(hwnd))
InvalidateRect(hwnd, NULL, TRUE);
return;
}
#ifdef KRB4
ncred = krb_get_num_cred();
for (i = 1; i <= ncred; i++) {
krb_get_nth_cred(service, instance, realm, i);
if (_stricmp(service, "krbtgt") == 0) {
/* Warn if ticket will expire w/i TIME_BUFFER seconds */
krb_get_cred(service, instance, realm, &c);
expiration = c.issue_date + (long)c.lifetime * 5L * 60L;
t = TIME_BUFFER + time(NULL);
if (t >= expiration) {
expired = TRUE;
/* Don't alert because of stale tickets */
if (t >= expiration + KWIN_UPDATE_PERIOD / 1000) {
alerted = TRUE;
if (IsIconic(hwnd))
InvalidateRect(hwnd, NULL, TRUE);
return;
}
break;
}
}
}
#endif
#ifdef KRB5
code = krb5_cc_start_seq_get(k5_context, k5_ccache, &cursor);
while (code == 0) {
code = krb5_cc_next_cred(k5_context, k5_ccache, &cursor, &cred);
if (code)
break;
n = krb5_princ_component(k5_context, cred.server, 0)->length;
s = krb5_princ_component(k5_context, cred.server, 0)->data;
if (n != KRB5_TGS_NAME_SIZE)
continue;
if (memcmp(KRB5_TGS_NAME, s, KRB5_TGS_NAME_SIZE))
continue;
/* Warn if ticket will expire w/i TIME_BUFFER seconds */
expiration = cred.times.endtime;
t = TIME_BUFFER + time(NULL);
if (t >= expiration) {
expired = TRUE;
/* Don't alert because of stale tickets */
if (t >= expiration + KWIN_UPDATE_PERIOD / 1000) {
alerted = TRUE;
if (IsIconic(hwnd))
InvalidateRect(hwnd, NULL, TRUE);
return;
}
break;
}
}
if (code == 0 || code == KRB5_CC_END)
krb5_cc_end_seq_get(k5_context, k5_ccache, &cursor);
#endif
if (!expired) {
if (IsIconic(hwnd))
InvalidateRect(hwnd, NULL, TRUE);
return;
}
alerted = TRUE;
if (beep)
MessageBeep(MB_ICONEXCLAMATION);
if (alert) {
if (IsIconic(hwnd)) {
hwndfocus = GetFocus();
ShowWindow(hwnd, SW_RESTORE);
SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
SWP_NOACTIVATE | SWP_SHOWWINDOW | SWP_NOMOVE | SWP_NOSIZE);
SetFocus(hwndfocus);
}
SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
SWP_NOACTIVATE | SWP_SHOWWINDOW | SWP_NOMOVE | SWP_NOSIZE);
return;
}
if (IsIconic(hwnd))
InvalidateRect(hwnd, NULL, TRUE);
}
// HANDLE_WM_TIMER
void IRA_Dialog::OnTimer(HWND hwnd, UINT id)
{
// In derived dialogs ether call OnTimer or SendMessage with this macro
FORWARD_WM_TIMER(hwnd, id, PostMessage);
}