… | |
… | |
136 | $::CFG->{VERSION} = $::VERSION; |
136 | $::CFG->{VERSION} = $::VERSION; |
137 | |
137 | |
138 | open my $fh, ">:utf8", $file |
138 | open my $fh, ">:utf8", $file |
139 | or return; |
139 | or return; |
140 | print $fh to_json $::CFG; |
140 | print $fh to_json $::CFG; |
|
|
141 | } |
|
|
142 | |
|
|
143 | sub http_proxy { |
|
|
144 | my @proxy = win32_proxy_info; |
|
|
145 | |
|
|
146 | if (@proxy) { |
|
|
147 | "http://" . (@proxy < 2 ? "" : @proxy < 3 ? "$proxy[1]\@" : "$proxy[1]:$proxy[2]\@") . $proxy[0] |
|
|
148 | } elsif (exists $ENV{http_proxy}) { |
|
|
149 | $ENV{http_proxy} |
|
|
150 | } else { |
|
|
151 | () |
|
|
152 | } |
|
|
153 | } |
|
|
154 | |
|
|
155 | sub set_proxy { |
|
|
156 | my $proxy = http_proxy |
|
|
157 | or return; |
|
|
158 | |
|
|
159 | $ENV{http_proxy} = $proxy; |
141 | } |
160 | } |
142 | |
161 | |
143 | our $DB_ENV; |
162 | our $DB_ENV; |
144 | our $DB_STATE; |
163 | our $DB_STATE; |
145 | |
164 | |