ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Urlader/Urlader.pm
(Generate patch)

Comparing Urlader/Urlader.pm (file contents):
Revision 1.1 by root, Mon Jan 2 09:23:03 2012 UTC vs.
Revision 1.3 by root, Tue Jan 3 13:28:10 2012 UTC

… …
21 21
22 use XSLoader; 22 use XSLoader;
23 XSLoader::load __PACKAGE__, $VERSION; 23 XSLoader::load __PACKAGE__, $VERSION;
24} 24}
25 25
26our $URLADER_VERSION; # only ste when running under urlader
26our $DATADIR; 27our $DATADIR;
27our $EXE_ID; 28our $EXE_ID;
28our $EXE_VER; 29our $EXE_VER;
29our $EXE_DIR; # %AppData%/urlader/EXE_ID 30our $EXE_DIR; # %AppData%/urlader/EXE_ID
30our $EXECDIR; # %AppData%/urlader/EXE_ID/i-EXE_VER 31our $EXECDIR; # %AppData%/urlader/EXE_ID/i-EXE_VER
31 32
32sub _get_env { 33sub _get_env {
34 $URLADER_VERSION = getenv "URLADER_VERSION";
35 $DATADIR = getenv "URLADER_DATADIR";
33 $EXE_ID = getenv "URLADER_EXE_ID"; 36 $EXE_ID = getenv "URLADER_EXE_ID";
34 $EXE_VER = getenv "URLADER_EXE_VER"; 37 $EXE_VER = getenv "URLADER_EXE_VER";
35 $EXE_DIR = getenv "URLADER_EXE_DIR"; # %AppData%/urlader/EXE_ID 38 $EXE_DIR = getenv "URLADER_EXE_DIR"; # %AppData%/urlader/EXE_ID
36 $EXECDIR = getenv "URLADER_EXECDIR"; # %AppData%/urlader/EXE_ID/i-EXE_VER 39 $EXECDIR = getenv "URLADER_EXECDIR"; # %AppData%/urlader/EXE_ID/i-EXE_VER
37} 40}
38
39_set_datadir unless defined getenv "URLADER_DATADIR";
40$DATADIR = getenv "URLADER_DATADIR";
41 41
42_get_env; 42_get_env;
43 43
44sub set_exe_info($$) { 44sub set_exe_info($$) {
45 _set_datadir unless defined getenv "URLADER_DATADIR";
45 &_set_exe_info; 46 &_set_exe_info;
46 _get_env; 47 _get_env;
47} 48}
48 49
49 50

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines