You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
511 B
30 lines
511 B
package TkLogon; |
|
|
|
use Milkbone::Logon; |
|
use Milkbone; |
|
|
|
use strict; |
|
use warnings; |
|
|
|
my $mw = hook("tk_getmain"); |
|
my $logged = 0; |
|
|
|
register_hook("create_logon_prompt", sub { |
|
my $log = $mw->MBLogon; |
|
$log->init($mw); |
|
|
|
register_hook("signed_in", sub { |
|
Milkbone::Logon::on_signed_in($ARGS{-self}); |
|
$logged = 1; |
|
} , {-self => $log}); |
|
|
|
register_hook("protocol_signoff", sub { |
|
return unless $ARGS{-fatal}; |
|
my ($self) = $ARGS{-self}; |
|
return if $logged; |
|
|
|
$self->on_cancel; |
|
}, {-self => $log}); |
|
}); |
|
|
|
1;
|
|
|