Changeset 14918
- Timestamp:
- 2007-12-13T13:18:17+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/downloaders/WgetDownload.pm
r14657 r14918 105 105 my $strOptions = ""; 106 106 107 if($self->{'proxy_on'} && $self->{'proxy_host'} && $self->{'proxy_port'} 108 && $self->{'user_name'} && $self->{'user_password'} 109 ) 107 if($self->{'proxy_on'} && $self->{'proxy_host'} && $self->{'proxy_port'}) 110 108 { 111 $strOptions = " -e httpproxy=$self->{'proxy_host'}:$self->{'proxy_port'} --proxy-user=$self->{'user_name'}"." --proxy-passwd=$self->{'user_password'} -Y on "; 109 110 $strOptions .= " -e httpproxy=$self->{'proxy_host'}:$self->{'proxy_port'} "; 111 112 if ($self->{'user_name'} && $self->{'user_password'}) 113 { 114 $strOptions .= "--proxy-user=$self->{'user_name'}"." --proxy-passwd=$self->{'user_password'}"; 115 } 112 116 } 117 118 $strOptions .= " -Y on "; 113 119 114 120 return $strOptions;
Note:
See TracChangeset
for help on using the changeset viewer.