… | |
… | |
16 | while (my ($filename, $zip) = each %PAR::LibCache) { |
16 | while (my ($filename, $zip) = each %PAR::LibCache) { |
17 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
17 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
18 | } |
18 | } |
19 | |
19 | |
20 | require Win32::GUI::SplashScreen; |
20 | require Win32::GUI::SplashScreen; |
|
|
21 | |
|
|
22 | # initialise the resolver now, as vista forces us back to the desktop |
|
|
23 | # when doing this. |
|
|
24 | use AnyEvent::DNS (); |
|
|
25 | AnyEvent::DNS::resolver; |
21 | |
26 | |
22 | Win32::GUI::SplashScreen::Show ( |
27 | Win32::GUI::SplashScreen::Show ( |
23 | -file => "$ENV{PAR_TEMP}/SPLASH.bmp", |
28 | -file => "$ENV{PAR_TEMP}/SPLASH.bmp", |
24 | ); |
29 | ); |
25 | |
30 | |
… | |
… | |
86 | |
91 | |
87 | use Deliantra; |
92 | use Deliantra; |
88 | use Deliantra::Protocol::Constants; |
93 | use Deliantra::Protocol::Constants; |
89 | |
94 | |
90 | use AnyEvent::Util (); |
95 | use AnyEvent::Util (); |
91 | use AnyEvent::DNS; |
|
|
92 | use AnyEvent::Socket (); |
96 | use AnyEvent::Socket (); |
93 | use AnyEvent::DNS (); |
97 | use AnyEvent::DNS (); |
94 | |
98 | |
95 | use Compress::LZF; |
99 | use Compress::LZF; |
96 | use JSON::XS; |
100 | use JSON::XS; |
… | |
… | |
2600 | $SIG{INT} = $SIG{TERM} = sub { |
2604 | $SIG{INT} = $SIG{TERM} = sub { |
2601 | EV::unloop; |
2605 | EV::unloop; |
2602 | #d# TODO calling exit here hangs the process in some futex |
2606 | #d# TODO calling exit here hangs the process in some futex |
2603 | }; |
2607 | }; |
2604 | |
2608 | |
2605 | # initialise the resolver now, as vista forces us back to the desktop |
|
|
2606 | # when doing this. |
|
|
2607 | AnyEvent::DNS::resolver; |
|
|
2608 | |
|
|
2609 | # due to mac os x + sdl combined braindamage, we need this contortion |
2609 | # due to mac os x + sdl combined braindamage, we need this contortion |
2610 | sub main { |
2610 | sub main { |
2611 | { |
2611 | { |
2612 | DC::Pod::load_docwiki DC::find_rcfile "docwiki.pst"; |
2612 | DC::Pod::load_docwiki DC::find_rcfile "docwiki.pst"; |
2613 | |
2613 | |