methods/https.cc

   1 //-*- mode: cpp; mode: fold -*-
   2 // Description                                                          /*{{{*/
   3 // $Id: http.cc,v 1.59 2004/05/08 19:42:35 mdz Exp $
   4 /* ######################################################################
   5
   6    HTTPS Acquire Method - This is the HTTPS aquire method for APT.
   7
   8    It uses libcurl
   9
  10    ##################################################################### */
  11                                                                         /*}}}*/
  12 // Include Files                                                        /*{{{*/
  13 #include <config.h>
  14
  15 #include <apt-pkg/fileutl.h>
  16 #include <apt-pkg/acquire-method.h>
  17 #include <apt-pkg/error.h>
  18 #include <apt-pkg/hashes.h>
  19 #include <apt-pkg/netrc.h>
  20 #include <apt-pkg/configuration.h>
  21
  22 #include <sys/stat.h>
  23 #include <sys/time.h>
  24 #include <utime.h>
  25 #include <unistd.h>
  26 #include <signal.h>
  27 #include <stdio.h>
  28 #include <errno.h>
  29 #include <string.h>
  30 #include <iostream>
  31 #include <sstream>
  32
  33 #include "config.h"
  34 #include "https.h"
  35 #include <apti18n.h>
  36                                                                         /*}}}*/
  37 using namespace std;
  38
  39 size_t
  40 HttpsMethod::write_data(void *buffer, size_t size, size_t nmemb, void *userp)
  41 {
  42    HttpsMethod *me = (HttpsMethod *)userp;
  43
  44    if(me->File->Write(buffer, size*nmemb) != true)
  45       return false;
  46
  47    return size*nmemb;
  48 }
  49
  50 int
  51 HttpsMethod::progress_callback(void *clientp, double dltotal, double dlnow,
  52                               double ultotal, double ulnow)
  53 {
  54    HttpsMethod *me = (HttpsMethod *)clientp;
  55    if(dltotal > 0 && me->Res.Size == 0) {
  56       me->Res.Size = (unsigned long long)dltotal;
  57       me->URIStart(me->Res);
  58    }
  59    return 0;
  60 }
  61
  62 void HttpsMethod::SetupProxy()                                          /*{{{*/
  63 {
  64    URI ServerName = Queue->Uri;
  65
  66    // Determine the proxy setting - try https first, fallback to http and use env at last
  67    string UseProxy = _config->Find("Acquire::https::Proxy::" + ServerName.Host,
  68                                    _config->Find("Acquire::http::Proxy::" + ServerName.Host).c_str());
  69
  70    if (UseProxy.empty() == true)
  71       UseProxy = _config->Find("Acquire::https::Proxy", _config->Find("Acquire::http::Proxy").c_str());
  72
  73    // User want to use NO proxy, so nothing to setup
  74    if (UseProxy == "DIRECT")
  75       return;
  76
  77    if (UseProxy.empty() == false)
  78    {
  79       // Parse no_proxy, a comma (,) separated list of domains we don't want to use
  80       // a proxy for so we stop right here if it is in the list
  81       if (getenv("no_proxy") != 0 && CheckDomainList(ServerName.Host,getenv("no_proxy")) == true)
  82          return;
  83    } else {
  84       const char* result = getenv("http_proxy");
  85       UseProxy = result == NULL ? "" : result;
  86    }
  87
  88    // Determine what host and port to use based on the proxy settings
  89    if (UseProxy.empty() == false)
  90    {
  91       Proxy = UseProxy;
  92       if (Proxy.Port != 1)
  93          curl_easy_setopt(curl, CURLOPT_PROXYPORT, Proxy.Port);
  94       curl_easy_setopt(curl, CURLOPT_PROXY, Proxy.Host.c_str());
  95    }
  96 }                                                                       /*}}}*/
  97 // HttpsMethod::Fetch - Fetch an item                                   /*{{{*/
  98 // ---------------------------------------------------------------------
  99 /* This adds an item to the pipeline. We keep the pipeline at a fixed
 100    depth. */
 101 bool HttpsMethod::Fetch(FetchItem *Itm)
 102 {
 103    struct stat SBuf;
 104    struct curl_slist *headers=NULL;
 105    char curl_errorstr[CURL_ERROR_SIZE];
 106    long curl_responsecode;
 107    URI Uri = Itm->Uri;
 108    string remotehost = Uri.Host;
 109
 110    // TODO:
 111    //       - http::Pipeline-Depth
 112    //       - error checking/reporting
 113    //       - more debug options? (CURLOPT_DEBUGFUNCTION?)
 114
 115    curl_easy_reset(curl);
 116    SetupProxy();
 117
 118    maybe_add_auth (Uri, _config->FindFile("Dir::Etc::netrc"));
 119
 120    // callbacks
 121    curl_easy_setopt(curl, CURLOPT_URL, static_cast<string>(Uri).c_str());
 122    curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_data);
 123    curl_easy_setopt(curl, CURLOPT_WRITEDATA, this);
 124    curl_easy_setopt(curl, CURLOPT_PROGRESSFUNCTION, progress_callback);
 125    curl_easy_setopt(curl, CURLOPT_PROGRESSDATA, this);
 126    curl_easy_setopt(curl, CURLOPT_NOPROGRESS, false);
 127    curl_easy_setopt(curl, CURLOPT_FAILONERROR, true);
 128    curl_easy_setopt(curl, CURLOPT_FILETIME, true);
 129
 130    // SSL parameters are set by default to the common (non mirror-specific) value
 131    // if available (or a default one) and gets overload by mirror-specific ones.
 132
 133    // File containing the list of trusted CA.
 134    string cainfo = _config->Find("Acquire::https::CaInfo","");
 135    string knob = "Acquire::https::"+remotehost+"::CaInfo";
 136    cainfo = _config->Find(knob.c_str(),cainfo.c_str());
 137    if(cainfo.empty() == false)
 138       curl_easy_setopt(curl, CURLOPT_CAINFO,cainfo.c_str());
 139
 140    // Check server certificate against previous CA list ...
 141    bool peer_verify = _config->FindB("Acquire::https::Verify-Peer",true);
 142    knob = "Acquire::https::" + remotehost + "::Verify-Peer";
 143    peer_verify = _config->FindB(knob.c_str(), peer_verify);
 144    curl_easy_setopt(curl, CURLOPT_SSL_VERIFYPEER, peer_verify);
 145
 146    // ... and hostname against cert CN or subjectAltName
 147    bool verify = _config->FindB("Acquire::https::Verify-Host",true);
 148    knob = "Acquire::https::"+remotehost+"::Verify-Host";
 149    verify = _config->FindB(knob.c_str(),verify);
 150    int const default_verify = (verify == true) ? 2 : 0;
 151    curl_easy_setopt(curl, CURLOPT_SSL_VERIFYHOST, default_verify);
 152
 153    // Also enforce issuer of server certificate using its cert
 154    string issuercert = _config->Find("Acquire::https::IssuerCert","");
 155    knob = "Acquire::https::"+remotehost+"::IssuerCert";
 156    issuercert = _config->Find(knob.c_str(),issuercert.c_str());
 157    if(issuercert.empty() == false)
 158       curl_easy_setopt(curl, CURLOPT_ISSUERCERT,issuercert.c_str());
 159
 160    // For client authentication, certificate file ...
 161    string pem = _config->Find("Acquire::https::SslCert","");
 162    knob = "Acquire::https::"+remotehost+"::SslCert";
 163    pem = _config->Find(knob.c_str(),pem.c_str());
 164    if(pem.empty() == false)
 165       curl_easy_setopt(curl, CURLOPT_SSLCERT, pem.c_str());
 166
 167    // ... and associated key.
 168    string key = _config->Find("Acquire::https::SslKey","");
 169    knob = "Acquire::https::"+remotehost+"::SslKey";
 170    key = _config->Find(knob.c_str(),key.c_str());
 171    if(key.empty() == false)
 172       curl_easy_setopt(curl, CURLOPT_SSLKEY, key.c_str());
 173
 174    // Allow forcing SSL version to SSLv3 or TLSv1 (SSLv2 is not
 175    // supported by GnuTLS).
 176    long final_version = CURL_SSLVERSION_DEFAULT;
 177    string sslversion = _config->Find("Acquire::https::SslForceVersion","");
 178    knob = "Acquire::https::"+remotehost+"::SslForceVersion";
 179    sslversion = _config->Find(knob.c_str(),sslversion.c_str());
 180    if(sslversion == "TLSv1")
 181      final_version = CURL_SSLVERSION_TLSv1;
 182    else if(sslversion == "SSLv3")
 183      final_version = CURL_SSLVERSION_SSLv3;
 184    curl_easy_setopt(curl, CURLOPT_SSLVERSION, final_version);
 185
 186    // CRL file
 187    string crlfile = _config->Find("Acquire::https::CrlFile","");
 188    knob = "Acquire::https::"+remotehost+"::CrlFile";
 189    crlfile = _config->Find(knob.c_str(),crlfile.c_str());
 190    if(crlfile.empty() == false)
 191       curl_easy_setopt(curl, CURLOPT_CRLFILE, crlfile.c_str());
 192
 193    // cache-control
 194    if(_config->FindB("Acquire::https::No-Cache",
 195         _config->FindB("Acquire::http::No-Cache",false)) == false)
 196    {
 197       // cache enabled
 198       if (_config->FindB("Acquire::https::No-Store",
 199                 _config->FindB("Acquire::http::No-Store",false)) == true)
 200          headers = curl_slist_append(headers,"Cache-Control: no-store");
 201       stringstream ss;
 202       ioprintf(ss, "Cache-Control: max-age=%u", _config->FindI("Acquire::https::Max-Age",
 203                 _config->FindI("Acquire::http::Max-Age",0)));
 204       headers = curl_slist_append(headers, ss.str().c_str());
 205    } else {
 206       // cache disabled by user
 207       headers = curl_slist_append(headers, "Cache-Control: no-cache");
 208       headers = curl_slist_append(headers, "Pragma: no-cache");
 209    }
 210    curl_easy_setopt(curl, CURLOPT_HTTPHEADER, headers);
 211
 212    // speed limit
 213    int const dlLimit = _config->FindI("Acquire::https::Dl-Limit",
 214                 _config->FindI("Acquire::http::Dl-Limit",0))*1024;
 215    if (dlLimit > 0)
 216       curl_easy_setopt(curl, CURLOPT_MAX_RECV_SPEED_LARGE, dlLimit);
 217
 218    // set header
 219    curl_easy_setopt(curl, CURLOPT_USERAGENT,
 220         _config->Find("Acquire::https::User-Agent",
 221                 _config->Find("Acquire::http::User-Agent",
 222                         "Debian APT-CURL/1.0 (" PACKAGE_VERSION ")").c_str()).c_str());
 223
 224    // set timeout
 225    int const timeout = _config->FindI("Acquire::https::Timeout",
 226                 _config->FindI("Acquire::http::Timeout",120));
 227    curl_easy_setopt(curl, CURLOPT_CONNECTTIMEOUT, timeout);
 228    //set really low lowspeed timeout (see #497983)
 229    curl_easy_setopt(curl, CURLOPT_LOW_SPEED_LIMIT, DL_MIN_SPEED);
 230    curl_easy_setopt(curl, CURLOPT_LOW_SPEED_TIME, timeout);
 231
 232    // set redirect options and default to 10 redirects
 233    bool const AllowRedirect = _config->FindB("Acquire::https::AllowRedirect",
 234         _config->FindB("Acquire::http::AllowRedirect",true));
 235    curl_easy_setopt(curl, CURLOPT_FOLLOWLOCATION, AllowRedirect);
 236    curl_easy_setopt(curl, CURLOPT_MAXREDIRS, 10);
 237
 238    // debug
 239    if(_config->FindB("Debug::Acquire::https", false))
 240       curl_easy_setopt(curl, CURLOPT_VERBOSE, true);
 241
 242    // error handling
 243    curl_easy_setopt(curl, CURLOPT_ERRORBUFFER, curl_errorstr);
 244
 245    // If we ask for uncompressed files servers might respond with content-
 246    // negotation which lets us end up with compressed files we do not support,
 247    // see 657029, 657560 and co, so if we have no extension on the request
 248    // ask for text only. As a sidenote: If there is nothing to negotate servers
 249    // seem to be nice and ignore it.
 250    if (_config->FindB("Acquire::https::SendAccept", _config->FindB("Acquire::http::SendAccept", true)) == true)
 251    {
 252       size_t const filepos = Itm->Uri.find_last_of('/');
 253       string const file = Itm->Uri.substr(filepos + 1);
 254       if (flExtension(file) == file)
 255          headers = curl_slist_append(headers, "Accept: text/*");
 256    }
 257
 258    // if we have the file send an if-range query with a range header
 259    if (stat(Itm->DestFile.c_str(),&SBuf) >= 0 && SBuf.st_size > 0)
 260    {
 261       char Buf[1000];
 262       sprintf(Buf, "Range: bytes=%li-", (long) SBuf.st_size - 1);
 263       headers = curl_slist_append(headers, Buf);
 264       sprintf(Buf, "If-Range: %s", TimeRFC1123(SBuf.st_mtime).c_str());
 265       headers = curl_slist_append(headers, Buf);
 266    }
 267    else if(Itm->LastModified > 0)
 268    {
 269       curl_easy_setopt(curl, CURLOPT_TIMECONDITION, CURL_TIMECOND_IFMODSINCE);
 270       curl_easy_setopt(curl, CURLOPT_TIMEVALUE, Itm->LastModified);
 271    }
 272
 273    // go for it - if the file exists, append on it
 274    File = new FileFd(Itm->DestFile, FileFd::WriteAny);
 275    if (File->Size() > 0)
 276       File->Seek(File->Size() - 1);
 277
 278    // keep apt updated
 279    Res.Filename = Itm->DestFile;
 280
 281    // get it!
 282    CURLcode success = curl_easy_perform(curl);
 283    curl_easy_getinfo(curl, CURLINFO_RESPONSE_CODE, &curl_responsecode);
 284
 285    long curl_servdate;
 286    curl_easy_getinfo(curl, CURLINFO_FILETIME, &curl_servdate);
 287
 288    File->Close();
 289
 290    // cleanup
 291    if(success != 0)
 292    {
 293       _error->Error("%s", curl_errorstr);
 294       // unlink, no need keep 401/404 page content in partial/
 295       unlink(File->Name().c_str());
 296       Fail();
 297       return true;
 298    }
 299
 300    // Timestamp
 301    struct utimbuf UBuf;
 302    if (curl_servdate != -1) {
 303        UBuf.actime = curl_servdate;
 304        UBuf.modtime = curl_servdate;
 305        utime(File->Name().c_str(),&UBuf);
 306    }
 307
 308    // check the downloaded result
 309    struct stat Buf;
 310    if (stat(File->Name().c_str(),&Buf) == 0)
 311    {
 312       Res.Filename = File->Name();
 313       Res.LastModified = Buf.st_mtime;
 314       Res.IMSHit = false;
 315       if (curl_responsecode == 304)
 316       {
 317          unlink(File->Name().c_str());
 318          Res.IMSHit = true;
 319          Res.LastModified = Itm->LastModified;
 320          Res.Size = 0;
 321          URIDone(Res);
 322          return true;
 323       }
 324       Res.Size = Buf.st_size;
 325    }
 326
 327    // take hashes
 328    Hashes Hash;
 329    FileFd Fd(Res.Filename, FileFd::ReadOnly);
 330    Hash.AddFD(Fd);
 331    Res.TakeHashes(Hash);
 332
 333    // keep apt updated
 334    URIDone(Res);
 335
 336    // cleanup
 337    Res.Size = 0;
 338    delete File;
 339    curl_slist_free_all(headers);
 340
 341    return true;
 342 };
 343
 344 int main()
 345 {
 346    setlocale(LC_ALL, "");
 347
 348    HttpsMethod Mth;
 349    curl_global_init(CURL_GLOBAL_SSL) ;
 350
 351    return Mth.Run();
 352 }
 353
 354