ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/Deliantra-Client/util/run
Revision: 1.6
Committed: Sat Jan 7 15:24:41 2012 UTC (12 years, 6 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +5 -1 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #! perl
2
3 # wrapper to run the urlader-packaged client
4
5 our %NO_WARN = map +($_, undef),
6 "Log/Agent.pm", # Storable has this idiotic optional dependency
7 "Win32/GUI/DIBitmap.pm", # JPEG support for Win32::SplashScreen
8 "ActivePerl/Config.pm", # Config tries to use this
9 "AnyEvent/Strict.pm", # used for debugging
10 "Net/DNS/SEC.pm", # Net:DNS optional
11 "Net/DNS/RR/SIG.pm", # Net:DNS optional
12 "IO/Socket/INET6.pm", # Net:DNS optional
13 ;
14
15 @INC = (
16 "pm",
17 ".", # AutoLoader requires this in newer versions. yup. yup. yup :(
18 sub {
19 return if exists $NO_WARN{$_[1]};
20 require Carp;
21 Carp::cluck ("$_[1]: file not found, packaging error?\n");
22 eval {
23 ::crash ("MISSING PACKAGE: $_[1]", 1);
24 };
25 ()
26 },
27 );
28
29 #############################################################################
30 # splash-screen
31
32 our @STARTUP_DONE;
33
34 if ($^O eq "MSWin32") {
35 require Win32::GUI::SplashScreen;
36
37 Win32::GUI::SplashScreen::Show (
38 -file => "SPLASH.bmp",
39 );
40
41 push @STARTUP_DONE, sub {
42 Win32::GUI::SplashScreen::Done (1);
43 };
44 }
45
46 require Urlader;
47
48 delete $ENV{PERL_ANYEVENT_STRICT} ; delete $ENV{AE_STRICT};
49 delete $ENV{PERL_ANYEVENT_DEBUG_WRAP}; delete $ENV{AE_DEBUG_WRAP};
50
51 $ENV{TIMIDITY_CFG} = "timidity.cfg";
52 $ENV{PANGO_RC_FILE} = "pango.rc";
53
54 require "bin/deliantra";
55
56 exit 0;
57