| … | |
… | |
| 112 | } |
112 | } |
| 113 | 1; |
113 | 1; |
| 114 | }, G_PRIORITY_HIGH; |
114 | }, G_PRIORITY_HIGH; |
| 115 | |
115 | |
| 116 | # now login |
116 | # now login |
|
|
117 | $ENV{KGSUEME_CLIENTVER} = "1.4.1_01:Swing app:Sun Microsystems Inc."; # he asked for it...#d# |
| 117 | $self->{conn}->login($ENV{KGSUEME_CLIENTVER} || "kgsueme $VERSION $^O", # allow users to overwrite |
118 | $self->{conn}->login($ENV{KGSUEME_CLIENTVER} || "kgsueme $VERSION $^O", # allow users to overwrite |
| 118 | $self->{login}->get_text, |
119 | $self->{login}->get_text, |
| 119 | $self->{password}->get_text); |
120 | $self->{password}->get_text); |
| 120 | } |
121 | } |
| 121 | |
122 | |
