Changeset 14918


Ignore:
Timestamp:
2007-12-13T13:18:17+13:00 (14 years ago)
Author:
dmn
Message:

davidb's to allow for proxy's without authentication

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/downloaders/WgetDownload.pm

    r14657 r14918  
    105105    my $strOptions = "";
    106106   
    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'})
    110108    {
    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    }
    112116    }
     117
     118    $strOptions .= " -Y on ";
    113119
    114120    return $strOptions;
Note: See TracChangeset for help on using the changeset viewer.