Lines 29-34
Link Here
|
29 |
my $new_format_parts = 2; |
29 |
my $new_format_parts = 2; |
30 |
my $dry_run = 0; |
30 |
my $dry_run = 0; |
31 |
|
31 |
|
|
|
32 |
my $proxy = get_proxy(); |
33 |
|
32 |
if( grep( /^--dry-run$/, @ARGV) ) { |
34 |
if( grep( /^--dry-run$/, @ARGV) ) { |
33 |
$dry_run = 1; |
35 |
$dry_run = 1; |
34 |
@ARGV = map( /^--dry-run$/ ? () : $_, @ARGV); |
36 |
@ARGV = map( /^--dry-run$/ ? () : $_, @ARGV); |
Lines 121-126
Link Here
|
121 |
'sisyphus' |
123 |
'sisyphus' |
122 |
); |
124 |
); |
123 |
|
125 |
|
|
|
126 |
sub get_proxy { |
127 |
|
128 |
my @res=`apt-config dump | grep -i "https\\?::proxy"`; |
129 |
|
130 |
if (scalar @res > 1) { |
131 |
print "Too many proxy found. You should check the apt's configuration."; |
132 |
} |
133 |
|
134 |
if ( defined $res[0] and $res[0] =~ /.*https?::proxy "(.*)";/i ) { |
135 |
#print "$1\n"; |
136 |
return "--proxy $1"; |
137 |
} |
138 |
|
139 |
return ""; |
140 |
} |
141 |
|
124 |
# Show usage information |
142 |
# Show usage information |
125 |
sub show_usage { |
143 |
sub show_usage { |
126 |
print <<"HELP"; |
144 |
print <<"HELP"; |
Lines 210-216
Link Here
|
210 |
|
228 |
|
211 |
die "Task $task is unknown or still building" if ! task_exists( $task ); |
229 |
die "Task $task is unknown or still building" if ! task_exists( $task ); |
212 |
|
230 |
|
213 |
open P, '-|', "curl -s http://git.altlinux.org/tasks/$task/plan/add-bin | cut -f1 | egrep -v '\\-(devel.*|debuginfo)\$' | sort -u"; |
231 |
open P, '-|', "curl $proxy -s http://git.altlinux.org/tasks/$task/plan/add-bin | cut -f1 | egrep -v '\\-(devel.*|debuginfo)\$' | sort -u"; |
214 |
@out = <P>; |
232 |
@out = <P>; |
215 |
close P; |
233 |
close P; |
216 |
return @out; |
234 |
return @out; |
Lines 221-227
Link Here
|
221 |
my $task = shift; |
239 |
my $task = shift; |
222 |
my @out = (); |
240 |
my @out = (); |
223 |
|
241 |
|
224 |
open P, '-|', "curl -s -w '%{http_code}' http://git.altlinux.org/tasks/$task/plan/add-bin"; |
242 |
open P, '-|', "curl $proxy -s -w '%{http_code}' http://git.altlinux.org/tasks/$task/plan/add-bin"; |
225 |
@out = <P>; |
243 |
@out = <P>; |
226 |
close P; |
244 |
close P; |
227 |
return ( (pop @out) eq "200" and (scalar @out) != 0); |
245 |
return ( (pop @out) eq "200" and (scalar @out) != 0); |
Lines 234-240
Link Here
|
234 |
|
252 |
|
235 |
die "Missing or wrong task number" if ! defined $task or ! $task=~ /^(\d+)$/; |
253 |
die "Missing or wrong task number" if ! defined $task or ! $task=~ /^(\d+)$/; |
236 |
|
254 |
|
237 |
open P, '-|', "curl -s -w '%{http_code}' http://git.altlinux.org/tasks/$task/plan/arepo-add-x86_64-i586"; |
255 |
open P, '-|', "curl $proxy -s -w '%{http_code}' http://git.altlinux.org/tasks/$task/plan/arepo-add-x86_64-i586"; |
238 |
@out = <P>; |
256 |
@out = <P>; |
239 |
close P; |
257 |
close P; |
240 |
return ( (pop @out) eq "200" and (scalar @out) != 0); |
258 |
return ( (pop @out) eq "200" and (scalar @out) != 0); |