LCOV - code coverage report
Current view: top level - debuginfod - debuginfod.cxx (source / functions) Hit Total Coverage
Test: elfutils-0.189 Lines: 1782 2109 84.5 %
Date: 2023-04-06 23:11:33 Functions: 82 90 91.1 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 2497 5993 41.7 %

           Branch data     Line data    Source code
       1                 :            : /* Debuginfo-over-http server.
       2                 :            :    Copyright (C) 2019-2021 Red Hat, Inc.
       3                 :            :    Copyright (C) 2021, 2022 Mark J. Wielaard <mark@klomp.org>
       4                 :            :    This file is part of elfutils.
       5                 :            : 
       6                 :            :    This file is free software; you can redistribute it and/or modify
       7                 :            :    it under the terms of the GNU General Public License as published by
       8                 :            :    the Free Software Foundation; either version 3 of the License, or
       9                 :            :    (at your option) any later version.
      10                 :            : 
      11                 :            :    elfutils is distributed in the hope that it will be useful, but
      12                 :            :    WITHOUT ANY WARRANTY; without even the implied warranty of
      13                 :            :    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      14                 :            :    GNU General Public License for more details.
      15                 :            : 
      16                 :            :    You should have received a copy of the GNU General Public License
      17                 :            :    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
      18                 :            : 
      19                 :            : 
      20                 :            : /* cargo-cult from libdwfl linux-kernel-modules.c */
      21                 :            : /* In case we have a bad fts we include this before config.h because it
      22                 :            :    can't handle _FILE_OFFSET_BITS.
      23                 :            :    Everything we need here is fine if its declarations just come first.
      24                 :            :    Also, include sys/types.h before fts. On some systems fts.h is not self
      25                 :            :    contained. */
      26                 :            : #ifdef BAD_FTS
      27                 :            :   #include <sys/types.h>
      28                 :            :   #include <fts.h>
      29                 :            : #endif
      30                 :            : 
      31                 :            : #ifdef HAVE_CONFIG_H
      32                 :            :   #include "config.h"
      33                 :            : #endif
      34                 :            : 
      35                 :            : // #define _GNU_SOURCE
      36                 :            : #ifdef HAVE_SCHED_H
      37                 :            : extern "C" {
      38                 :            : #include <sched.h>
      39                 :            : }
      40                 :            : #endif
      41                 :            : #ifdef HAVE_SYS_RESOURCE_H
      42                 :            : extern "C" {
      43                 :            : #include <sys/resource.h>
      44                 :            : }
      45                 :            : #endif
      46                 :            : 
      47                 :            : extern "C" {
      48                 :            : #include "printversion.h"
      49                 :            : #include "system.h"
      50                 :            : }
      51                 :            : 
      52                 :            : #include "debuginfod.h"
      53                 :            : #include <dwarf.h>
      54                 :            : 
      55                 :            : #include <argp.h>
      56                 :            : #ifdef __GNUC__
      57                 :            : #undef __attribute__ /* glibc bug - rhbz 1763325 */
      58                 :            : #endif
      59                 :            : 
      60                 :            : #include <unistd.h>
      61                 :            : #include <stdlib.h>
      62                 :            : #include <locale.h>
      63                 :            : #include <pthread.h>
      64                 :            : #include <signal.h>
      65                 :            : #include <sys/stat.h>
      66                 :            : #include <sys/time.h>
      67                 :            : #include <sys/vfs.h>
      68                 :            : #include <unistd.h>
      69                 :            : #include <fcntl.h>
      70                 :            : #include <netdb.h>
      71                 :            : 
      72                 :            : 
      73                 :            : /* If fts.h is included before config.h, its indirect inclusions may not
      74                 :            :    give us the right LFS aliases of these functions, so map them manually.  */
      75                 :            : #ifdef BAD_FTS
      76                 :            :   #ifdef _FILE_OFFSET_BITS
      77                 :            :     #define open open64
      78                 :            :     #define fopen fopen64
      79                 :            :   #endif
      80                 :            : #else
      81                 :            :   #include <sys/types.h>
      82                 :            :   #include <fts.h>
      83                 :            : #endif
      84                 :            : 
      85                 :            : #include <cstring>
      86                 :            : #include <vector>
      87                 :            : #include <set>
      88                 :            : #include <map>
      89                 :            : #include <string>
      90                 :            : #include <iostream>
      91                 :            : #include <iomanip>
      92                 :            : #include <ostream>
      93                 :            : #include <sstream>
      94                 :            : #include <mutex>
      95                 :            : #include <deque>
      96                 :            : #include <condition_variable>
      97                 :            : #include <thread>
      98                 :            : // #include <regex> // on rhel7 gcc 4.8, not competent
      99                 :            : #include <regex.h>
     100                 :            : // #include <algorithm>
     101                 :            : using namespace std;
     102                 :            : 
     103                 :            : #include <gelf.h>
     104                 :            : #include <libdwelf.h>
     105                 :            : 
     106                 :            : #include <microhttpd.h>
     107                 :            : 
     108                 :            : #if MHD_VERSION >= 0x00097002
     109                 :            : // libmicrohttpd 0.9.71 broke API
     110                 :            : #define MHD_RESULT enum MHD_Result
     111                 :            : #else
     112                 :            : #define MHD_RESULT int
     113                 :            : #endif
     114                 :            : 
     115                 :            : #include <curl/curl.h>
     116                 :            : #include <archive.h>
     117                 :            : #include <archive_entry.h>
     118                 :            : #include <sqlite3.h>
     119                 :            : 
     120                 :            : #ifdef __linux__
     121                 :            : #include <sys/syscall.h>
     122                 :            : #endif
     123                 :            : 
     124                 :            : #ifdef __linux__
     125                 :            : #define tid() syscall(SYS_gettid)
     126                 :            : #else
     127                 :            : #define tid() pthread_self()
     128                 :            : #endif
     129                 :            : 
     130                 :            : 
     131                 :            : inline bool
     132                 :       1455 : string_endswith(const string& haystack, const string& needle)
     133                 :            : {
     134   [ +  -  +  + ]:       1455 :   return (haystack.size() >= needle.size() &&
     135         [ +  + ]:       1455 :           equal(haystack.end()-needle.size(), haystack.end(),
     136                 :       1455 :                 needle.begin()));
     137                 :            : }
     138                 :            : 
     139                 :            : 
     140                 :            : // Roll this identifier for every sqlite schema incompatibility.
     141                 :            : #define BUILDIDS "buildids9"
     142                 :            : 
     143                 :            : #if SQLITE_VERSION_NUMBER >= 3008000
     144                 :            : #define WITHOUT_ROWID "without rowid"
     145                 :            : #else
     146                 :            : #define WITHOUT_ROWID ""
     147                 :            : #endif
     148                 :            : 
     149                 :            : static const char DEBUGINFOD_SQLITE_DDL[] =
     150                 :            :   "pragma foreign_keys = on;\n"
     151                 :            :   "pragma synchronous = 0;\n" // disable fsync()s - this cache is disposable across a machine crash
     152                 :            :   "pragma journal_mode = wal;\n" // https://sqlite.org/wal.html
     153                 :            :   "pragma wal_checkpoint = truncate;\n" // clean out any preexisting wal file
     154                 :            :   "pragma journal_size_limit = 0;\n" // limit steady state file (between grooming, which also =truncate's)
     155                 :            :   "pragma auto_vacuum = incremental;\n" // https://sqlite.org/pragma.html
     156                 :            :   "pragma busy_timeout = 1000;\n" // https://sqlite.org/pragma.html
     157                 :            :   // NB: all these are overridable with -D option
     158                 :            : 
     159                 :            :   // Normalization table for interning file names
     160                 :            :   "create table if not exists " BUILDIDS "_files (\n"
     161                 :            :   "        id integer primary key not null,\n"
     162                 :            :   "        name text unique not null\n"
     163                 :            :   "        );\n"
     164                 :            :   // Normalization table for interning buildids
     165                 :            :   "create table if not exists " BUILDIDS "_buildids (\n"
     166                 :            :   "        id integer primary key not null,\n"
     167                 :            :   "        hex text unique not null);\n"
     168                 :            :   // Track the completion of scanning of a given file & sourcetype at given time
     169                 :            :   "create table if not exists " BUILDIDS "_file_mtime_scanned (\n"
     170                 :            :   "        mtime integer not null,\n"
     171                 :            :   "        file integer not null,\n"
     172                 :            :   "        size integer not null,\n" // in bytes
     173                 :            :   "        sourcetype text(1) not null\n"
     174                 :            :   "            check (sourcetype IN ('F', 'R')),\n"
     175                 :            :   "        foreign key (file) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     176                 :            :   "        primary key (file, mtime, sourcetype)\n"
     177                 :            :   "        ) " WITHOUT_ROWID ";\n"
     178                 :            :   "create table if not exists " BUILDIDS "_f_de (\n"
     179                 :            :   "        buildid integer not null,\n"
     180                 :            :   "        debuginfo_p integer not null,\n"
     181                 :            :   "        executable_p integer not null,\n"
     182                 :            :   "        file integer not null,\n"
     183                 :            :   "        mtime integer not null,\n"
     184                 :            :   "        foreign key (file) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     185                 :            :   "        foreign key (buildid) references " BUILDIDS "_buildids(id) on update cascade on delete cascade,\n"
     186                 :            :   "        primary key (buildid, file, mtime)\n"
     187                 :            :   "        ) " WITHOUT_ROWID ";\n"
     188                 :            :   // Index for faster delete by file identifier
     189                 :            :   "create index if not exists " BUILDIDS "_f_de_idx on " BUILDIDS "_f_de (file, mtime);\n"
     190                 :            :   "create table if not exists " BUILDIDS "_f_s (\n"
     191                 :            :   "        buildid integer not null,\n"
     192                 :            :   "        artifactsrc integer not null,\n"
     193                 :            :   "        file integer not null,\n" // NB: not necessarily entered into _mtime_scanned
     194                 :            :   "        mtime integer not null,\n"
     195                 :            :   "        foreign key (file) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     196                 :            :   "        foreign key (artifactsrc) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     197                 :            :   "        foreign key (buildid) references " BUILDIDS "_buildids(id) on update cascade on delete cascade,\n"
     198                 :            :   "        primary key (buildid, artifactsrc, file, mtime)\n"
     199                 :            :   "        ) " WITHOUT_ROWID ";\n"
     200                 :            :   "create table if not exists " BUILDIDS "_r_de (\n"
     201                 :            :   "        buildid integer not null,\n"
     202                 :            :   "        debuginfo_p integer not null,\n"
     203                 :            :   "        executable_p integer not null,\n"
     204                 :            :   "        file integer not null,\n"
     205                 :            :   "        mtime integer not null,\n"
     206                 :            :   "        content integer not null,\n"
     207                 :            :   "        foreign key (file) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     208                 :            :   "        foreign key (content) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     209                 :            :   "        foreign key (buildid) references " BUILDIDS "_buildids(id) on update cascade on delete cascade,\n"
     210                 :            :   "        primary key (buildid, debuginfo_p, executable_p, file, content, mtime)\n"
     211                 :            :   "        ) " WITHOUT_ROWID ";\n"
     212                 :            :   // Index for faster delete by archive file identifier
     213                 :            :   "create index if not exists " BUILDIDS "_r_de_idx on " BUILDIDS "_r_de (file, mtime);\n"
     214                 :            :   "create table if not exists " BUILDIDS "_r_sref (\n" // outgoing dwarf sourcefile references from rpm
     215                 :            :   "        buildid integer not null,\n"
     216                 :            :   "        artifactsrc integer not null,\n"
     217                 :            :   "        foreign key (artifactsrc) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     218                 :            :   "        foreign key (buildid) references " BUILDIDS "_buildids(id) on update cascade on delete cascade,\n"
     219                 :            :   "        primary key (buildid, artifactsrc)\n"
     220                 :            :   "        ) " WITHOUT_ROWID ";\n"
     221                 :            :   "create table if not exists " BUILDIDS "_r_sdef (\n" // rpm contents that may satisfy sref
     222                 :            :   "        file integer not null,\n"
     223                 :            :   "        mtime integer not null,\n"
     224                 :            :   "        content integer not null,\n"
     225                 :            :   "        foreign key (file) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     226                 :            :   "        foreign key (content) references " BUILDIDS "_files(id) on update cascade on delete cascade,\n"
     227                 :            :   "        primary key (content, file, mtime)\n"
     228                 :            :   "        ) " WITHOUT_ROWID ";\n"
     229                 :            :   // create views to glue together some of the above tables, for webapi D queries
     230                 :            :   "create view if not exists " BUILDIDS "_query_d as \n"
     231                 :            :   "select\n"
     232                 :            :   "        b.hex as buildid, n.mtime, 'F' as sourcetype, f0.name as source0, n.mtime as mtime, null as source1\n"
     233                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_f_de n\n"
     234                 :            :   "        where b.id = n.buildid and f0.id = n.file and n.debuginfo_p = 1\n"
     235                 :            :   "union all select\n"
     236                 :            :   "        b.hex as buildid, n.mtime, 'R' as sourcetype, f0.name as source0, n.mtime as mtime, f1.name as source1\n"
     237                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_files f1, " BUILDIDS "_r_de n\n"
     238                 :            :   "        where b.id = n.buildid and f0.id = n.file and f1.id = n.content and n.debuginfo_p = 1\n"
     239                 :            :   ";"
     240                 :            :   // ... and for E queries
     241                 :            :   "create view if not exists " BUILDIDS "_query_e as \n"
     242                 :            :   "select\n"
     243                 :            :   "        b.hex as buildid, n.mtime, 'F' as sourcetype, f0.name as source0, n.mtime as mtime, null as source1\n"
     244                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_f_de n\n"
     245                 :            :   "        where b.id = n.buildid and f0.id = n.file and n.executable_p = 1\n"
     246                 :            :   "union all select\n"
     247                 :            :   "        b.hex as buildid, n.mtime, 'R' as sourcetype, f0.name as source0, n.mtime as mtime, f1.name as source1\n"
     248                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_files f1, " BUILDIDS "_r_de n\n"
     249                 :            :   "        where b.id = n.buildid and f0.id = n.file and f1.id = n.content and n.executable_p = 1\n"
     250                 :            :   ";"
     251                 :            :   // ... and for S queries
     252                 :            :   "create view if not exists " BUILDIDS "_query_s as \n"
     253                 :            :   "select\n"
     254                 :            :   "        b.hex as buildid, fs.name as artifactsrc, 'F' as sourcetype, f0.name as source0, n.mtime as mtime, null as source1, null as source0ref\n"
     255                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_files fs, " BUILDIDS "_f_s n\n"
     256                 :            :   "        where b.id = n.buildid and f0.id = n.file and fs.id = n.artifactsrc\n"
     257                 :            :   "union all select\n"
     258                 :            :   "        b.hex as buildid, f1.name as artifactsrc, 'R' as sourcetype, f0.name as source0, sd.mtime as mtime, f1.name as source1, fsref.name as source0ref\n"
     259                 :            :   "        from " BUILDIDS "_buildids b, " BUILDIDS "_files f0, " BUILDIDS "_files f1, " BUILDIDS "_files fsref, "
     260                 :            :   "        " BUILDIDS "_r_sdef sd, " BUILDIDS "_r_sref sr, " BUILDIDS "_r_de sde\n"
     261                 :            :   "        where b.id = sr.buildid and f0.id = sd.file and fsref.id = sde.file and f1.id = sd.content\n"
     262                 :            :   "        and sr.artifactsrc = sd.content and sde.buildid = sr.buildid\n"
     263                 :            :   ";"
     264                 :            :   // and for startup overview counts
     265                 :            :   "drop view if exists " BUILDIDS "_stats;\n"
     266                 :            :   "create view if not exists " BUILDIDS "_stats as\n"
     267                 :            :   "          select 'file d/e' as label,count(*) as quantity from " BUILDIDS "_f_de\n"
     268                 :            :   "union all select 'file s',count(*) from " BUILDIDS "_f_s\n"
     269                 :            :   "union all select 'archive d/e',count(*) from " BUILDIDS "_r_de\n"
     270                 :            :   "union all select 'archive sref',count(*) from " BUILDIDS "_r_sref\n"
     271                 :            :   "union all select 'archive sdef',count(*) from " BUILDIDS "_r_sdef\n"
     272                 :            :   "union all select 'buildids',count(*) from " BUILDIDS "_buildids\n"
     273                 :            :   "union all select 'filenames',count(*) from " BUILDIDS "_files\n"
     274                 :            :   "union all select 'files scanned (#)',count(*) from " BUILDIDS "_file_mtime_scanned\n"
     275                 :            :   "union all select 'files scanned (mb)',coalesce(sum(size)/1024/1024,0) from " BUILDIDS "_file_mtime_scanned\n"
     276                 :            : #if SQLITE_VERSION_NUMBER >= 3016000
     277                 :            :   "union all select 'index db size (mb)',page_count*page_size/1024/1024 as size FROM pragma_page_count(), pragma_page_size()\n"
     278                 :            : #endif
     279                 :            :   ";\n"
     280                 :            : 
     281                 :            : // schema change history & garbage collection
     282                 :            : //
     283                 :            : // XXX: we could have migration queries here to bring prior-schema
     284                 :            : // data over instead of just dropping it.
     285                 :            : //
     286                 :            : // buildids9: widen the mtime_scanned table
     287                 :            :   "" // <<< we are here
     288                 :            : // buildids8: slim the sref table
     289                 :            :   "drop table if exists buildids8_f_de;\n"
     290                 :            :   "drop table if exists buildids8_f_s;\n"
     291                 :            :   "drop table if exists buildids8_r_de;\n"
     292                 :            :   "drop table if exists buildids8_r_sref;\n"
     293                 :            :   "drop table if exists buildids8_r_sdef;\n"
     294                 :            :   "drop table if exists buildids8_file_mtime_scanned;\n"
     295                 :            :   "drop table if exists buildids8_files;\n"
     296                 :            :   "drop table if exists buildids8_buildids;\n"
     297                 :            : // buildids7: separate _norm table into dense subtype tables
     298                 :            :   "drop table if exists buildids7_f_de;\n"
     299                 :            :   "drop table if exists buildids7_f_s;\n"
     300                 :            :   "drop table if exists buildids7_r_de;\n"
     301                 :            :   "drop table if exists buildids7_r_sref;\n"
     302                 :            :   "drop table if exists buildids7_r_sdef;\n"
     303                 :            :   "drop table if exists buildids7_file_mtime_scanned;\n"
     304                 :            :   "drop table if exists buildids7_files;\n"
     305                 :            :   "drop table if exists buildids7_buildids;\n"
     306                 :            : // buildids6: drop bolo/rfolo again, represent sources / rpmcontents in main table
     307                 :            :   "drop table if exists buildids6_norm;\n"
     308                 :            :   "drop table if exists buildids6_files;\n"
     309                 :            :   "drop table if exists buildids6_buildids;\n"
     310                 :            :   "drop view if exists buildids6;\n"
     311                 :            : // buildids5: redefine srcfile1 column to be '.'-less (for rpms)
     312                 :            :   "drop table if exists buildids5_norm;\n"
     313                 :            :   "drop table if exists buildids5_files;\n"
     314                 :            :   "drop table if exists buildids5_buildids;\n"
     315                 :            :   "drop table if exists buildids5_bolo;\n"
     316                 :            :   "drop table if exists buildids5_rfolo;\n"
     317                 :            :   "drop view if exists buildids5;\n"
     318                 :            : // buildids4: introduce rpmfile RFOLO
     319                 :            :   "drop table if exists buildids4_norm;\n"
     320                 :            :   "drop table if exists buildids4_files;\n"
     321                 :            :   "drop table if exists buildids4_buildids;\n"
     322                 :            :   "drop table if exists buildids4_bolo;\n"
     323                 :            :   "drop table if exists buildids4_rfolo;\n"
     324                 :            :   "drop view if exists buildids4;\n"
     325                 :            : // buildids3*: split out srcfile BOLO
     326                 :            :   "drop table if exists buildids3_norm;\n"
     327                 :            :   "drop table if exists buildids3_files;\n"
     328                 :            :   "drop table if exists buildids3_buildids;\n"
     329                 :            :   "drop table if exists buildids3_bolo;\n"
     330                 :            :   "drop view if exists buildids3;\n"
     331                 :            : // buildids2: normalized buildid and filenames into interning tables;
     332                 :            :   "drop table if exists buildids2_norm;\n"
     333                 :            :   "drop table if exists buildids2_files;\n"
     334                 :            :   "drop table if exists buildids2_buildids;\n"
     335                 :            :   "drop view if exists buildids2;\n"
     336                 :            :   // buildids1: made buildid and artifacttype NULLable, to represent cached-negative
     337                 :            : //           lookups from sources, e.g. files or rpms that contain no buildid-indexable content
     338                 :            :   "drop table if exists buildids1;\n"
     339                 :            : // buildids: original
     340                 :            :   "drop table if exists buildids;\n"
     341                 :            :   ;
     342                 :            : 
     343                 :            : static const char DEBUGINFOD_SQLITE_CLEANUP_DDL[] =
     344                 :            :   "pragma wal_checkpoint = truncate;\n" // clean out any preexisting wal file
     345                 :            :   ;
     346                 :            : 
     347                 :            : 
     348                 :            : 
     349                 :            : 
     350                 :            : /* Name and version of program.  */
     351                 :            : ARGP_PROGRAM_VERSION_HOOK_DEF = print_version;
     352                 :            : 
     353                 :            : /* Bug report address.  */
     354                 :            : ARGP_PROGRAM_BUG_ADDRESS_DEF = PACKAGE_BUGREPORT;
     355                 :            : 
     356                 :            : /* Definitions of arguments for argp functions.  */
     357                 :            : static const struct argp_option options[] =
     358                 :            :   {
     359                 :            :    { NULL, 0, NULL, 0, "Scanners:", 1 },
     360                 :            :    { "scan-file-dir", 'F', NULL, 0, "Enable ELF/DWARF file scanning.", 0 },
     361                 :            :    { "scan-rpm-dir", 'R', NULL, 0, "Enable RPM scanning.", 0 },
     362                 :            :    { "scan-deb-dir", 'U', NULL, 0, "Enable DEB scanning.", 0 },
     363                 :            :    { "scan-archive", 'Z', "EXT=CMD", 0, "Enable arbitrary archive scanning.", 0 },
     364                 :            :    // "source-oci-imageregistry"  ...
     365                 :            : 
     366                 :            :    { NULL, 0, NULL, 0, "Options:", 2 },
     367                 :            :    { "logical", 'L', NULL, 0, "Follow symlinks, default=ignore.", 0 },
     368                 :            :    { "rescan-time", 't', "SECONDS", 0, "Number of seconds to wait between rescans, 0=disable.", 0 },
     369                 :            :    { "groom-time", 'g', "SECONDS", 0, "Number of seconds to wait between database grooming, 0=disable.", 0 },
     370                 :            :    { "maxigroom", 'G', NULL, 0, "Run a complete database groom/shrink pass at startup.", 0 },
     371                 :            :    { "concurrency", 'c', "NUM", 0, "Limit scanning thread concurrency to NUM, default=#CPUs.", 0 },
     372                 :            :    { "connection-pool", 'C', "NUM", OPTION_ARG_OPTIONAL,
     373                 :            :      "Use webapi connection pool with NUM threads, default=unlim.", 0 },
     374                 :            :    { "include", 'I', "REGEX", 0, "Include files matching REGEX, default=all.", 0 },
     375                 :            :    { "exclude", 'X', "REGEX", 0, "Exclude files matching REGEX, default=none.", 0 },
     376                 :            :    { "port", 'p', "NUM", 0, "HTTP port to listen on, default 8002.", 0 },
     377                 :            :    { "database", 'd', "FILE", 0, "Path to sqlite database.", 0 },
     378                 :            :    { "ddl", 'D', "SQL", 0, "Apply extra sqlite ddl/pragma to connection.", 0 },
     379                 :            :    { "verbose", 'v', NULL, 0, "Increase verbosity.", 0 },
     380                 :            :    { "regex-groom", 'r', NULL, 0,"Uses regexes from -I and -X arguments to groom the database.",0},
     381                 :            : #define ARGP_KEY_FDCACHE_FDS 0x1001
     382                 :            :    { "fdcache-fds", ARGP_KEY_FDCACHE_FDS, "NUM", 0, "Maximum number of archive files to keep in fdcache.", 0 },
     383                 :            : #define ARGP_KEY_FDCACHE_MBS 0x1002
     384                 :            :    { "fdcache-mbs", ARGP_KEY_FDCACHE_MBS, "MB", 0, "Maximum total size of archive file fdcache.", 0 },
     385                 :            : #define ARGP_KEY_FDCACHE_PREFETCH 0x1003
     386                 :            :    { "fdcache-prefetch", ARGP_KEY_FDCACHE_PREFETCH, "NUM", 0, "Number of archive files to prefetch into fdcache.", 0 },
     387                 :            : #define ARGP_KEY_FDCACHE_MINTMP 0x1004
     388                 :            :    { "fdcache-mintmp", ARGP_KEY_FDCACHE_MINTMP, "NUM", 0, "Minimum free space% on tmpdir.", 0 },
     389                 :            : #define ARGP_KEY_FDCACHE_PREFETCH_MBS 0x1005
     390                 :            :    { "fdcache-prefetch-mbs", ARGP_KEY_FDCACHE_PREFETCH_MBS, "MB", 0,"Megabytes allocated to the \
     391                 :            :       prefetch cache.", 0},
     392                 :            : #define ARGP_KEY_FDCACHE_PREFETCH_FDS 0x1006
     393                 :            :    { "fdcache-prefetch-fds", ARGP_KEY_FDCACHE_PREFETCH_FDS, "NUM", 0,"Number of files allocated to the \
     394                 :            :       prefetch cache.", 0},
     395                 :            : #define ARGP_KEY_FORWARDED_TTL_LIMIT 0x1007
     396                 :            :    {"forwarded-ttl-limit", ARGP_KEY_FORWARDED_TTL_LIMIT, "NUM", 0, "Limit of X-Forwarded-For hops, default 8.", 0},
     397                 :            : #define ARGP_KEY_PASSIVE 0x1008
     398                 :            :    { "passive", ARGP_KEY_PASSIVE, NULL, 0, "Do not scan or groom, read-only database.", 0 },
     399                 :            : #define ARGP_KEY_DISABLE_SOURCE_SCAN 0x1009
     400                 :            :    { "disable-source-scan", ARGP_KEY_DISABLE_SOURCE_SCAN, NULL, 0, "Do not scan dwarf source info.", 0 },
     401                 :            :    { NULL, 0, NULL, 0, NULL, 0 },
     402                 :            :   };
     403                 :            : 
     404                 :            : /* Short description of program.  */
     405                 :            : static const char doc[] = "Serve debuginfo-related content across HTTP from files under PATHs.";
     406                 :            : 
     407                 :            : /* Strings for arguments in help texts.  */
     408                 :            : static const char args_doc[] = "[PATH ...]";
     409                 :            : 
     410                 :            : /* Prototype for option handler.  */
     411                 :            : static error_t parse_opt (int key, char *arg, struct argp_state *state);
     412                 :            : 
     413                 :            : static unsigned default_concurrency();
     414                 :            : 
     415                 :            : /* Data structure to communicate with argp functions.  */
     416                 :            : static struct argp argp =
     417                 :            :   {
     418                 :            :    options, parse_opt, args_doc, doc, NULL, NULL, NULL
     419                 :            :   };
     420                 :            : 
     421                 :            : 
     422                 :            : static string db_path;
     423                 :            : static sqlite3 *db;  // single connection, serialized across all our threads!
     424                 :            : static sqlite3 *dbq; // webapi query-servicing readonly connection, serialized ditto!
     425                 :            : static unsigned verbose;
     426                 :            : static volatile sig_atomic_t interrupted = 0;
     427                 :            : static volatile sig_atomic_t forced_rescan_count = 0;
     428                 :            : static volatile sig_atomic_t sigusr1 = 0;
     429                 :            : static volatile sig_atomic_t forced_groom_count = 0;
     430                 :            : static volatile sig_atomic_t sigusr2 = 0;
     431                 :            : static unsigned http_port = 8002;
     432                 :            : static unsigned rescan_s = 300;
     433                 :            : static unsigned groom_s = 86400;
     434                 :            : static bool maxigroom = false;
     435                 :            : static unsigned concurrency = default_concurrency();
     436                 :            : static int connection_pool = 0;
     437                 :            : static set<string> source_paths;
     438                 :            : static bool scan_files = false;
     439                 :            : static map<string,string> scan_archives;
     440                 :            : static vector<string> extra_ddl;
     441                 :            : static regex_t file_include_regex;
     442                 :            : static regex_t file_exclude_regex;
     443                 :            : static bool regex_groom = false;
     444                 :            : static bool traverse_logical;
     445                 :            : static long fdcache_fds;
     446                 :            : static long fdcache_mbs;
     447                 :            : static long fdcache_prefetch;
     448                 :            : static long fdcache_mintmp;
     449                 :            : static long fdcache_prefetch_mbs;
     450                 :            : static long fdcache_prefetch_fds;
     451                 :            : static unsigned forwarded_ttl_limit = 8;
     452                 :            : static bool scan_source_info = true;
     453                 :            : static string tmpdir;
     454                 :            : static bool passive_p = false;
     455                 :            : 
     456                 :            : static void set_metric(const string& key, double value);
     457                 :            : // static void inc_metric(const string& key);
     458                 :            : static void set_metric(const string& metric,
     459                 :            :                        const string& lname, const string& lvalue,
     460                 :            :                        double value);
     461                 :            : static void inc_metric(const string& metric,
     462                 :            :                        const string& lname, const string& lvalue);
     463                 :            : static void add_metric(const string& metric,
     464                 :            :                        const string& lname, const string& lvalue,
     465                 :            :                        double value);
     466                 :            : static void inc_metric(const string& metric,
     467                 :            :                        const string& lname, const string& lvalue,
     468                 :            :                        const string& rname, const string& rvalue);
     469                 :            : static void add_metric(const string& metric,
     470                 :            :                        const string& lname, const string& lvalue,
     471                 :            :                        const string& rname, const string& rvalue,                       
     472                 :            :                        double value);
     473                 :            : 
     474                 :            : 
     475                 :            : class tmp_inc_metric { // a RAII style wrapper for exception-safe scoped increment & decrement
     476                 :            :   string m, n, v;
     477                 :            : public:
     478                 :        958 :   tmp_inc_metric(const string& mname, const string& lname, const string& lvalue):
     479   [ +  -  +  -  :        958 :     m(mname), n(lname), v(lvalue)
          -  -  -  -  -  
                      - ]
     480                 :            :   {
     481         [ +  - ]:        958 :     add_metric (m, n, v, 1);
     482                 :        958 :   }
     483                 :        958 :   ~tmp_inc_metric()
     484   [ -  +  -  +  :        958 :   {
                   -  + ]
     485                 :        958 :     add_metric (m, n, v, -1);
     486                 :        958 :   }
     487                 :            : };
     488                 :            : 
     489                 :            : class tmp_ms_metric { // a RAII style wrapper for exception-safe scoped timing
     490                 :            :   string m, n, v;
     491                 :            :   struct timespec ts_start;
     492                 :            : public:
     493                 :      17096 :   tmp_ms_metric(const string& mname, const string& lname, const string& lvalue):
     494   [ +  -  +  -  :      17096 :     m(mname), n(lname), v(lvalue)
             -  -  -  - ]
     495                 :            :   {
     496                 :      17089 :     clock_gettime (CLOCK_MONOTONIC, & ts_start);
     497                 :      17098 :   }
     498                 :      17097 :   ~tmp_ms_metric()
     499   [ -  +  -  + ]:      17099 :   {
     500                 :      17097 :     struct timespec ts_end;
     501                 :      17097 :     clock_gettime (CLOCK_MONOTONIC, & ts_end);
     502                 :      17096 :     double deltas = (ts_end.tv_sec - ts_start.tv_sec)
     503                 :      17096 :       + (ts_end.tv_nsec - ts_start.tv_nsec)/1.e9;
     504                 :            : 
     505         [ +  - ]:      17096 :     add_metric (m + "_milliseconds_sum", n, v, (deltas*1000.0));
     506   [ +  -  +  + ]:      34198 :     inc_metric (m + "_milliseconds_count", n, v);
     507                 :      17099 :   }
     508                 :            : };
     509                 :            : 
     510                 :            : 
     511                 :            : /* Handle program arguments.  */
     512                 :            : static error_t
     513                 :        522 : parse_opt (int key, char *arg,
     514                 :            :            struct argp_state *state __attribute__ ((unused)))
     515                 :            : {
     516                 :        522 :   int rc;
     517   [ +  +  +  +  :        522 :   switch (key)
          +  +  +  +  -  
          +  +  -  -  +  
          +  +  +  +  +  
          +  +  +  +  +  
             +  +  -  + ]
     518                 :            :     {
     519                 :        131 :     case 'v': verbose ++; break;
     520                 :         34 :     case 'd':
     521                 :            :       /* When using the in-memory database make sure it is shareable,
     522                 :            :          so we can open it twice as read/write and read-only.  */
     523         [ +  + ]:         34 :       if (strcmp (arg, ":memory:") == 0)
     524                 :        522 :         db_path = "file::memory:?cache=shared";
     525                 :            :       else
     526         [ +  - ]:         54 :         db_path = string(arg);
     527                 :            :       break;
     528                 :         34 :     case 'p': http_port = (unsigned) atoi(arg);
     529         [ -  + ]:         34 :       if (http_port == 0 || http_port > 65535)
     530                 :          0 :         argp_failure(state, 1, EINVAL, "port number");
     531                 :            :       break;
     532                 :         23 :     case 'F': scan_files = true; break;
     533                 :          9 :     case 'R':
     534   [ +  -  +  -  :          9 :       scan_archives[".rpm"]="cat"; // libarchive groks rpm natively
                   -  + ]
     535                 :          9 :       break;
     536                 :          7 :     case 'U':
     537   [ +  -  +  -  :          7 :       scan_archives[".deb"]="(bsdtar -O -x -f - data.tar\\*)<";
                   -  + ]
     538   [ +  -  +  -  :          7 :       scan_archives[".ddeb"]="(bsdtar -O -x -f - data.tar\\*)<";
                   -  + ]
     539   [ +  -  +  -  :          7 :       scan_archives[".ipk"]="(bsdtar -O -x -f - data.tar\\*)<";
                   -  + ]
     540                 :            :       // .udeb too?
     541                 :          7 :       break;
     542                 :         15 :     case 'Z':
     543                 :         15 :       {
     544         [ -  + ]:         15 :         char* extension = strchr(arg, '=');
     545         [ -  + ]:         15 :         if (arg[0] == '\0')
     546                 :          0 :           argp_failure(state, 1, EINVAL, "missing EXT");
     547         [ +  + ]:         15 :         else if (extension)
     548   [ +  -  +  -  :         16 :           scan_archives[string(arg, (extension-arg))]=string(extension+1);
          -  +  -  +  -  
                      - ]
     549                 :            :         else
     550   [ +  -  +  -  :          7 :           scan_archives[string(arg)]=string("cat");
          -  +  -  +  -  
                      - ]
     551                 :            :       }
     552                 :            :       break;
     553                 :          4 :     case 'L':
     554         [ -  + ]:          4 :       if (passive_p)
     555                 :          0 :         argp_failure(state, 1, EINVAL, "-L option inconsistent with passive mode");
     556                 :          4 :       traverse_logical = true;
     557                 :          4 :       break;
     558                 :          0 :     case 'D':
     559         [ #  # ]:          0 :       if (passive_p)
     560                 :          0 :         argp_failure(state, 1, EINVAL, "-D option inconsistent with passive mode");
     561         [ #  # ]:          0 :       extra_ddl.push_back(string(arg));
     562                 :          0 :       break;
     563                 :         27 :     case 't':
     564         [ -  + ]:         27 :       if (passive_p)
     565                 :          0 :         argp_failure(state, 1, EINVAL, "-t option inconsistent with passive mode");
     566                 :         27 :       rescan_s = (unsigned) atoi(arg);
     567                 :         27 :       break;
     568                 :         27 :     case 'g':
     569         [ -  + ]:         27 :       if (passive_p)
     570                 :          0 :         argp_failure(state, 1, EINVAL, "-g option inconsistent with passive mode");
     571                 :         27 :       groom_s = (unsigned) atoi(arg);
     572                 :         27 :       break;
     573                 :          0 :     case 'G':
     574         [ #  # ]:          0 :       if (passive_p)
     575                 :          0 :         argp_failure(state, 1, EINVAL, "-G option inconsistent with passive mode");
     576                 :          0 :       maxigroom = true;
     577                 :          0 :       break;
     578                 :          0 :     case 'c':
     579         [ #  # ]:          0 :       if (passive_p)
     580                 :          0 :         argp_failure(state, 1, EINVAL, "-c option inconsistent with passive mode");
     581                 :          0 :       concurrency = (unsigned) atoi(arg);
     582         [ #  # ]:          0 :       if (concurrency < 1) concurrency = 1;
     583                 :            :       break;
     584                 :          3 :     case 'C':
     585         [ +  + ]:          3 :       if (arg)
     586                 :            :         {
     587                 :          2 :           connection_pool = atoi(arg);
     588         [ -  + ]:          2 :           if (connection_pool < 2)
     589                 :          0 :             argp_failure(state, 1, EINVAL, "-C NUM minimum 2");
     590                 :            :         }
     591                 :            :       break;
     592                 :          1 :     case 'I':
     593                 :            :       // NB: no problem with unconditional free here - an earlier failed regcomp would exit program
     594         [ -  + ]:          1 :       if (passive_p)
     595                 :          0 :         argp_failure(state, 1, EINVAL, "-I option inconsistent with passive mode");
     596                 :          1 :       regfree (&file_include_regex);
     597                 :          1 :       rc = regcomp (&file_include_regex, arg, REG_EXTENDED|REG_NOSUB);
     598         [ -  + ]:          1 :       if (rc != 0)
     599                 :          0 :         argp_failure(state, 1, EINVAL, "regular expression");
     600                 :            :       break;
     601                 :          1 :     case 'X':
     602         [ -  + ]:          1 :       if (passive_p)
     603                 :          0 :         argp_failure(state, 1, EINVAL, "-X option inconsistent with passive mode");
     604                 :          1 :       regfree (&file_exclude_regex);
     605                 :          1 :       rc = regcomp (&file_exclude_regex, arg, REG_EXTENDED|REG_NOSUB);
     606         [ -  + ]:          1 :       if (rc != 0)
     607                 :          0 :         argp_failure(state, 1, EINVAL, "regular expression");
     608                 :            :       break;
     609                 :          1 :     case 'r':
     610         [ -  + ]:          1 :       if (passive_p)
     611                 :          0 :         argp_failure(state, 1, EINVAL, "-r option inconsistent with passive mode");
     612                 :          1 :       regex_groom = true;
     613                 :          1 :       break;
     614                 :          5 :     case ARGP_KEY_FDCACHE_FDS:
     615                 :          5 :       fdcache_fds = atol (arg);
     616                 :          5 :       break;
     617                 :          2 :     case ARGP_KEY_FDCACHE_MBS:
     618                 :          2 :       fdcache_mbs = atol (arg);
     619                 :          2 :       break;
     620                 :          1 :     case ARGP_KEY_FDCACHE_PREFETCH:
     621                 :          1 :       fdcache_prefetch = atol (arg);
     622                 :          1 :       break;
     623                 :          1 :     case ARGP_KEY_FDCACHE_MINTMP:
     624                 :          1 :       fdcache_mintmp = atol (arg);
     625         [ -  + ]:          1 :       if( fdcache_mintmp > 100 || fdcache_mintmp < 0 )
     626                 :          0 :         argp_failure(state, 1, EINVAL, "fdcache mintmp percent");
     627                 :            :       break;
     628                 :          2 :     case ARGP_KEY_FORWARDED_TTL_LIMIT:
     629                 :          2 :       forwarded_ttl_limit = (unsigned) atoi(arg);
     630                 :          2 :       break;
     631                 :         46 :     case ARGP_KEY_ARG:
     632         [ +  - ]:         92 :       source_paths.insert(string(arg));
     633                 :         46 :       break;
     634                 :          5 :     case ARGP_KEY_FDCACHE_PREFETCH_FDS:
     635                 :          5 :       fdcache_prefetch_fds = atol(arg);
     636         [ -  + ]:          5 :       if ( fdcache_prefetch_fds < 0)
     637                 :          0 :         argp_failure(state, 1, EINVAL, "fdcache prefetch fds");
     638                 :            :       break;
     639                 :          1 :     case ARGP_KEY_FDCACHE_PREFETCH_MBS:
     640                 :          1 :       fdcache_prefetch_mbs = atol(arg);
     641         [ -  + ]:          1 :       if ( fdcache_prefetch_mbs < 0)
     642                 :          0 :         argp_failure(state, 1, EINVAL, "fdcache prefetch mbs");
     643                 :            :       break;
     644                 :          1 :     case ARGP_KEY_PASSIVE:
     645                 :          1 :       passive_p = true;
     646         [ +  - ]:          1 :       if (source_paths.size() > 0
     647         [ +  - ]:          1 :           || maxigroom
     648         [ +  - ]:          1 :           || extra_ddl.size() > 0
     649   [ +  -  -  + ]:          2 :           || traverse_logical)
     650                 :            :         // other conflicting options tricky to check
     651                 :          0 :         argp_failure(state, 1, EINVAL, "inconsistent options with passive mode");
     652                 :            :       break;
     653                 :          0 :     case ARGP_KEY_DISABLE_SOURCE_SCAN:
     654                 :          0 :       scan_source_info = false;
     655                 :          0 :       break;
     656                 :            :       // case 'h': argp_state_help (state, stderr, ARGP_HELP_LONG|ARGP_HELP_EXIT_OK);
     657                 :            :     default: return ARGP_ERR_UNKNOWN;
     658                 :            :     }
     659                 :            : 
     660                 :            :   return 0;
     661                 :            : }
     662                 :            : 
     663                 :            : 
     664                 :            : ////////////////////////////////////////////////////////////////////////
     665                 :            : 
     666                 :            : 
     667                 :            : static void add_mhd_response_header (struct MHD_Response *r,
     668                 :            :                                      const char *h, const char *v);
     669                 :            : 
     670                 :            : // represent errors that may get reported to an ostream and/or a libmicrohttpd connection
     671                 :            : 
     672                 :          4 : struct reportable_exception
     673                 :            : {
     674                 :            :   int code;
     675                 :            :   string message;
     676                 :            : 
     677   [ -  -  +  -  :        127 :   reportable_exception(int c, const string& m): code(c), message(m) {}
          -  -  +  -  +  
                      - ]
     678   [ -  -  +  -  :        147 :   reportable_exception(const string& m): code(503), message(m) {}
          -  -  +  -  -  
          -  -  -  +  -  
          -  -  -  -  -  
             -  +  -  -  
                      - ]
     679                 :            :   reportable_exception(): code(503), message() {}
     680                 :            : 
     681                 :            :   void report(ostream& o) const; // defined under obatched() class below
     682                 :            : 
     683                 :        243 :   MHD_RESULT mhd_send_response(MHD_Connection* c) const {
     684                 :        486 :     MHD_Response* r = MHD_create_response_from_buffer (message.size(),
     685                 :        243 :                                                        (void*) message.c_str(),
     686                 :            :                                                        MHD_RESPMEM_MUST_COPY);
     687                 :        243 :     add_mhd_response_header (r, "Content-Type", "text/plain");
     688                 :        243 :     MHD_RESULT rc = MHD_queue_response (c, code, r);
     689                 :        243 :     MHD_destroy_response (r);
     690                 :        243 :     return rc;
     691                 :            :   }
     692                 :            : };
     693                 :            : 
     694                 :            : 
     695                 :            : struct sqlite_exception: public reportable_exception
     696                 :            : {
     697                 :          0 :   sqlite_exception(int rc, const string& msg):
     698   [ #  #  #  #  :          0 :     reportable_exception(string("sqlite3 error: ") + msg + ": " + string(sqlite3_errstr(rc) ?: "?")) {
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
     699   [ #  #  #  #  :          0 :     inc_metric("error_count","sqlite3",sqlite3_errstr(rc));
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
     700                 :          0 :   }
     701                 :            : };
     702                 :            : 
     703   [ +  -  -  - ]:          2 : struct libc_exception: public reportable_exception
     704                 :            : {
     705                 :        141 :   libc_exception(int rc, const string& msg):
     706   [ -  +  +  -  :        564 :     reportable_exception(string("libc error: ") + msg + ": " + string(strerror(rc) ?: "?")) {
          +  -  +  -  +  
          -  +  -  -  +  
          -  +  -  +  +  
          -  -  -  -  -  
             -  -  -  - ]
     707   [ +  -  +  -  :        423 :     inc_metric("error_count","libc",strerror(rc));
          +  -  +  -  -  
          +  +  -  -  -  
             -  -  -  - ]
     708                 :        141 :   }
     709                 :            : };
     710                 :            : 
     711                 :            : 
     712                 :            : struct archive_exception: public reportable_exception
     713                 :            : {
     714                 :          0 :   archive_exception(const string& msg):
     715   [ #  #  #  #  :          0 :     reportable_exception(string("libarchive error: ") + msg) {
          #  #  #  #  #  
                      # ]
     716   [ #  #  #  #  :          0 :       inc_metric("error_count","libarchive",msg);
          #  #  #  #  #  
                #  #  # ]
     717                 :          0 :   }
     718                 :          0 :   archive_exception(struct archive* a, const string& msg):
     719   [ #  #  #  #  :          0 :     reportable_exception(string("libarchive error: ") + msg + ": " + string(archive_error_string(a) ?: "?")) {
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
     720   [ #  #  #  #  :          0 :     inc_metric("error_count","libarchive",msg + ": " + string(archive_error_string(a) ?: "?"));
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
             #  #  #  #  
                      # ]
     721                 :          0 :   }
     722                 :            : };
     723                 :            : 
     724                 :            : 
     725                 :            : struct elfutils_exception: public reportable_exception
     726                 :            : {
     727                 :          0 :   elfutils_exception(int rc, const string& msg):
     728   [ #  #  #  #  :          0 :     reportable_exception(string("elfutils error: ") + msg + ": " + string(elf_errmsg(rc) ?: "?")) {
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
     729   [ #  #  #  #  :          0 :     inc_metric("error_count","elfutils",elf_errmsg(rc));
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
     730                 :          0 :   }
     731                 :            : };
     732                 :            : 
     733                 :            : 
     734                 :            : ////////////////////////////////////////////////////////////////////////
     735                 :            : 
     736                 :            : template <typename Payload>
     737                 :            : class workq
     738                 :            : {
     739                 :            :   set<Payload> q; // eliminate duplicates
     740                 :            :   mutex mtx;
     741                 :            :   condition_variable cv;
     742                 :            :   bool dead;
     743                 :            :   unsigned idlers;   // number of threads busy with wait_idle / done_idle
     744                 :            :   unsigned fronters; // number of threads busy with wait_front / done_front
     745                 :            : 
     746                 :            : public:
     747                 :         34 :   workq() { dead = false; idlers = 0; fronters = 0; }
     748                 :         34 :   ~workq() {}
     749                 :            : 
     750                 :        452 :   void push_back(const Payload& p)
     751                 :            :   {
     752                 :        452 :     unique_lock<mutex> lock(mtx);
     753         [ +  - ]:        452 :     q.insert (p);
     754   [ +  -  +  -  :        904 :     set_metric("thread_work_pending","role","scan", q.size());
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
     755         [ +  - ]:        452 :     cv.notify_all();
     756                 :        452 :   }
     757                 :            : 
     758                 :            :   // kill this workqueue, wake up all idlers / scanners
     759                 :         34 :   void nuke() {
     760                 :         34 :     unique_lock<mutex> lock(mtx);
     761                 :            :     // optional: q.clear();
     762                 :         34 :     dead = true;
     763         [ +  - ]:         34 :     cv.notify_all();
     764                 :         34 :   }
     765                 :            : 
     766                 :            :   // clear the workqueue, when scanning is interrupted with USR2
     767                 :          0 :   void clear() {
     768                 :          0 :     unique_lock<mutex> lock(mtx);
     769                 :          0 :     q.clear();
     770   [ #  #  #  #  :          0 :     set_metric("thread_work_pending","role","scan", q.size());
          #  #  #  #  #  
          #  #  #  #  #  
             #  #  #  # ]
     771                 :            :     // NB: there may still be some live fronters
     772         [ #  # ]:          0 :     cv.notify_all(); // maybe wake up waiting idlers
     773                 :          0 :   }
     774                 :            : 
     775                 :            :   // block this scanner thread until there is work to do and no active idler
     776                 :        572 :   bool wait_front (Payload& p)
     777                 :            :   {
     778                 :       1144 :     unique_lock<mutex> lock(mtx);
     779   [ +  +  +  +  :       2651 :     while (!dead && (q.size() == 0 || idlers > 0))
                   +  + ]
     780                 :       2079 :       cv.wait(lock);
     781         [ +  + ]:        572 :     if (dead)
     782                 :            :       return false;
     783                 :            :     else
     784                 :            :       {
     785         [ +  - ]:        452 :         p = * q.begin();
     786                 :        452 :         q.erase (q.begin());
     787                 :        452 :         fronters ++; // prevent idlers from starting awhile, even if empty q
     788   [ +  -  +  -  :        904 :         set_metric("thread_work_pending","role","scan", q.size());
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
     789                 :            :         // NB: don't wake up idlers yet!  The consumer is busy
     790                 :            :         // processing this element until it calls done_front().
     791                 :        452 :         return true;
     792                 :            :       }
     793                 :            :   }
     794                 :            : 
     795                 :            :   // notify waitq that scanner thread is done with that last item
     796                 :        452 :   void done_front ()
     797                 :            :   {
     798                 :        452 :     unique_lock<mutex> lock(mtx);
     799                 :        452 :     fronters --;
     800   [ +  +  +  + ]:        452 :     if (q.size() == 0 && fronters == 0)
     801                 :         65 :       cv.notify_all(); // maybe wake up waiting idlers
     802                 :        452 :   }
     803                 :            :   
     804                 :            :   // block this idler thread until there is no work to do
     805                 :        309 :   void wait_idle ()
     806                 :            :   {
     807                 :        309 :     unique_lock<mutex> lock(mtx);
     808                 :        309 :     cv.notify_all(); // maybe wake up waiting scanners
     809   [ +  +  +  +  :        326 :     while (!dead && ((q.size() != 0) || fronters > 0))
                   +  + ]
     810                 :         17 :       cv.wait(lock);
     811         [ +  - ]:        309 :     idlers ++;
     812                 :        309 :   }
     813                 :            : 
     814                 :        276 :   void done_idle ()
     815                 :            :   {
     816                 :        276 :     unique_lock<mutex> lock(mtx);
     817                 :        276 :     idlers --;
     818         [ +  - ]:        276 :     cv.notify_all(); // maybe wake up waiting scanners, but probably not (shutting down)
     819                 :        276 :   }
     820                 :            : };
     821                 :            : 
     822                 :            : typedef struct stat stat_t;
     823                 :            : typedef pair<string,stat_t> scan_payload;
     824                 :       1362 : inline bool operator< (const scan_payload& a, const scan_payload& b)
     825                 :            : {
     826   [ +  +  +  +  :       1362 :   return a.first < b.first; // don't bother compare the stat fields
                   +  - ]
     827                 :            : }
     828                 :            : static workq<scan_payload> scanq; // just a single one
     829                 :            : // producer & idler: thread_main_fts_source_paths()
     830                 :            : // consumer: thread_main_scanner()
     831                 :            : // idler: thread_main_groom()
     832                 :            : 
     833                 :            : 
     834                 :            : ////////////////////////////////////////////////////////////////////////
     835                 :            : 
     836                 :            : // Unique set is a thread-safe structure that lends 'ownership' of a value
     837                 :            : // to a thread.  Other threads requesting the same thing are made to wait.
     838                 :            : // It's like a semaphore-on-demand.
     839                 :            : template <typename T>
     840                 :            : class unique_set
     841                 :            : {
     842                 :            : private:
     843                 :            :   set<T> values;
     844                 :            :   mutex mtx;
     845                 :            :   condition_variable cv;
     846                 :            : public:
     847                 :         27 :   unique_set() {}
     848                 :         27 :   ~unique_set() {}
     849                 :            : 
     850                 :        618 :   void acquire(const T& value)
     851                 :            :   {
     852                 :        618 :     unique_lock<mutex> lock(mtx);
     853         [ +  + ]:       3075 :     while (values.find(value) != values.end())
     854                 :       2457 :       cv.wait(lock);
     855         [ +  - ]:        618 :     values.insert(value);
     856                 :        618 :   }
     857                 :            : 
     858                 :        618 :   void release(const T& value)
     859                 :            :   {
     860                 :        618 :     unique_lock<mutex> lock(mtx);
     861                 :            :     // assert (values.find(value) != values.end());
     862                 :        618 :     values.erase(value);
     863         [ +  - ]:        618 :     cv.notify_all();
     864                 :        618 :   }
     865                 :            : };
     866                 :            : 
     867                 :            : 
     868                 :            : // This is the object that's instantiate to uniquely hold a value in a
     869                 :            : // RAII-pattern way.
     870                 :            : template <typename T>
     871                 :            : class unique_set_reserver
     872                 :            : {
     873                 :            : private:
     874                 :            :   unique_set<T>& please_hold;
     875                 :            :   T mine;
     876                 :            : public:
     877                 :        618 :   unique_set_reserver(unique_set<T>& t, const T& value):
     878   [ +  -  -  - ]:        618 :     please_hold(t), mine(value)  { please_hold.acquire(mine); }
     879         [ +  - ]:        618 :   ~unique_set_reserver() { please_hold.release(mine); }
     880                 :            : };
     881                 :            : 
     882                 :            : 
     883                 :            : ////////////////////////////////////////////////////////////////////////
     884                 :            : 
     885                 :            : 
     886                 :            : // Print a standard timestamp.
     887                 :            : static ostream&
     888                 :       9471 : timestamp (ostream &o)
     889                 :            : {
     890                 :       9471 :   char datebuf[80];
     891                 :       9471 :   char *now2 = NULL;
     892                 :       9471 :   time_t now_t = time(NULL);
     893                 :       9473 :   struct tm now;
     894                 :       9473 :   struct tm *nowp = gmtime_r (&now_t, &now);
     895         [ +  - ]:       9471 :   if (nowp)
     896                 :            :     {
     897                 :       9471 :       (void) strftime (datebuf, sizeof (datebuf), "%c", nowp);
     898                 :       9471 :       now2 = datebuf;
     899                 :            :     }
     900                 :            : 
     901                 :       9471 :   return o << "[" << (now2 ? now2 : "") << "] "
     902         [ -  + ]:       9471 :            << "(" << getpid () << "/" << tid() << "): ";
     903                 :            : }
     904                 :            : 
     905                 :            : 
     906                 :            : // A little class that impersonates an ostream to the extent that it can
     907                 :            : // take << streaming operations.  It batches up the bits into an internal
     908                 :            : // stringstream until it is destroyed; then flushes to the original ostream.
     909                 :            : // It adds a timestamp
     910                 :            : class obatched
     911                 :            : {
     912                 :            : private:
     913                 :            :   ostream& o;
     914                 :            :   stringstream stro;
     915                 :            :   static mutex lock;
     916                 :            : public:
     917                 :       9471 :   obatched(ostream& oo, bool timestamp_p = true): o(oo)
     918                 :            :   {
     919         [ +  - ]:       9472 :     if (timestamp_p)
     920         [ +  - ]:       9472 :       timestamp(stro);
     921                 :       9472 :   }
     922                 :       9473 :   ~obatched()
     923                 :      18944 :   {
     924                 :      18946 :     unique_lock<mutex> do_not_cross_the_streams(obatched::lock);
     925         [ +  - ]:       9473 :     o << stro.str();
     926         [ +  - ]:       9473 :     o.flush();
     927                 :       9471 :   }
     928                 :            :   operator ostream& () { return stro; }
     929   [ -  -  +  -  :       7795 :   template <typename T> ostream& operator << (const T& t) { stro << t; return stro; }
          +  -  +  -  +  
          -  +  -  +  -  
          -  -  -  -  -  
          -  +  -  +  -  
          +  -  +  -  +  
          -  +  -  +  -  
          +  -  +  -  +  
          -  +  -  +  -  
          +  -  +  -  -  
          -  +  -  +  -  
          +  -  +  -  +  
          -  -  -  +  -  
          +  -  -  -  +  
          -  +  -  +  -  
          +  -  +  -  +  
          -  +  -  +  -  
          +  -  +  -  +  
          -  +  -  -  -  
          -  -  +  -  -  
          -  +  -  -  -  
          -  -  -  -  +  
          -  -  -  +  -  
          -  -  +  -  -  
          -  -  -  +  -  
          +  -  +  -  +  
                -  +  - ]
     930                 :            : };
     931                 :            : mutex obatched::lock; // just the one, since cout/cerr iostreams are not thread-safe
     932                 :            : 
     933                 :            : 
     934                 :        274 : void reportable_exception::report(ostream& o) const {
     935   [ +  -  +  - ]:        274 :   obatched(o) << message << endl;
     936                 :        274 : }
     937                 :            : 
     938                 :            : 
     939                 :            : ////////////////////////////////////////////////////////////////////////
     940                 :            : 
     941                 :            : 
     942                 :            : // RAII style sqlite prepared-statement holder that matches { } block lifetime
     943                 :            : 
     944                 :            : struct sqlite_ps
     945                 :            : {
     946                 :            : private:
     947                 :            :   sqlite3* db;
     948                 :            :   const string nickname;
     949                 :            :   const string sql;
     950                 :            :   sqlite3_stmt *pp;
     951                 :            : 
     952                 :            :   sqlite_ps(const sqlite_ps&); // make uncopyable
     953                 :            :   sqlite_ps& operator=(const sqlite_ps &); // make unassignable
     954                 :            : 
     955                 :            : public:
     956   [ +  -  -  - ]:       2492 :   sqlite_ps (sqlite3* d, const string& n, const string& s): db(d), nickname(n), sql(s) {
     957                 :            :     // tmp_ms_metric tick("sqlite3","prep",nickname);
     958         [ +  + ]:       2492 :     if (verbose > 4)
     959   [ +  -  +  -  :        142 :       obatched(clog) << nickname << " prep " << sql << endl;
          +  -  +  -  +  
                -  -  - ]
     960         [ +  - ]:       2492 :     int rc = sqlite3_prepare_v2 (db, sql.c_str(), -1 /* to \0 */, & this->pp, NULL);
     961         [ -  + ]:       2492 :     if (rc != SQLITE_OK)
     962   [ #  #  #  # ]:          0 :       throw sqlite_exception(rc, "prepare " + sql);
     963                 :       2492 :   }
     964                 :            : 
     965                 :       8814 :   sqlite_ps& reset()
     966                 :            :   {
     967   [ +  -  +  -  :      17628 :     tmp_ms_metric tick("sqlite3","reset",nickname);
          -  +  +  -  -  
                      - ]
     968         [ +  - ]:       8814 :     sqlite3_reset(this->pp);
     969                 :       8813 :     return *this;
     970                 :            :   }
     971                 :            : 
     972                 :      11359 :   sqlite_ps& bind(int parameter, const string& str)
     973                 :            :   {
     974         [ +  + ]:      11359 :     if (verbose > 4)
     975   [ +  -  +  -  :        338 :       obatched(clog) << nickname << " bind " << parameter << "=" << str << endl;
          +  -  +  -  +  
                -  +  - ]
     976                 :      11359 :     int rc = sqlite3_bind_text (this->pp, parameter, str.c_str(), -1, SQLITE_TRANSIENT);
     977         [ -  + ]:      11359 :     if (rc != SQLITE_OK)
     978   [ #  #  #  # ]:          0 :       throw sqlite_exception(rc, "sqlite3 bind");
     979                 :      11359 :     return *this;
     980                 :            :   }
     981                 :            : 
     982                 :       3619 :   sqlite_ps& bind(int parameter, int64_t value)
     983                 :            :   {
     984         [ +  + ]:       3619 :     if (verbose > 4)
     985   [ +  -  +  -  :        159 :       obatched(clog) << nickname << " bind " << parameter << "=" << value << endl;
          +  -  +  -  +  
                -  +  - ]
     986                 :       3619 :     int rc = sqlite3_bind_int64 (this->pp, parameter, value);
     987         [ -  + ]:       3619 :     if (rc != SQLITE_OK)
     988   [ #  #  #  # ]:          0 :       throw sqlite_exception(rc, "sqlite3 bind");
     989                 :       3619 :     return *this;
     990                 :            :   }
     991                 :            : 
     992                 :            :   sqlite_ps& bind(int parameter)
     993                 :            :   {
     994                 :            :     if (verbose > 4)
     995                 :            :       obatched(clog) << nickname << " bind " << parameter << "=" << "NULL" << endl;
     996                 :            :     int rc = sqlite3_bind_null (this->pp, parameter);
     997                 :            :     if (rc != SQLITE_OK)
     998                 :            :       throw sqlite_exception(rc, "sqlite3 bind");
     999                 :            :     return *this;
    1000                 :            :   }
    1001                 :            : 
    1002                 :            : 
    1003                 :       6493 :   void step_ok_done() {
    1004   [ +  -  +  -  :      19478 :     tmp_ms_metric tick("sqlite3","step_done",nickname);
          -  +  +  -  -  
                      - ]
    1005         [ +  - ]:       6492 :     int rc = sqlite3_step (this->pp);
    1006         [ +  + ]:       6493 :     if (verbose > 4)
    1007   [ +  -  +  -  :        192 :       obatched(clog) << nickname << " step-ok-done(" << sqlite3_errstr(rc) << ") " << sql << endl;
          +  -  +  -  +  
          -  +  -  +  -  
                   +  - ]
    1008   [ +  +  -  + ]:       6493 :     if (rc != SQLITE_OK && rc != SQLITE_DONE && rc != SQLITE_ROW)
    1009   [ #  #  #  # ]:          0 :       throw sqlite_exception(rc, "sqlite3 step");
    1010         [ +  - ]:       6493 :     (void) sqlite3_reset (this->pp);
    1011                 :       6493 :   }
    1012                 :            : 
    1013                 :            : 
    1014                 :       1792 :   int step() {
    1015   [ +  -  +  -  :       3584 :     tmp_ms_metric tick("sqlite3","step",nickname);
          -  +  +  -  -  
                      - ]
    1016         [ +  - ]:       1792 :     int rc = sqlite3_step (this->pp);
    1017         [ +  + ]:       1792 :     if (verbose > 4)
    1018   [ +  -  +  -  :         85 :       obatched(clog) << nickname << " step(" << sqlite3_errstr(rc) << ") " << sql << endl;
          +  -  +  -  +  
          -  +  -  +  -  
                   +  - ]
    1019                 :       1792 :     return rc;
    1020                 :            :   }
    1021                 :            : 
    1022   [ +  +  +  + ]:       4946 :   ~sqlite_ps () { sqlite3_finalize (this->pp); }
    1023   [ +  -  +  -  :       1284 :   operator sqlite3_stmt* () { return this->pp; }
                   +  - ]
    1024                 :            : };
    1025                 :            : 
    1026                 :            : 
    1027                 :            : ////////////////////////////////////////////////////////////////////////
    1028                 :            : 
    1029                 :            : // RAII style templated autocloser
    1030                 :            : 
    1031                 :            : template <class Payload, class Ignore>
    1032                 :            : struct defer_dtor
    1033                 :            : {
    1034                 :            : public:
    1035                 :            :   typedef Ignore (*dtor_fn) (Payload);
    1036                 :            : 
    1037                 :            : private:
    1038                 :            :   Payload p;
    1039                 :            :   dtor_fn fn;
    1040                 :            : 
    1041                 :            : public:
    1042                 :       2548 :   defer_dtor(Payload _p, dtor_fn _fn): p(_p), fn(_fn) {}
    1043                 :       1106 :   ~defer_dtor() { (void) (*fn)(p); }
    1044                 :            : 
    1045                 :            : private:
    1046                 :            :   defer_dtor(const defer_dtor<Payload,Ignore>&); // make uncopyable
    1047                 :            :   defer_dtor& operator=(const defer_dtor<Payload,Ignore> &); // make unassignable
    1048                 :            : };
    1049                 :            : 
    1050                 :            : 
    1051                 :            : 
    1052                 :            : ////////////////////////////////////////////////////////////////////////
    1053                 :            : 
    1054                 :            : 
    1055                 :            : static string
    1056                 :       1922 : header_censor(const string& str)
    1057                 :            : {
    1058                 :       1922 :   string y;
    1059         [ +  + ]:      16469 :   for (auto&& x : str)
    1060                 :            :     {
    1061   [ +  +  +  +  :      14547 :       if (isalnum(x) || x == '/' || x == '.' || x == ',' || x == '_' || x == ':')
          +  +  +  +  +  
                +  -  + ]
    1062         [ +  - ]:      29091 :         y += x;
    1063                 :            :     }
    1064                 :       1922 :   return y;
    1065                 :            : }
    1066                 :            : 
    1067                 :            : 
    1068                 :            : static string
    1069                 :        961 : conninfo (struct MHD_Connection * conn)
    1070                 :            : {
    1071                 :        961 :   char hostname[256]; // RFC1035
    1072                 :        961 :   char servname[256];
    1073                 :        961 :   int sts = -1;
    1074                 :            : 
    1075         [ -  + ]:        961 :   if (conn == 0)
    1076                 :          0 :     return "internal";
    1077                 :            : 
    1078                 :            :   /* Look up client address data. */
    1079                 :        961 :   const union MHD_ConnectionInfo *u = MHD_get_connection_info (conn,
    1080                 :            :                                                                MHD_CONNECTION_INFO_CLIENT_ADDRESS);
    1081         [ +  - ]:        961 :   struct sockaddr *so = u ? u->client_addr : 0;
    1082                 :            : 
    1083   [ +  -  -  + ]:        961 :   if (so && so->sa_family == AF_INET) {
    1084                 :          0 :     sts = getnameinfo (so, sizeof (struct sockaddr_in),
    1085                 :            :                        hostname, sizeof (hostname),
    1086                 :            :                        servname, sizeof (servname),
    1087                 :            :                        NI_NUMERICHOST | NI_NUMERICSERV);
    1088   [ +  -  +  - ]:        961 :   } else if (so && so->sa_family == AF_INET6) {
    1089                 :        961 :     struct sockaddr_in6* addr6 = (struct sockaddr_in6*) so;
    1090   [ +  -  +  -  :        961 :     if (IN6_IS_ADDR_V4MAPPED(&addr6->sin6_addr)) {
                   -  + ]
    1091                 :        961 :       struct sockaddr_in addr4;
    1092                 :        961 :       memset (&addr4, 0, sizeof(addr4));
    1093                 :        961 :       addr4.sin_family = AF_INET;
    1094                 :        961 :       addr4.sin_port = addr6->sin6_port;
    1095                 :        961 :       memcpy (&addr4.sin_addr.s_addr, addr6->sin6_addr.s6_addr+12, sizeof(addr4.sin_addr.s_addr));
    1096                 :        961 :       sts = getnameinfo ((struct sockaddr*) &addr4, sizeof (addr4),
    1097                 :            :                          hostname, sizeof (hostname),
    1098                 :            :                          servname, sizeof (servname),
    1099                 :            :                          NI_NUMERICHOST | NI_NUMERICSERV);
    1100                 :            :     } else {
    1101                 :          0 :       sts = getnameinfo (so, sizeof (struct sockaddr_in6),
    1102                 :            :                          hostname, sizeof (hostname),
    1103                 :            :                          servname, sizeof (servname),
    1104                 :            :                          NI_NUMERICHOST | NI_NUMERICSERV);
    1105                 :            :     }
    1106                 :            :   }
    1107                 :            :   
    1108         [ -  + ]:        961 :   if (sts != 0) {
    1109                 :          0 :     hostname[0] = servname[0] = '\0';
    1110                 :            :   }
    1111                 :            : 
    1112                 :            :   // extract headers relevant to administration
    1113         [ -  + ]:        961 :   const char* user_agent = MHD_lookup_connection_value (conn, MHD_HEADER_KIND, "User-Agent") ?: "";
    1114         [ +  + ]:        961 :   const char* x_forwarded_for = MHD_lookup_connection_value (conn, MHD_HEADER_KIND, "X-Forwarded-For") ?: "";
    1115                 :            :   // NB: these are untrustworthy, beware if machine-processing log files
    1116                 :            : 
    1117   [ +  -  +  -  :       2883 :   return string(hostname) + string(":") + string(servname) +
          +  -  +  -  +  
          -  -  +  -  +  
          -  +  -  +  -  
          +  -  +  -  -  
          -  -  -  -  -  
             -  -  -  -  
                      - ]
    1118   [ +  -  +  -  :       3993 :     string(" UA:") + header_censor(string(user_agent)) +
          +  -  +  -  +  
          -  -  +  +  +  
          -  +  +  +  -  
          +  -  -  -  -  
          -  -  -  -  -  
                      - ]
    1119   [ +  -  +  -  :       2889 :     string(" XFF:") + header_censor(string(x_forwarded_for));
          +  -  +  -  +  
          +  +  +  -  -  
                   -  - ]
    1120                 :            : }
    1121                 :            : 
    1122                 :            : 
    1123                 :            : 
    1124                 :            : ////////////////////////////////////////////////////////////////////////
    1125                 :            : 
    1126                 :            : /* Wrapper for MHD_add_response_header that logs an error if we
    1127                 :            :    couldn't add the specified header.  */
    1128                 :            : static void
    1129                 :       2940 : add_mhd_response_header (struct MHD_Response *r,
    1130                 :            :                          const char *h, const char *v)
    1131                 :            : {
    1132         [ -  + ]:       2940 :   if (MHD_add_response_header (r, h, v) == MHD_NO)
    1133   [ #  #  #  #  :          0 :     obatched(clog) << "Error: couldn't add '" << h << "' header" << endl;
             #  #  #  # ]
    1134                 :       2940 : }
    1135                 :            : 
    1136                 :            : static void
    1137                 :        399 : add_mhd_last_modified (struct MHD_Response *resp, time_t mtime)
    1138                 :            : {
    1139                 :        399 :   struct tm now;
    1140                 :        399 :   struct tm *nowp = gmtime_r (&mtime, &now);
    1141         [ +  - ]:        399 :   if (nowp != NULL)
    1142                 :            :     {
    1143                 :        399 :       char datebuf[80];
    1144                 :        399 :       size_t rc = strftime (datebuf, sizeof (datebuf), "%a, %d %b %Y %T GMT",
    1145                 :            :                             nowp);
    1146         [ +  - ]:        399 :       if (rc > 0 && rc < sizeof (datebuf))
    1147                 :        399 :         add_mhd_response_header (resp, "Last-Modified", datebuf);
    1148                 :            :     }
    1149                 :            : 
    1150                 :        399 :   add_mhd_response_header (resp, "Cache-Control", "public");
    1151                 :        399 : }
    1152                 :            : 
    1153                 :            : // quote all questionable characters of str for safe passage through a sh -c expansion.
    1154                 :            : static string
    1155                 :        279 : shell_escape(const string& str)
    1156                 :            : {
    1157                 :        279 :   string y;
    1158         [ +  + ]:      39296 :   for (auto&& x : str)
    1159                 :            :     {
    1160   [ +  +  +  + ]:      39017 :       if (! isalnum(x) && x != '/')
    1161         [ +  - ]:       3299 :         y += "\\";
    1162         [ +  - ]:      78034 :       y += x;
    1163                 :            :     }
    1164                 :        279 :   return y;
    1165                 :            : }
    1166                 :            : 
    1167                 :            : 
    1168                 :            : // PR25548: Perform POSIX / RFC3986 style path canonicalization on the input string.
    1169                 :            : //
    1170                 :            : // Namely:
    1171                 :            : //    //         ->   /
    1172                 :            : //    /foo/../   ->   /
    1173                 :            : //    /./        ->   /
    1174                 :            : //
    1175                 :            : // This mapping is done on dwarf-side source path names, which may
    1176                 :            : // include these constructs, so we can deal with debuginfod clients
    1177                 :            : // that accidentally canonicalize the paths.
    1178                 :            : //
    1179                 :            : // realpath(3) is close but not quite right, because it also resolves
    1180                 :            : // symbolic links.  Symlinks at the debuginfod server have nothing to
    1181                 :            : // do with the build-time symlinks, thus they must not be considered.
    1182                 :            : //
    1183                 :            : // see also curl Curl_dedotdotify() aka RFC3986, which we mostly follow here
    1184                 :            : // see also libc __realpath()
    1185                 :            : // see also llvm llvm::sys::path::remove_dots()
    1186                 :            : static string
    1187                 :       1690 : canon_pathname (const string& input)
    1188                 :            : {
    1189                 :       1690 :   string i = input; // 5.2.4 (1)
    1190                 :       1690 :   string o;
    1191                 :            : 
    1192                 :      15790 :   while (i.size() != 0)
    1193                 :            :     {
    1194                 :            :       // 5.2.4 (2) A
    1195   [ +  -  -  +  :      28200 :       if (i.substr(0,3) == "../")
                   -  + ]
    1196   [ #  #  #  # ]:          0 :         i = i.substr(3);
    1197   [ +  -  -  +  :      28200 :       else if(i.substr(0,2) == "./")
                   -  + ]
    1198   [ #  #  #  # ]:          0 :         i = i.substr(2);
    1199                 :            : 
    1200                 :            :       // 5.2.4 (2) B
    1201   [ +  -  -  +  :      28200 :       else if (i.substr(0,3) == "/./")
                   +  + ]
    1202   [ +  -  +  + ]:        310 :         i = i.substr(2);
    1203         [ -  + ]:      13910 :       else if (i == "/.")
    1204         [ #  # ]:          0 :         i = ""; // no need to handle "/." complete-path-segment case; we're dealing with file names
    1205                 :            : 
    1206                 :            :       // 5.2.4 (2) C
    1207   [ +  -  -  +  :      27820 :       else if (i.substr(0,4) == "/../") {
                   +  + ]
    1208   [ +  -  +  + ]:        235 :         i = i.substr(3);
    1209                 :        235 :         string::size_type sl = o.rfind("/");
    1210         [ +  - ]:        235 :         if (sl != string::npos)
    1211   [ +  -  +  - ]:        470 :           o = o.substr(0, sl);
    1212                 :            :         else
    1213         [ #  # ]:          0 :           o = "";
    1214         [ -  + ]:      13675 :       } else if (i == "/..")
    1215         [ #  # ]:          0 :         i = ""; // no need to handle "/.." complete-path-segment case; we're dealing with file names
    1216                 :            : 
    1217                 :            :       // 5.2.4 (2) D
    1218                 :            :       // no need to handle these cases; we're dealing with file names
    1219         [ -  + ]:      13675 :       else if (i == ".")
    1220         [ #  # ]:          0 :         i = "";
    1221         [ -  + ]:      13675 :       else if (i == "..")
    1222         [ #  # ]:          0 :         i = "";
    1223                 :            : 
    1224                 :            :       // POSIX special: map // to /
    1225   [ +  -  -  +  :      27350 :       else if (i.substr(0,2) == "//")
                   +  + ]
    1226   [ +  -  +  + ]:         74 :         i = i.substr(1);
    1227                 :            : 
    1228                 :            :       // 5.2.4 (2) E
    1229                 :            :       else {
    1230         [ -  + ]:      13609 :         string::size_type next_slash = i.find("/", (i[0]=='/' ? 1 : 0)); // skip first slash
    1231   [ +  -  +  +  :      27218 :         o += i.substr(0, next_slash);
                   -  - ]
    1232         [ +  + ]:      13609 :         if (next_slash == string::npos)
    1233   [ +  +  +  - ]:      17480 :           i = "";
    1234                 :            :         else
    1235   [ +  -  +  + ]:      22428 :           i = i.substr(next_slash);
    1236                 :            :       }
    1237                 :            :     }
    1238                 :            : 
    1239         [ +  - ]:       3380 :   return o;
    1240                 :            : }
    1241                 :            : 
    1242                 :            : 
    1243                 :            : // Estimate available free space for a given filesystem via statfs(2).
    1244                 :            : // Return true if the free fraction is known to be smaller than the
    1245                 :            : // given minimum percentage.  Also update a related metric.
    1246                 :       1913 : bool statfs_free_enough_p(const string& path, const string& label, long minfree = 0)
    1247                 :            : {
    1248                 :       1913 :   struct statfs sfs;
    1249                 :       1913 :   int rc = statfs(path.c_str(), &sfs);
    1250         [ +  + ]:       1914 :   if (rc == 0)
    1251                 :            :     {
    1252                 :       1889 :       double s = (double) sfs.f_bavail / (double) sfs.f_blocks;
    1253   [ +  -  +  -  :       3778 :       set_metric("filesys_free_ratio","purpose",label, s);
             -  +  -  - ]
    1254                 :       1889 :       return ((s * 100.0) < minfree);
    1255                 :            :     }
    1256                 :            :   return false;
    1257                 :            : }
    1258                 :            : 
    1259                 :            : 
    1260                 :            : 
    1261                 :            : // A map-like class that owns a cache of file descriptors (indexed by
    1262                 :            : // file / content names).
    1263                 :            : //
    1264                 :            : // If only it could use fd's instead of file names ... but we can't
    1265                 :            : // dup(2) to create independent descriptors for the same unlinked
    1266                 :            : // files, so would have to use some goofy linux /proc/self/fd/%d
    1267                 :            : // hack such as the following
    1268                 :            : 
    1269                 :            : #if 0
    1270                 :            : int superdup(int fd)
    1271                 :            : {
    1272                 :            : #ifdef __linux__
    1273                 :            :   char *fdpath = NULL;
    1274                 :            :   int rc = asprintf(& fdpath, "/proc/self/fd/%d", fd);
    1275                 :            :   int newfd;
    1276                 :            :   if (rc >= 0)
    1277                 :            :     newfd = open(fdpath, O_RDONLY);
    1278                 :            :   else
    1279                 :            :     newfd = -1;
    1280                 :            :   free (fdpath);
    1281                 :            :   return newfd;
    1282                 :            : #else
    1283                 :            :   return -1;
    1284                 :            : #endif
    1285                 :            : }
    1286                 :            : #endif
    1287                 :            : 
    1288                 :            : class libarchive_fdcache
    1289                 :            : {
    1290                 :            : private:
    1291                 :            :   mutex fdcache_lock;
    1292                 :            : 
    1293                 :            :   struct fdcache_entry
    1294                 :            :   {
    1295                 :            :     string archive;
    1296                 :            :     string entry;
    1297                 :            :     string fd;
    1298                 :            :     double fd_size_mb; // slightly rounded up megabytes
    1299                 :            :   };
    1300                 :            :   deque<fdcache_entry> lru; // @head: most recently used
    1301                 :            :   long max_fds;
    1302                 :            :   deque<fdcache_entry> prefetch; // prefetched
    1303                 :            :   long max_mbs;
    1304                 :            :   long max_prefetch_mbs;
    1305                 :            :   long max_prefetch_fds;
    1306                 :            : 
    1307                 :            : public:
    1308                 :       1075 :   void set_metrics()
    1309                 :            :   {
    1310                 :       1075 :     double fdcache_mb = 0.0;
    1311                 :       1075 :     double prefetch_mb = 0.0;
    1312   [ +  +  +  + ]:       5682 :     for (auto i = lru.begin(); i < lru.end(); i++)
    1313                 :       1766 :       fdcache_mb += i->fd_size_mb;
    1314   [ +  +  +  + ]:       3296 :     for (auto j = prefetch.begin(); j < prefetch.end(); j++)
    1315                 :        573 :       prefetch_mb += j->fd_size_mb;
    1316         [ +  - ]:       2150 :     set_metric("fdcache_bytes", fdcache_mb*1024.0*1024.0);
    1317         [ +  - ]:       2150 :     set_metric("fdcache_count", lru.size());
    1318         [ +  - ]:       2150 :     set_metric("fdcache_prefetch_bytes", prefetch_mb*1024.0*1024.0);
    1319         [ +  - ]:       2150 :     set_metric("fdcache_prefetch_count", prefetch.size());
    1320                 :       1075 :   }
    1321                 :            : 
    1322                 :        608 :   void intern(const string& a, const string& b, string fd, off_t sz, bool front_p)
    1323                 :            :   {
    1324                 :        608 :     {
    1325                 :        608 :       unique_lock<mutex> lock(fdcache_lock);
    1326                 :            :       // nuke preexisting copy
    1327   [ +  +  +  + ]:       2977 :       for (auto i = lru.begin(); i < lru.end(); i++)
    1328                 :            :         {
    1329   [ +  +  -  + ]:        587 :           if (i->archive == a && i->entry == b)
    1330                 :            :             {
    1331                 :          0 :               unlink (i->fd.c_str());
    1332                 :          0 :               lru.erase(i);
    1333   [ #  #  #  #  :          0 :               inc_metric("fdcache_op_count","op","dequeue");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    1334                 :          0 :               break; // must not continue iterating
    1335                 :            :             }
    1336                 :            :         }
    1337                 :            :       // nuke preexisting copy in prefetch
    1338   [ +  +  +  + ]:       2041 :       for (auto i = prefetch.begin(); i < prefetch.end(); i++)
    1339                 :            :         {
    1340   [ +  +  +  - ]:        275 :           if (i->archive == a && i->entry == b)
    1341                 :            :             {
    1342                 :          0 :               unlink (i->fd.c_str());
    1343                 :          0 :               prefetch.erase(i);
    1344   [ #  #  #  #  :          0 :               inc_metric("fdcache_op_count","op","prefetch_dequeue");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    1345                 :          0 :               break; // must not continue iterating
    1346                 :            :             }
    1347                 :            :         }
    1348                 :        608 :       double mb = (sz+65535)/1048576.0; // round up to 64K block
    1349   [ +  -  +  -  :       1216 :       fdcache_entry n = { a, b, fd, mb };
             +  -  +  - ]
    1350         [ +  + ]:        608 :       if (front_p)
    1351                 :            :         {
    1352   [ +  -  +  -  :        664 :           inc_metric("fdcache_op_count","op","enqueue");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    1353         [ +  - ]:        332 :           lru.push_front(n);
    1354                 :            :         }
    1355                 :            :       else
    1356                 :            :         {
    1357   [ +  -  +  -  :        828 :           inc_metric("fdcache_op_count","op","prefetch_enqueue");
          +  -  +  -  -  
          +  +  -  +  -  
             -  -  -  - ]
    1358         [ +  - ]:        276 :           prefetch.push_front(n);
    1359                 :            :         }
    1360         [ +  + ]:        608 :       if (verbose > 3)
    1361   [ +  -  +  - ]:       1779 :         obatched(clog) << "fdcache interned a=" << a << " b=" << b
    1362   [ +  -  +  -  :        593 :                        << " fd=" << fd << " mb=" << mb << " front=" << front_p << endl;
          +  -  +  -  +  
          -  +  -  +  -  
             +  -  +  - ]
    1363                 :            :       
    1364         [ +  - ]:        608 :       set_metrics();
    1365                 :            :     }
    1366                 :            : 
    1367                 :            :     // NB: we age the cache at lookup time too
    1368   [ +  -  -  +  :        608 :     if (statfs_free_enough_p(tmpdir, "tmpdir", fdcache_mintmp))
                   -  + ]
    1369                 :            :       {
    1370   [ #  #  #  #  :          0 :         inc_metric("fdcache_op_count","op","emerg-flush");
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    1371   [ #  #  #  # ]:          0 :         obatched(clog) << "fdcache emergency flush for filling tmpdir" << endl;
    1372                 :          0 :         this->limit(0, 0, 0, 0); // emergency flush
    1373                 :            :       }
    1374         [ +  + ]:        608 :     else if (front_p)
    1375                 :        332 :       this->limit(max_fds, max_mbs, max_prefetch_fds, max_prefetch_mbs); // age cache if required
    1376                 :        608 :   }
    1377                 :            : 
    1378                 :        369 :   int lookup(const string& a, const string& b)
    1379                 :            :   {
    1380                 :        369 :     int fd = -1;
    1381                 :        369 :     {
    1382                 :        369 :       unique_lock<mutex> lock(fdcache_lock);
    1383   [ +  +  +  + ]:       2631 :       for (auto i = lru.begin(); i < lru.end(); i++)
    1384                 :            :         {
    1385   [ +  +  +  + ]:        659 :           if (i->archive == a && i->entry == b)
    1386                 :            :             { // found it; move it to head of lru
    1387         [ +  - ]:         28 :               fdcache_entry n = *i;
    1388                 :         28 :               lru.erase(i); // invalidates i, so no more iteration!
    1389         [ +  - ]:         28 :               lru.push_front(n);
    1390   [ +  -  +  -  :         56 :               inc_metric("fdcache_op_count","op","requeue_front");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    1391         [ +  - ]:         28 :               fd = open(n.fd.c_str(), O_RDONLY); 
    1392                 :         28 :               break;
    1393                 :            :             }
    1394                 :            :         }
    1395                 :            :       // Iterate through prefetch while fd == -1 to ensure that no duplication between lru and 
    1396                 :            :       // prefetch occurs.
    1397   [ +  +  +  +  :       1244 :       for ( auto i = prefetch.begin(); fd == -1 && i < prefetch.end(); ++i)
                   +  + ]
    1398                 :            :         {
    1399   [ +  +  +  + ]:        274 :           if (i->archive == a && i->entry == b)
    1400                 :            :             { // found it; take the entry from the prefetch deque to the lru deque, since it has now been accessed.
    1401         [ +  - ]:          7 :               fdcache_entry n = *i;
    1402                 :          7 :               prefetch.erase(i);
    1403         [ +  - ]:          7 :               lru.push_front(n);
    1404   [ +  -  +  -  :         14 :               inc_metric("fdcache_op_count","op","prefetch_access");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    1405         [ +  - ]:          7 :               fd = open(n.fd.c_str(), O_RDONLY); 
    1406                 :          7 :               break;
    1407                 :            :             }
    1408                 :            :         }
    1409                 :            :     }
    1410                 :            : 
    1411   [ +  -  -  +  :        369 :     if (statfs_free_enough_p(tmpdir, "tmpdir", fdcache_mintmp))
                   -  + ]
    1412                 :            :       {
    1413   [ #  #  #  #  :          0 :         inc_metric("fdcache_op_count","op","emerg-flush");
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    1414   [ #  #  #  # ]:          0 :         obatched(clog) << "fdcache emergency flush for filling tmpdir" << endl;
    1415                 :          0 :         this->limit(0, 0, 0, 0); // emergency flush
    1416                 :            :       }
    1417         [ +  + ]:        369 :     else if (fd >= 0)
    1418                 :         35 :       this->limit(max_fds, max_mbs, max_prefetch_fds, max_prefetch_mbs); // age cache if required
    1419                 :            : 
    1420                 :        369 :     return fd;
    1421                 :            :   }
    1422                 :            : 
    1423                 :        617 :   int probe(const string& a, const string& b) // just a cache residency check - don't modify LRU state, don't open
    1424                 :            :   {
    1425                 :       1234 :     unique_lock<mutex> lock(fdcache_lock);
    1426   [ +  +  +  + ]:       3088 :     for (auto i = lru.begin(); i < lru.end(); i++)
    1427                 :            :       {
    1428   [ +  +  +  + ]:        631 :         if (i->archive == a && i->entry == b)
    1429                 :            :           {
    1430   [ +  -  +  -  :         26 :             inc_metric("fdcache_op_count","op","probe_hit");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    1431                 :         13 :             return true;
    1432                 :            :           }
    1433                 :            :       }
    1434   [ +  +  +  + ]:       2027 :     for (auto i = prefetch.begin(); i < prefetch.end(); i++)
    1435                 :            :       {
    1436   [ +  +  +  - ]:        273 :         if (i->archive == a && i->entry == b)
    1437                 :            :           {
    1438   [ #  #  #  #  :          0 :             inc_metric("fdcache_op_count","op","prefetch_probe_hit");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    1439                 :          0 :             return true;
    1440                 :            :           }
    1441                 :            :       }
    1442   [ +  -  +  -  :       1208 :     inc_metric("fdcache_op_count","op","probe_miss");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    1443                 :        604 :     return false;
    1444                 :            :   }
    1445                 :            : 
    1446                 :          0 :   void clear(const string& a, const string& b)
    1447                 :            :   {
    1448                 :          0 :     unique_lock<mutex> lock(fdcache_lock);
    1449   [ #  #  #  # ]:          0 :     for (auto i = lru.begin(); i < lru.end(); i++)
    1450                 :            :       {
    1451   [ #  #  #  # ]:          0 :         if (i->archive == a && i->entry == b)
    1452                 :            :           { // found it; erase it from lru
    1453         [ #  # ]:          0 :             fdcache_entry n = *i;
    1454                 :          0 :             lru.erase(i); // invalidates i, so no more iteration!
    1455   [ #  #  #  #  :          0 :             inc_metric("fdcache_op_count","op","clear");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    1456                 :          0 :             unlink (n.fd.c_str());
    1457         [ #  # ]:          0 :             set_metrics();
    1458                 :          0 :             return;
    1459                 :            :           }
    1460                 :            :       }
    1461   [ #  #  #  # ]:          0 :     for (auto i = prefetch.begin(); i < prefetch.end(); i++)
    1462                 :            :       {
    1463   [ #  #  #  # ]:          0 :         if (i->archive == a && i->entry == b)
    1464                 :            :           { // found it; erase it from lru
    1465         [ #  # ]:          0 :             fdcache_entry n = *i;
    1466                 :          0 :             prefetch.erase(i); // invalidates i, so no more iteration!
    1467   [ #  #  #  #  :          0 :             inc_metric("fdcache_op_count","op","prefetch_clear");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    1468                 :          0 :             unlink (n.fd.c_str());
    1469         [ #  # ]:          0 :             set_metrics();
    1470                 :          0 :             return;
    1471                 :            :           }
    1472                 :            :       }
    1473                 :            :   }
    1474                 :            : 
    1475                 :        501 :   void limit(long maxfds, long maxmbs, long maxprefetchfds, long maxprefetchmbs , bool metrics_p = true)
    1476                 :            :   {
    1477   [ +  +  +  +  :        501 :     if (verbose > 3 && (this->max_fds != maxfds || this->max_mbs != maxmbs))
                   +  + ]
    1478   [ +  -  +  -  :        172 :       obatched(clog) << "fdcache limited to maxfds=" << maxfds << " maxmbs=" << maxmbs << endl;
             +  -  +  - ]
    1479                 :            : 
    1480                 :        501 :     unique_lock<mutex> lock(fdcache_lock);
    1481                 :        501 :     this->max_fds = maxfds;
    1482                 :        501 :     this->max_mbs = maxmbs;
    1483                 :        501 :     this->max_prefetch_fds = maxprefetchfds;
    1484                 :        501 :     this->max_prefetch_mbs = maxprefetchmbs;
    1485                 :        501 :     long total_fd = 0;
    1486                 :        501 :     double total_mb = 0.0;
    1487   [ +  +  +  + ]:       3543 :     for (auto i = lru.begin(); i < lru.end(); i++)
    1488                 :            :       {
    1489                 :            :         // accumulate totals from most recently used one going backward
    1490                 :       1118 :         total_fd ++;
    1491         [ +  + ]:       1118 :         total_mb += i->fd_size_mb;
    1492   [ +  +  +  + ]:       1118 :         if (total_fd > this->max_fds || total_mb > this->max_mbs)
    1493                 :            :           {
    1494                 :            :             // found the cut here point!
    1495                 :            : 
    1496   [ +  +  +  + ]:       1559 :             for (auto j = i; j < lru.end(); j++) // close all the fds from here on in
    1497                 :            :               {
    1498         [ +  + ]:        339 :                 if (verbose > 3)
    1499   [ +  -  +  -  :       1332 :                   obatched(clog) << "fdcache evicted a=" << j->archive << " b=" << j->entry
                   +  - ]
    1500   [ +  -  +  -  :        333 :                                  << " fd=" << j->fd << " mb=" << j->fd_size_mb << endl;
          +  -  +  -  +  
             -  +  -  +  
                      - ]
    1501         [ +  + ]:        339 :                 if (metrics_p)
    1502   [ +  -  +  -  :        560 :                   inc_metric("fdcache_op_count","op","evict");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    1503                 :        339 :                 unlink (j->fd.c_str());
    1504                 :            :               }
    1505                 :            : 
    1506                 :        271 :             lru.erase(i, lru.end()); // erase the nodes generally
    1507                 :        271 :             break;
    1508                 :            :           }
    1509                 :            :       }
    1510                 :        501 :     total_fd = 0;
    1511                 :        501 :     total_mb = 0.0;
    1512   [ +  +  +  + ]:       1068 :     for(auto i = prefetch.begin(); i < prefetch.end(); i++){
    1513                 :            :       // accumulate totals from most recently used one going backward
    1514                 :        284 :         total_fd ++;
    1515         [ +  + ]:        284 :         total_mb += i->fd_size_mb;
    1516   [ +  +  +  + ]:        284 :         if (total_fd > this->max_prefetch_fds || total_mb > this->max_prefetch_mbs)
    1517                 :            :           {
    1518                 :            :             // found the cut here point!
    1519   [ +  +  +  + ]:       1331 :             for (auto j = i; j < prefetch.end(); j++) // close all the fds from here on in
    1520                 :            :               {
    1521         [ +  + ]:        269 :                 if (verbose > 3)
    1522   [ +  -  +  -  :       1040 :                   obatched(clog) << "fdcache evicted from prefetch a=" << j->archive << " b=" << j->entry
                   +  - ]
    1523   [ +  -  +  -  :        260 :                                  << " fd=" << j->fd << " mb=" << j->fd_size_mb << endl;
          +  -  +  -  +  
             -  +  -  +  
                      - ]
    1524         [ +  + ]:        269 :                 if (metrics_p)
    1525   [ +  -  +  -  :        506 :                   inc_metric("fdcache_op_count","op","prefetch_evict");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    1526                 :        269 :                 unlink (j->fd.c_str());
    1527                 :            :               }
    1528                 :            : 
    1529                 :        262 :             prefetch.erase(i, prefetch.end()); // erase the nodes generally
    1530                 :        262 :             break;
    1531                 :            :           }
    1532                 :            :     }
    1533   [ +  +  +  - ]:        501 :     if (metrics_p) set_metrics();
    1534                 :        501 :   }
    1535                 :            : 
    1536                 :            : 
    1537                 :         34 :   ~libarchive_fdcache()
    1538                 :         34 :   {
    1539                 :            :     // unlink any fdcache entries in $TMPDIR
    1540                 :            :     // don't update metrics; those globals may be already destroyed
    1541                 :         34 :     limit(0, 0, 0, 0, false);
    1542                 :         34 :   }
    1543                 :            : };
    1544                 :            : static libarchive_fdcache fdcache;
    1545                 :            : 
    1546                 :            : /* Search ELF_FD for an ELF/DWARF section with name SECTION.
    1547                 :            :    If found copy the section to a temporary file and return
    1548                 :            :    its file descriptor, otherwise return -1.
    1549                 :            : 
    1550                 :            :    The temporary file's mtime will be set to PARENT_MTIME.
    1551                 :            :    B_SOURCE should be a description of the parent file suitable
    1552                 :            :    for printing to the log.  */
    1553                 :            : 
    1554                 :            : static int
    1555                 :          6 : extract_section (int elf_fd, int64_t parent_mtime,
    1556                 :            :                  const string& b_source, const string& section)
    1557                 :            : {
    1558                 :            :   /* Search the fdcache.  */
    1559                 :          6 :   struct stat fs;
    1560                 :          6 :   int fd = fdcache.lookup (b_source, section);
    1561         [ -  + ]:          6 :   if (fd >= 0)
    1562                 :            :     {
    1563         [ #  # ]:          0 :       if (fstat (fd, &fs) != 0)
    1564                 :            :         {
    1565         [ #  # ]:          0 :           if (verbose)
    1566         [ #  # ]:          0 :             obatched (clog) << "cannot fstate fdcache "
    1567   [ #  #  #  #  :          0 :                             << b_source << " " << section << endl;
                   #  # ]
    1568                 :          0 :           close (fd);
    1569                 :          0 :           return -1;
    1570                 :            :         }
    1571         [ #  # ]:          0 :       if ((int64_t) fs.st_mtime != parent_mtime)
    1572                 :            :         {
    1573         [ #  # ]:          0 :           if (verbose)
    1574         [ #  # ]:          0 :             obatched(clog) << "mtime mismatch for "
    1575   [ #  #  #  #  :          0 :                            << b_source << " " << section << endl;
                   #  # ]
    1576                 :          0 :           close (fd);
    1577                 :          0 :           return -1;
    1578                 :            :         }
    1579                 :            :       /* Success.  */
    1580                 :            :       return fd;
    1581                 :            :     }
    1582                 :            : 
    1583                 :          6 :   Elf *elf = elf_begin (elf_fd, ELF_C_READ_MMAP_PRIVATE, NULL);
    1584         [ +  - ]:          6 :   if (elf == NULL)
    1585                 :            :     return -1;
    1586                 :            : 
    1587                 :            :   /* Try to find the section and copy the contents into a separate file.  */
    1588                 :          6 :   try
    1589                 :            :     {
    1590                 :          6 :       size_t shstrndx;
    1591         [ +  - ]:          6 :       int rc = elf_getshdrstrndx (elf, &shstrndx);
    1592         [ -  + ]:          6 :       if (rc < 0)
    1593   [ #  #  #  # ]:          0 :         throw elfutils_exception (rc, "getshdrstrndx");
    1594                 :            : 
    1595                 :            :       Elf_Scn *scn = NULL;
    1596                 :        210 :       while (true)
    1597                 :            :         {
    1598         [ +  - ]:        108 :           scn = elf_nextscn (elf, scn);
    1599         [ +  - ]:        108 :           if (scn == NULL)
    1600                 :            :             break;
    1601                 :        108 :           GElf_Shdr shdr_storage;
    1602         [ +  - ]:        108 :           GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_storage);
    1603         [ +  - ]:        108 :           if (shdr == NULL)
    1604                 :            :             break;
    1605                 :            : 
    1606         [ +  - ]:        108 :           const char *scn_name = elf_strptr (elf, shstrndx, shdr->sh_name);
    1607         [ +  - ]:        108 :           if (scn_name == NULL)
    1608                 :            :             break;
    1609         [ +  + ]:        108 :           if (scn_name == section)
    1610                 :            :             {
    1611                 :          6 :               Elf_Data *data = NULL;
    1612                 :            : 
    1613                 :            :               /* We found the desired section.  */
    1614         [ +  - ]:          6 :               data = elf_rawdata (scn, NULL);
    1615         [ -  + ]:          6 :               if (data == NULL)
    1616   [ #  #  #  #  :          0 :                 throw elfutils_exception (elf_errno (), "elfraw_data");
                   #  # ]
    1617         [ +  + ]:          6 :               if (data->d_buf == NULL)
    1618                 :            :                 {
    1619   [ +  -  +  - ]:          4 :                   obatched(clog) << "section " << section
    1620   [ +  -  +  - ]:          2 :                                  << " is empty" << endl;
    1621                 :          2 :                   break;
    1622                 :            :                 }
    1623                 :            : 
    1624                 :            :               /* Create temporary file containing the section.  */
    1625                 :          4 :               char *tmppath = NULL;
    1626                 :          4 :               rc = asprintf (&tmppath, "%s/debuginfod.XXXXXX", tmpdir.c_str());
    1627         [ -  + ]:          4 :               if (rc < 0)
    1628   [ #  #  #  # ]:          0 :                 throw libc_exception (ENOMEM, "cannot allocate tmppath");
    1629                 :          6 :               defer_dtor<void*,void> tmmpath_freer (tmppath, free);
    1630         [ +  - ]:          4 :               fd = mkstemp (tmppath);
    1631         [ -  + ]:          4 :               if (fd < 0)
    1632   [ #  #  #  # ]:          0 :                 throw libc_exception (errno, "cannot create temporary file");
    1633         [ +  - ]:          4 :               ssize_t res = write_retry (fd, data->d_buf, data->d_size);
    1634   [ +  -  -  + ]:          4 :               if (res < 0 || (size_t) res != data->d_size)
    1635   [ #  #  #  # ]:          0 :                 throw libc_exception (errno, "cannot write to temporary file");
    1636                 :            : 
    1637                 :            :               /* Set mtime to be the same as the parent file's mtime.  */
    1638                 :          4 :               struct timespec tvs[2];
    1639         [ -  + ]:          4 :               if (fstat (elf_fd, &fs) != 0)
    1640   [ #  #  #  # ]:          0 :                 throw libc_exception (errno, "cannot fstat file");
    1641                 :            : 
    1642                 :          4 :               tvs[0].tv_sec = 0;
    1643                 :          4 :               tvs[0].tv_nsec = UTIME_OMIT;
    1644                 :          4 :               tvs[1] = fs.st_mtim;
    1645                 :          4 :               (void) futimens (fd, tvs);
    1646                 :            : 
    1647                 :            :               /* Add to fdcache.  */
    1648   [ +  -  +  - ]:          8 :               fdcache.intern (b_source, section, tmppath, data->d_size, true);
    1649                 :          4 :               break;
    1650                 :            :             }
    1651                 :        102 :         }
    1652                 :            :     }
    1653         [ -  - ]:          0 :   catch (const reportable_exception &e)
    1654                 :            :     {
    1655         [ -  - ]:          0 :       e.report (clog);
    1656         [ -  - ]:          0 :       close (fd);
    1657                 :          0 :       fd = -1;
    1658                 :            :     }
    1659                 :            : 
    1660                 :          6 :   elf_end (elf);
    1661                 :            :   return fd;
    1662                 :            : }
    1663                 :            : 
    1664                 :            : static struct MHD_Response*
    1665                 :         36 : handle_buildid_f_match (bool internal_req_t,
    1666                 :            :                         int64_t b_mtime,
    1667                 :            :                         const string& b_source0,
    1668                 :            :                         const string& section,
    1669                 :            :                         int *result_fd)
    1670                 :            : {
    1671                 :         36 :   (void) internal_req_t; // ignored
    1672                 :         36 :   int fd = open(b_source0.c_str(), O_RDONLY);
    1673         [ -  + ]:         36 :   if (fd < 0)
    1674   [ #  #  #  #  :          0 :     throw libc_exception (errno, string("open ") + b_source0);
          #  #  #  #  #  
                      # ]
    1675                 :            : 
    1676                 :            :   // NB: use manual close(2) in error case instead of defer_dtor, because
    1677                 :            :   // in the normal case, we want to hand the fd over to libmicrohttpd for
    1678                 :            :   // file transfer.
    1679                 :            : 
    1680                 :         36 :   struct stat s;
    1681                 :         36 :   int rc = fstat(fd, &s);
    1682         [ -  + ]:         36 :   if (rc < 0)
    1683                 :            :     {
    1684                 :          0 :       close(fd);
    1685   [ #  #  #  #  :          0 :       throw libc_exception (errno, string("fstat ") + b_source0);
          #  #  #  #  #  
                      # ]
    1686                 :            :     }
    1687                 :            : 
    1688         [ -  + ]:         36 :   if ((int64_t) s.st_mtime != b_mtime)
    1689                 :            :     {
    1690         [ #  # ]:          0 :       if (verbose)
    1691   [ #  #  #  # ]:          0 :         obatched(clog) << "mtime mismatch for " << b_source0 << endl;
    1692                 :          0 :       close(fd);
    1693                 :          0 :       return 0;
    1694                 :            :     }
    1695                 :            : 
    1696         [ +  + ]:         36 :   if (!section.empty ())
    1697                 :            :     {
    1698                 :          3 :       int scn_fd = extract_section (fd, s.st_mtime, b_source0, section);
    1699                 :          3 :       close (fd);
    1700                 :            : 
    1701         [ +  + ]:          3 :       if (scn_fd >= 0)
    1702                 :          2 :         fd = scn_fd;
    1703                 :            :       else
    1704                 :            :         {
    1705         [ +  - ]:          1 :           if (verbose)
    1706         [ +  - ]:          3 :             obatched (clog) << "cannot find section " << section
    1707   [ +  -  +  -  :          1 :                             << " for " << b_source0 << endl;
                   +  - ]
    1708                 :          1 :           return 0;
    1709                 :            :         }
    1710                 :            : 
    1711                 :          2 :       rc = fstat(fd, &s);
    1712         [ -  + ]:          2 :       if (rc < 0)
    1713                 :            :         {
    1714                 :          0 :           close (fd);
    1715   [ #  #  #  #  :          0 :           throw libc_exception (errno, string ("fstat ") + b_source0
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    1716   [ #  #  #  #  :          0 :                                        + string (" ") + section);
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    1717                 :            :         }
    1718                 :            :     }
    1719                 :            : 
    1720                 :         35 :   struct MHD_Response* r = MHD_create_response_from_fd ((uint64_t) s.st_size, fd);
    1721   [ +  -  +  -  :         70 :   inc_metric ("http_responses_total","result","file");
          +  -  -  +  -  
          +  -  +  -  -  
                   -  - ]
    1722         [ -  + ]:         35 :   if (r == 0)
    1723                 :            :     {
    1724         [ #  # ]:          0 :       if (verbose)
    1725         [ #  # ]:          0 :         obatched(clog) << "cannot create fd-response for " << b_source0
    1726   [ #  #  #  #  :          0 :                        << " section=" << section << endl;
                   #  # ]
    1727                 :          0 :       close(fd);
    1728                 :            :     }
    1729                 :            :   else
    1730                 :            :     {
    1731                 :         70 :       std::string file = b_source0.substr(b_source0.find_last_of("/")+1, b_source0.length());
    1732         [ +  - ]:         35 :       add_mhd_response_header (r, "Content-Type", "application/octet-stream");
    1733         [ +  - ]:         35 :       add_mhd_response_header (r, "X-DEBUGINFOD-SIZE",
    1734         [ +  - ]:         35 :                                to_string(s.st_size).c_str());
    1735         [ +  - ]:         35 :       add_mhd_response_header (r, "X-DEBUGINFOD-FILE", file.c_str());
    1736         [ +  - ]:         35 :       add_mhd_last_modified (r, s.st_mtime);
    1737         [ +  - ]:         35 :       if (verbose > 1)
    1738   [ +  -  +  -  :         70 :         obatched(clog) << "serving file " << b_source0 << " section=" << section << endl;
          +  -  +  -  +  
                -  -  - ]
    1739                 :            :       /* libmicrohttpd will close it. */
    1740         [ +  - ]:         35 :       if (result_fd)
    1741                 :         35 :         *result_fd = fd;
    1742                 :            :     }
    1743                 :            : 
    1744                 :            :   return r;
    1745                 :            : }
    1746                 :            : 
    1747                 :            : // For security/portability reasons, many distro-package archives have
    1748                 :            : // a "./" in front of path names; others have nothing, others have
    1749                 :            : // "/".  Canonicalize them all to a single leading "/", with the
    1750                 :            : // assumption that this matches the dwarf-derived file names too.
    1751                 :       1734 : string canonicalized_archive_entry_pathname(struct archive_entry *e)
    1752                 :            : {
    1753                 :       3468 :   string fn = archive_entry_pathname(e);
    1754         [ -  + ]:       1734 :   if (fn.size() == 0)
    1755         [ #  # ]:          0 :     return fn;
    1756         [ -  + ]:       1734 :   if (fn[0] == '/')
    1757   [ -  -  +  + ]:       1734 :     return fn;
    1758         [ +  + ]:       1734 :   if (fn[0] == '.')
    1759         [ +  - ]:       1136 :     return fn.substr(1);
    1760                 :            :   else
    1761   [ +  -  +  -  :       1196 :     return string("/")+fn;
                   -  - ]
    1762                 :            : }
    1763                 :            : 
    1764                 :            : 
    1765                 :            : 
    1766                 :            : static struct MHD_Response*
    1767                 :        392 : handle_buildid_r_match (bool internal_req_p,
    1768                 :            :                         int64_t b_mtime,
    1769                 :            :                         const string& b_source0,
    1770                 :            :                         const string& b_source1,
    1771                 :            :                         const string& section,
    1772                 :            :                         int *result_fd)
    1773                 :            : {
    1774                 :        392 :   struct stat fs;
    1775                 :        392 :   int rc = stat (b_source0.c_str(), &fs);
    1776         [ +  + ]:        392 :   if (rc != 0)
    1777   [ +  -  +  -  :         58 :     throw libc_exception (errno, string("stat ") + b_source0);
          +  -  -  +  -  
                      - ]
    1778                 :            : 
    1779         [ -  + ]:        363 :   if ((int64_t) fs.st_mtime != b_mtime)
    1780                 :            :     {
    1781         [ #  # ]:          0 :       if (verbose)
    1782   [ #  #  #  # ]:          0 :         obatched(clog) << "mtime mismatch for " << b_source0 << endl;
    1783                 :          0 :       return 0;
    1784                 :            :     }
    1785                 :            : 
    1786                 :            :   // check for a match in the fdcache first
    1787                 :        363 :   int fd = fdcache.lookup(b_source0, b_source1);
    1788         [ +  + ]:        363 :   while (fd >= 0) // got one!; NB: this is really an if() with a possible branch out to the end
    1789                 :            :     {
    1790                 :         35 :       rc = fstat(fd, &fs);
    1791         [ -  + ]:         35 :       if (rc < 0) // disappeared?
    1792                 :            :         {
    1793         [ #  # ]:          0 :           if (verbose)
    1794   [ #  #  #  # ]:          0 :             obatched(clog) << "cannot fstat fdcache " << b_source0 << endl;
    1795                 :          0 :           close(fd);
    1796                 :          0 :           fdcache.clear(b_source0, b_source1);
    1797                 :            :           break; // branch out of if "loop", to try new libarchive fetch attempt
    1798                 :            :         }
    1799                 :            : 
    1800         [ +  + ]:         35 :       if (!section.empty ())
    1801                 :            :         {
    1802   [ +  -  +  - ]:          1 :           int scn_fd = extract_section (fd, fs.st_mtime,
    1803   [ +  -  -  +  :          2 :                                         b_source0 + ":" + b_source1,
                   -  - ]
    1804                 :            :                                         section);
    1805                 :          1 :           close (fd);
    1806         [ -  + ]:          1 :           if (scn_fd >= 0)
    1807                 :          0 :             fd = scn_fd;
    1808                 :            :           else
    1809                 :            :             {
    1810         [ +  - ]:          1 :               if (verbose)
    1811         [ +  - ]:          3 :                 obatched (clog) << "cannot find section " << section
    1812                 :            :                                 << " for archive " << b_source0
    1813   [ +  -  +  -  :          1 :                                 << " file " << b_source1 << endl;
          +  -  +  -  +  
                      - ]
    1814                 :          1 :               return 0;
    1815                 :            :             }
    1816                 :            : 
    1817                 :          0 :           rc = fstat(fd, &fs);
    1818         [ #  # ]:          0 :           if (rc < 0)
    1819                 :            :             {
    1820                 :          0 :               close (fd);
    1821         [ #  # ]:          0 :               throw libc_exception (errno,
    1822   [ #  #  #  #  :          0 :                 string ("fstat archive ") + b_source0 + string (" file ") + b_source1
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                      # ]
    1823   [ #  #  #  #  :          0 :                 + string (" section ") + section);
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    1824                 :            :             }
    1825                 :            :         }
    1826                 :            : 
    1827                 :         34 :       struct MHD_Response* r = MHD_create_response_from_fd (fs.st_size, fd);
    1828         [ -  + ]:         34 :       if (r == 0)
    1829                 :            :         {
    1830         [ #  # ]:          0 :           if (verbose)
    1831   [ #  #  #  # ]:          0 :             obatched(clog) << "cannot create fd-response for " << b_source0 << endl;
    1832                 :          0 :           close(fd);
    1833                 :            :           break; // branch out of if "loop", to try new libarchive fetch attempt
    1834                 :            :         }
    1835                 :            : 
    1836   [ +  -  +  -  :         68 :       inc_metric ("http_responses_total","result","archive fdcache");
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    1837                 :            : 
    1838                 :         34 :       add_mhd_response_header (r, "Content-Type", "application/octet-stream");
    1839         [ +  - ]:         34 :       add_mhd_response_header (r, "X-DEBUGINFOD-SIZE",
    1840                 :         34 :                                to_string(fs.st_size).c_str());
    1841                 :         34 :       add_mhd_response_header (r, "X-DEBUGINFOD-ARCHIVE", b_source0.c_str());
    1842                 :         34 :       add_mhd_response_header (r, "X-DEBUGINFOD-FILE", b_source1.c_str());
    1843                 :         34 :       add_mhd_last_modified (r, fs.st_mtime);
    1844         [ +  - ]:         34 :       if (verbose > 1)
    1845         [ +  - ]:        102 :         obatched(clog) << "serving fdcache archive " << b_source0
    1846                 :            :                        << " file " << b_source1
    1847   [ +  -  +  -  :         34 :                        << " section=" << section << endl;
          +  -  +  -  +  
                      - ]
    1848                 :            :       /* libmicrohttpd will close it. */
    1849         [ +  - ]:         34 :       if (result_fd)
    1850                 :         34 :         *result_fd = fd;
    1851                 :            :       return r;
    1852                 :            :       // NB: see, we never go around the 'loop' more than once
    1853                 :            :     }
    1854                 :            : 
    1855                 :            :   // no match ... grumble, must process the archive
    1856                 :        691 :   string archive_decoder = "/dev/null";
    1857   [ +  -  +  + ]:        656 :   string archive_extension = "";
    1858         [ +  + ]:        927 :   for (auto&& arch : scan_archives)
    1859         [ +  + ]:        599 :     if (string_endswith(b_source0, arch.first))
    1860                 :            :       {
    1861         [ +  - ]:        328 :         archive_extension = arch.first;
    1862         [ +  - ]:        927 :         archive_decoder = arch.second;
    1863                 :            :       }
    1864                 :        328 :   FILE* fp;
    1865                 :        328 :   defer_dtor<FILE*,int>::dtor_fn dfn;
    1866         [ +  + ]:        328 :   if (archive_decoder != "cat")
    1867                 :            :     {
    1868   [ +  -  +  -  :        792 :       string popen_cmd = archive_decoder + " " + shell_escape(b_source0);
          +  -  -  +  -  
                -  -  - ]
    1869         [ +  - ]:        264 :       fp = popen (popen_cmd.c_str(), "r"); // "e" O_CLOEXEC?
    1870                 :        264 :       dfn = pclose;
    1871         [ -  + ]:        264 :       if (fp == NULL)
    1872   [ #  #  #  #  :          0 :         throw libc_exception (errno, string("popen ") + popen_cmd);
          #  #  #  #  #  
                      # ]
    1873                 :            :     }
    1874                 :            :   else
    1875                 :            :     {
    1876         [ +  - ]:         64 :       fp = fopen (b_source0.c_str(), "r");
    1877                 :         64 :       dfn = fclose;
    1878         [ -  + ]:         64 :       if (fp == NULL)
    1879   [ #  #  #  #  :          0 :         throw libc_exception (errno, string("fopen ") + b_source0);
          #  #  #  #  #  
                      # ]
    1880                 :            :     }
    1881         [ -  + ]:        328 :   defer_dtor<FILE*,int> fp_closer (fp, dfn);
    1882                 :            : 
    1883                 :        328 :   struct archive *a;
    1884         [ +  - ]:        328 :   a = archive_read_new();
    1885         [ -  + ]:        328 :   if (a == NULL)
    1886   [ #  #  #  # ]:          0 :     throw archive_exception("cannot create archive reader");
    1887                 :        328 :   defer_dtor<struct archive*,int> archive_closer (a, archive_read_free);
    1888                 :            : 
    1889         [ +  - ]:        328 :   rc = archive_read_support_format_all(a);
    1890         [ -  + ]:        328 :   if (rc != ARCHIVE_OK)
    1891   [ #  #  #  # ]:          0 :     throw archive_exception(a, "cannot select all format");
    1892         [ +  - ]:        328 :   rc = archive_read_support_filter_all(a);
    1893         [ -  + ]:        328 :   if (rc != ARCHIVE_OK)
    1894   [ #  #  #  # ]:          0 :     throw archive_exception(a, "cannot select all filters");
    1895                 :            : 
    1896         [ +  - ]:        328 :   rc = archive_read_open_FILE (a, fp);
    1897         [ -  + ]:        328 :   if (rc != ARCHIVE_OK)
    1898                 :            :     {
    1899   [ #  #  #  #  :          0 :       obatched(clog) << "cannot open archive from pipe " << b_source0 << endl;
                   #  # ]
    1900   [ #  #  #  # ]:          0 :       throw archive_exception(a, "cannot open archive from pipe");
    1901                 :            :     }
    1902                 :            : 
    1903                 :            :   // archive traversal is in three stages, no, four stages:
    1904                 :            :   // 1) skip entries whose names do not match the requested one
    1905                 :            :   // 2) extract the matching entry name (set r = result)
    1906                 :            :   // 3) extract some number of prefetched entries (just into fdcache)
    1907                 :            :   // 4) abort any further processing
    1908                 :        328 :   struct MHD_Response* r = 0;                 // will set in stage 2
    1909         [ +  + ]:        328 :   unsigned prefetch_count =
    1910                 :            :     internal_req_p ? 0 : fdcache_prefetch;    // will decrement in stage 3
    1911                 :            : 
    1912         [ +  + ]:       5067 :   while(r == 0 || prefetch_count > 0) // stage 1, 2, or 3
    1913                 :            :     {
    1914         [ +  - ]:       5057 :       if (interrupted)
    1915                 :            :         break;
    1916                 :            : 
    1917                 :       5057 :       struct archive_entry *e;
    1918         [ +  - ]:       5057 :       rc = archive_read_next_header (a, &e);
    1919         [ +  + ]:       5057 :       if (rc != ARCHIVE_OK)
    1920                 :            :         break;
    1921                 :            : 
    1922   [ +  -  +  + ]:       4739 :       if (! S_ISREG(archive_entry_mode (e))) // skip non-files completely
    1923                 :       3326 :         continue;
    1924                 :            : 
    1925         [ +  - ]:       1413 :       string fn = canonicalized_archive_entry_pathname (e);
    1926   [ +  +  +  + ]:       1413 :       if ((r == 0) && (fn != b_source1)) // stage 1
    1927                 :       5536 :         continue;
    1928                 :            : 
    1929   [ +  -  +  + ]:        616 :       if (fdcache.probe (b_source0, fn) && // skip if already interned
    1930         [ -  + ]:         12 :           fn != b_source1) // but only if we'd just be prefetching, PR29474
    1931                 :         12 :         continue;
    1932                 :            : 
    1933                 :            :       // extract this file to a temporary file
    1934                 :        604 :       char* tmppath = NULL;
    1935                 :        604 :       rc = asprintf (&tmppath, "%s/debuginfod.XXXXXX", tmpdir.c_str());
    1936         [ -  + ]:        604 :       if (rc < 0)
    1937   [ #  #  #  # ]:          0 :         throw libc_exception (ENOMEM, "cannot allocate tmppath");
    1938                 :        604 :       defer_dtor<void*,void> tmmpath_freer (tmppath, free);
    1939         [ +  - ]:        604 :       fd = mkstemp (tmppath);
    1940         [ -  + ]:        604 :       if (fd < 0)
    1941   [ #  #  #  # ]:          0 :         throw libc_exception (errno, "cannot create temporary file");
    1942                 :            :       // NB: don't unlink (tmppath), as fdcache will take charge of it.
    1943                 :            : 
    1944                 :            :       // NB: this can take many uninterruptible seconds for a huge file
    1945         [ +  - ]:        604 :       rc = archive_read_data_into_fd (a, fd);
    1946         [ -  + ]:        604 :       if (rc != ARCHIVE_OK) // e.g. ENOSPC!
    1947                 :            :         {
    1948         [ #  # ]:          0 :           close (fd);
    1949                 :          0 :           unlink (tmppath);
    1950   [ #  #  #  # ]:          0 :           throw archive_exception(a, "cannot extract file");
    1951                 :            :         }
    1952                 :            : 
    1953                 :            :       // Set the mtime so the fdcache file mtimes, even prefetched ones,
    1954                 :            :       // propagate to future webapi clients.
    1955                 :        604 :       struct timespec tvs[2];
    1956                 :        604 :       tvs[0].tv_sec = 0;
    1957                 :        604 :       tvs[0].tv_nsec = UTIME_OMIT;
    1958         [ +  - ]:        604 :       tvs[1].tv_sec = archive_entry_mtime(e);
    1959         [ +  - ]:        604 :       tvs[1].tv_nsec = archive_entry_mtime_nsec(e);
    1960                 :        604 :       (void) futimens (fd, tvs);  /* best effort */
    1961                 :            : 
    1962         [ +  + ]:        604 :       if (r != 0) // stage 3
    1963                 :            :         {
    1964                 :            :           // NB: now we know we have a complete reusable file; make fdcache
    1965                 :            :           // responsible for unlinking it later.
    1966   [ +  -  +  -  :        276 :           fdcache.intern(b_source0, fn,
                   +  - ]
    1967                 :            :                          tmppath, archive_entry_size(e),
    1968   [ +  -  +  - ]:        552 :                          false); // prefetched ones go to the prefetch cache
    1969                 :        276 :           prefetch_count --;
    1970         [ +  - ]:        276 :           close (fd); // we're not saving this fd to make a mhd-response from!
    1971         [ +  + ]:       1689 :           continue;
    1972                 :            :         }
    1973                 :            : 
    1974                 :            :       // NB: now we know we have a complete reusable file; make fdcache
    1975                 :            :       // responsible for unlinking it later.
    1976   [ +  -  +  -  :        328 :       fdcache.intern(b_source0, b_source1,
                   +  - ]
    1977                 :            :                      tmppath, archive_entry_size(e),
    1978   [ +  -  +  + ]:        656 :                      true); // requested ones go to the front of lru
    1979                 :            : 
    1980         [ +  + ]:        328 :       if (!section.empty ())
    1981                 :            :         {
    1982   [ +  -  +  - ]:          2 :           int scn_fd = extract_section (fd, b_mtime,
    1983   [ +  -  +  -  :          4 :                                         b_source0 + ":" + b_source1,
             -  +  -  - ]
    1984                 :            :                                         section);
    1985         [ +  - ]:          2 :           close (fd);
    1986         [ +  - ]:          2 :           if (scn_fd >= 0)
    1987                 :          2 :             fd = scn_fd;
    1988                 :            :           else
    1989                 :            :             {
    1990         [ #  # ]:          0 :               if (verbose)
    1991   [ #  #  #  # ]:          0 :                 obatched (clog) << "cannot find section " << section
    1992                 :            :                                 << " for archive " << b_source0
    1993   [ #  #  #  #  :          0 :                                 << " file " << b_source1 << endl;
          #  #  #  #  #  
                      # ]
    1994         [ #  # ]:          0 :               return 0;
    1995                 :            :             }
    1996                 :            : 
    1997                 :          2 :           rc = fstat(fd, &fs);
    1998         [ -  + ]:          2 :           if (rc < 0)
    1999                 :            :             {
    2000         [ #  # ]:          0 :               close (fd);
    2001         [ #  # ]:          0 :               throw libc_exception (errno,
    2002   [ #  #  #  #  :          0 :                 string ("fstat ") + b_source0 + string (" ") + section);
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    2003                 :            :             }
    2004         [ +  - ]:          2 :           r = MHD_create_response_from_fd (fs.st_size, fd);
    2005                 :            :         }
    2006                 :            :       else
    2007   [ +  -  +  - ]:        326 :         r = MHD_create_response_from_fd (archive_entry_size(e), fd);
    2008                 :            : 
    2009   [ +  -  +  -  :        656 :       inc_metric ("http_responses_total","result",archive_extension + " archive");
          +  -  +  -  -  
          +  +  +  -  -  
                   -  - ]
    2010         [ -  + ]:        328 :       if (r == 0)
    2011                 :            :         {
    2012         [ #  # ]:          0 :           if (verbose)
    2013   [ #  #  #  #  :          0 :             obatched(clog) << "cannot create fd-response for " << b_source0 << endl;
                   #  # ]
    2014         [ #  # ]:          0 :           close(fd);
    2015         [ #  # ]:          0 :           break; // assume no chance of better luck around another iteration; no other copies of same file
    2016                 :            :         }
    2017                 :            :       else
    2018                 :            :         {
    2019         [ +  - ]:        656 :           std::string file = b_source1.substr(b_source1.find_last_of("/")+1, b_source1.length());
    2020         [ +  - ]:        328 :           add_mhd_response_header (r, "Content-Type",
    2021                 :            :                                    "application/octet-stream");
    2022         [ +  - ]:        328 :           add_mhd_response_header (r, "X-DEBUGINFOD-SIZE",
    2023   [ +  -  +  - ]:        328 :                                    to_string(archive_entry_size(e)).c_str());
    2024         [ +  - ]:        328 :           add_mhd_response_header (r, "X-DEBUGINFOD-ARCHIVE",
    2025                 :            :                                    b_source0.c_str());
    2026         [ +  - ]:        328 :           add_mhd_response_header (r, "X-DEBUGINFOD-FILE", file.c_str());
    2027   [ +  -  +  - ]:        328 :           add_mhd_last_modified (r, archive_entry_mtime(e));
    2028         [ +  - ]:        328 :           if (verbose > 1)
    2029   [ +  -  +  -  :        984 :             obatched(clog) << "serving archive " << b_source0
                   -  - ]
    2030                 :            :                            << " file " << b_source1
    2031   [ +  -  +  -  :        328 :                            << " section=" << section << endl;
          +  -  +  -  +  
                      - ]
    2032                 :            :           /* libmicrohttpd will close it. */
    2033         [ +  - ]:        328 :           if (result_fd)
    2034                 :        328 :             *result_fd = fd;
    2035         [ +  + ]:        328 :           continue;
    2036                 :            :         }
    2037                 :            :     }
    2038                 :            : 
    2039                 :            :   // XXX: rpm/file not found: delete this R entry?
    2040                 :            :   return r;
    2041                 :            : }
    2042                 :            : 
    2043                 :            : 
    2044                 :            : static struct MHD_Response*
    2045                 :        428 : handle_buildid_match (bool internal_req_p,
    2046                 :            :                       int64_t b_mtime,
    2047                 :            :                       const string& b_stype,
    2048                 :            :                       const string& b_source0,
    2049                 :            :                       const string& b_source1,
    2050                 :            :                       const string& section,
    2051                 :            :                       int *result_fd)
    2052                 :            : {
    2053                 :        428 :   try
    2054                 :            :     {
    2055         [ +  + ]:        428 :       if (b_stype == "F")
    2056         [ +  - ]:         36 :         return handle_buildid_f_match(internal_req_p, b_mtime, b_source0,
    2057                 :            :                                       section, result_fd);
    2058         [ +  - ]:        392 :       else if (b_stype == "R")
    2059         [ +  + ]:        392 :         return handle_buildid_r_match(internal_req_p, b_mtime, b_source0,
    2060                 :            :                                       b_source1, section, result_fd);
    2061                 :            :     }
    2062         [ -  + ]:         58 :   catch (const reportable_exception &e)
    2063                 :            :     {
    2064         [ +  - ]:         29 :       e.report(clog);
    2065                 :            :       // Report but swallow libc etc. errors here; let the caller
    2066                 :            :       // iterate to other matches of the content.
    2067                 :            :     }
    2068                 :            : 
    2069                 :            :   return 0;
    2070                 :            : }
    2071                 :            : 
    2072                 :            : 
    2073                 :            : static int
    2074                 :        347 : debuginfod_find_progress (debuginfod_client *, long a, long b)
    2075                 :            : {
    2076         [ -  + ]:        347 :   if (verbose > 4)
    2077   [ #  #  #  #  :          0 :     obatched(clog) << "federated debuginfod progress=" << a << "/" << b << endl;
          #  #  #  #  #  
                      # ]
    2078                 :            : 
    2079                 :        347 :   return interrupted;
    2080                 :            : }
    2081                 :            : 
    2082                 :            : 
    2083                 :            : // a little lru pool of debuginfod_client*s for reuse between query threads
    2084                 :            : 
    2085                 :            : mutex dc_pool_lock;
    2086                 :            : deque<debuginfod_client*> dc_pool;
    2087                 :            : 
    2088                 :        238 : debuginfod_client* debuginfod_pool_begin()
    2089                 :            : {
    2090                 :        476 :   unique_lock<mutex> lock(dc_pool_lock);
    2091         [ +  + ]:        238 :   if (dc_pool.size() > 0)
    2092                 :            :     {
    2093   [ +  -  +  -  :        450 :       inc_metric("dc_pool_op_count","op","begin-reuse");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    2094                 :        225 :       debuginfod_client *c = dc_pool.front();
    2095                 :        225 :       dc_pool.pop_front();
    2096                 :        225 :       return c;
    2097                 :            :     }
    2098   [ +  -  +  -  :         26 :   inc_metric("dc_pool_op_count","op","begin-new");
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    2099         [ +  - ]:         13 :   return debuginfod_begin();
    2100                 :            : }
    2101                 :            : 
    2102                 :            : 
    2103                 :         67 : void debuginfod_pool_groom()
    2104                 :            : {
    2105                 :         67 :   unique_lock<mutex> lock(dc_pool_lock);
    2106         [ +  + ]:         80 :   while (dc_pool.size() > 0)
    2107                 :            :     {
    2108   [ +  -  +  -  :         26 :       inc_metric("dc_pool_op_count","op","end");
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    2109         [ +  - ]:         13 :       debuginfod_end(dc_pool.front());
    2110                 :         13 :       dc_pool.pop_front();
    2111                 :            :     }
    2112                 :         67 : }
    2113                 :            : 
    2114                 :            : 
    2115                 :        238 : void debuginfod_pool_end(debuginfod_client* c)
    2116                 :            : {
    2117                 :        238 :   unique_lock<mutex> lock(dc_pool_lock);
    2118   [ +  -  +  -  :        476 :   inc_metric("dc_pool_op_count","op","end-save");
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    2119         [ +  - ]:        238 :   dc_pool.push_front(c); // accelerate reuse, vs. push_back
    2120                 :        238 : }
    2121                 :            : 
    2122                 :            : 
    2123                 :            : static struct MHD_Response*
    2124                 :        638 : handle_buildid (MHD_Connection* conn,
    2125                 :            :                 const string& buildid /* unsafe */,
    2126                 :            :                 string& artifacttype /* unsafe, cleanse on exception/return */,
    2127                 :            :                 const string& suffix /* unsafe */,
    2128                 :            :                 int *result_fd)
    2129                 :            : {
    2130                 :            :   // validate artifacttype
    2131                 :       1037 :   string atype_code;
    2132   [ +  +  +  - ]:        638 :   if (artifacttype == "debuginfo") atype_code = "D";
    2133   [ +  +  +  - ]:        269 :   else if (artifacttype == "executable") atype_code = "E";
    2134   [ +  +  +  - ]:         34 :   else if (artifacttype == "source") atype_code = "S";
    2135   [ +  +  +  - ]:          6 :   else if (artifacttype == "section") atype_code = "I";
    2136                 :            :   else {
    2137         [ +  - ]:          2 :     artifacttype = "invalid"; // PR28242 ensure http_resposes metrics don't propagate unclean user data 
    2138   [ +  -  +  - ]:          6 :     throw reportable_exception("invalid artifacttype");
    2139                 :            :   }
    2140                 :            : 
    2141         [ +  + ]:        636 :   if (conn != 0)
    2142   [ +  -  +  -  :       1471 :     inc_metric("http_requests_total", "type", artifacttype);
          +  -  -  +  -  
                -  -  + ]
    2143                 :            : 
    2144         [ -  + ]:       1272 :   string section;
    2145         [ +  + ]:        636 :   if (atype_code == "I")
    2146                 :            :     {
    2147         [ -  + ]:          4 :       if (suffix.size () < 2)
    2148   [ #  #  #  # ]:          0 :         throw reportable_exception ("invalid section suffix");
    2149                 :            : 
    2150                 :            :       // Remove leading '/'
    2151   [ +  -  -  + ]:          4 :       section = suffix.substr(1);
    2152                 :            :     }
    2153                 :            : 
    2154   [ +  +  -  + ]:        664 :   if (atype_code == "S" && suffix == "")
    2155   [ #  #  #  # ]:          0 :      throw reportable_exception("invalid source suffix");
    2156                 :            : 
    2157                 :            :   // validate buildid
    2158         [ +  + ]:        636 :   if ((buildid.size() < 2) || // not empty
    2159   [ +  +  +  -  :       1271 :       (buildid.size() % 2) || // even number
                   +  - ]
    2160                 :        635 :       (buildid.find_first_not_of("0123456789abcdef") != string::npos)) // pure tasty lowercase hex
    2161   [ +  -  -  + ]:          2 :     throw reportable_exception("invalid buildid");
    2162                 :            : 
    2163         [ +  - ]:        635 :   if (verbose > 1)
    2164   [ +  -  +  - ]:       1905 :     obatched(clog) << "searching for buildid=" << buildid << " artifacttype=" << artifacttype
    2165   [ +  -  +  -  :        635 :          << " suffix=" << suffix << endl;
          +  -  +  -  +  
                      - ]
    2166                 :            : 
    2167                 :            :   // If invoked from the scanner threads, use the scanners' read-write
    2168                 :            :   // connection.  Otherwise use the web query threads' read-only connection.
    2169         [ +  + ]:        635 :   sqlite3 *thisdb = (conn == 0) ? db : dbq;
    2170                 :            : 
    2171                 :        635 :   sqlite_ps *pp = 0;
    2172                 :            : 
    2173         [ +  + ]:        635 :   if (atype_code == "D")
    2174                 :            :     {
    2175   [ +  -  +  - ]:        738 :       pp = new sqlite_ps (thisdb, "mhd-query-d",
    2176                 :            :                           "select mtime, sourcetype, source0, source1 from " BUILDIDS "_query_d where buildid = ? "
    2177   [ +  -  +  -  :        975 :                           "order by mtime desc");
          +  -  +  -  -  
          +  +  -  -  -  
                   -  + ]
    2178         [ +  - ]:        369 :       pp->reset();
    2179         [ +  - ]:        369 :       pp->bind(1, buildid);
    2180                 :            :     }
    2181         [ +  + ]:        266 :   else if (atype_code == "E")
    2182                 :            :     {
    2183   [ +  -  +  - ]:        468 :       pp = new sqlite_ps (thisdb, "mhd-query-e",
    2184                 :            :                           "select mtime, sourcetype, source0, source1 from " BUILDIDS "_query_e where buildid = ? "
    2185   [ +  -  +  -  :        468 :                           "order by mtime desc");
          +  -  +  -  -  
             +  +  -  -  
                      - ]
    2186         [ +  - ]:        234 :       pp->reset();
    2187         [ +  - ]:        234 :       pp->bind(1, buildid);
    2188                 :            :     }
    2189         [ +  + ]:         32 :   else if (atype_code == "S")
    2190                 :            :     {
    2191                 :            :       // PR25548
    2192                 :            :       // Incoming source queries may come in with either dwarf-level OR canonicalized paths.
    2193                 :            :       // We let the query pass with either one.
    2194                 :            : 
    2195   [ +  -  +  - ]:         56 :       pp = new sqlite_ps (thisdb, "mhd-query-s",
    2196                 :            :                           "select mtime, sourcetype, source0, source1 from " BUILDIDS "_query_s where buildid = ? and artifactsrc in (?,?) "
    2197   [ +  -  +  -  :         56 :                           "order by sharedprefix(source0,source0ref) desc, mtime desc");
          +  -  +  -  -  
             +  +  -  -  
                      - ]
    2198         [ +  - ]:         28 :       pp->reset();
    2199         [ +  - ]:         28 :       pp->bind(1, buildid);
    2200                 :            :       // NB: we don't store the non-canonicalized path names any more, but old databases
    2201                 :            :       // might have them (and no canon ones), so we keep searching for both.
    2202         [ +  - ]:         28 :       pp->bind(2, suffix);
    2203   [ +  -  +  - ]:         56 :       pp->bind(3, canon_pathname(suffix));
    2204                 :            :     }
    2205         [ +  - ]:          4 :   else if (atype_code == "I")
    2206                 :            :     {
    2207   [ +  -  +  - ]:          8 :       pp = new sqlite_ps (thisdb, "mhd-query-i",
    2208                 :            :         "select mtime, sourcetype, source0, source1, 1 as debug_p from " BUILDIDS "_query_d where buildid = ? "
    2209                 :            :         "union all "
    2210                 :            :         "select mtime, sourcetype, source0, source1, 0 as debug_p from " BUILDIDS "_query_e where buildid = ? "
    2211   [ +  -  +  -  :        245 :         "order by debug_p desc, mtime desc");
          +  -  +  -  -  
          +  +  -  -  -  
                   -  + ]
    2212         [ +  - ]:          4 :       pp->reset();
    2213         [ +  - ]:          4 :       pp->bind(1, buildid);
    2214         [ +  - ]:          4 :       pp->bind(2, buildid);
    2215                 :            :     }
    2216         [ -  + ]:       1270 :   unique_ptr<sqlite_ps> ps_closer(pp); // release pp if exception or return
    2217                 :            : 
    2218                 :        635 :   bool do_upstream_section_query = true;
    2219                 :            : 
    2220                 :            :   // consume all the rows
    2221                 :        666 :   while (1)
    2222                 :            :     {
    2223         [ +  - ]:        666 :       int rc = pp->step();
    2224         [ +  + ]:        666 :       if (rc == SQLITE_DONE) break;
    2225         [ -  + ]:        428 :       if (rc != SQLITE_ROW)
    2226   [ #  #  #  # ]:          0 :         throw sqlite_exception(rc, "step");
    2227                 :            : 
    2228         [ +  - ]:        428 :       int64_t b_mtime = sqlite3_column_int64 (*pp, 0);
    2229   [ +  -  -  +  :        459 :       string b_stype = string((const char*) sqlite3_column_text (*pp, 1) ?: ""); /* by DDL may not be NULL */
                   +  - ]
    2230   [ +  -  -  +  :        459 :       string b_source0 = string((const char*) sqlite3_column_text (*pp, 2) ?: ""); /* may be NULL */
             +  -  -  + ]
    2231   [ +  -  +  +  :        495 :       string b_source1 = string((const char*) sqlite3_column_text (*pp, 3) ?: ""); /* may be NULL */
             +  -  +  - ]
    2232                 :            : 
    2233         [ +  - ]:        428 :       if (verbose > 1)
    2234   [ +  -  +  -  :       1284 :         obatched(clog) << "found mtime=" << b_mtime << " stype=" << b_stype
                   -  - ]
    2235   [ +  -  +  -  :        428 :              << " source0=" << b_source0 << " source1=" << b_source1 << endl;
          +  -  +  -  +  
             -  +  -  +  
                      - ]
    2236                 :            : 
    2237                 :            :       // Try accessing the located match.
    2238                 :            :       // XXX: in case of multiple matches, attempt them in parallel?
    2239         [ +  - ]:        428 :       auto r = handle_buildid_match (conn ? false : true,
    2240                 :            :                                      b_mtime, b_stype, b_source0, b_source1,
    2241                 :            :                                      section, result_fd);
    2242         [ +  + ]:        428 :       if (r)
    2243   [ +  +  +  - ]:        759 :         return r;
    2244                 :            : 
    2245                 :            :       // If a debuginfo file matching BUILDID was found but didn't contain
    2246                 :            :       // the desired section, then the section should not exist.  Don't
    2247                 :            :       // bother querying upstream servers.
    2248   [ +  +  +  -  :         31 :       if (!section.empty () && (sqlite3_column_int (*pp, 4) == 1))
                   +  - ]
    2249                 :            :         {
    2250                 :          2 :           struct stat st;
    2251                 :            : 
    2252                 :            :           // For "F" sourcetype, check if the debuginfo exists. For "R"
    2253                 :            :           // sourcetype, check if the debuginfo was interned into the fdcache.
    2254         [ -  + ]:          3 :           if ((b_stype == "F" && (stat (b_source0.c_str (), &st) == 0))
    2255   [ +  +  +  -  :          3 :               || (b_stype == "R" && fdcache.probe (b_source0, b_source1)))
             +  -  +  - ]
    2256                 :            :             do_upstream_section_query = false;
    2257                 :            :         }
    2258                 :            :     }
    2259         [ +  - ]:        238 :   pp->reset();
    2260                 :            : 
    2261         [ -  + ]:        238 :   if (!do_upstream_section_query)
    2262   [ #  #  #  # ]:          0 :     throw reportable_exception(MHD_HTTP_NOT_FOUND, "not found");
    2263                 :            : 
    2264                 :            :   // We couldn't find it in the database.  Last ditch effort
    2265                 :            :   // is to defer to other debuginfo servers.
    2266                 :            : 
    2267                 :        238 :   int fd = -1;
    2268         [ +  - ]:        238 :   debuginfod_client *client = debuginfod_pool_begin ();
    2269         [ -  + ]:        238 :   if (client == NULL)
    2270   [ #  #  #  # ]:          0 :     throw libc_exception(errno, "debuginfod client pool alloc");
    2271                 :        635 :   defer_dtor<debuginfod_client*,void> client_closer (client, debuginfod_pool_end);
    2272                 :            :   
    2273         [ +  - ]:        238 :   debuginfod_set_progressfn (client, & debuginfod_find_progress);
    2274                 :            : 
    2275         [ +  - ]:        238 :   if (conn)
    2276                 :            :     {
    2277                 :            :       // Transcribe incoming User-Agent:
    2278   [ +  -  -  +  :        476 :       string ua = MHD_lookup_connection_value (conn, MHD_HEADER_KIND, "User-Agent") ?: "";
                   +  - ]
    2279   [ +  -  +  -  :        714 :       string ua_complete = string("User-Agent: ") + ua;
          +  -  +  +  +  
                      - ]
    2280         [ +  - ]:        238 :       debuginfod_add_http_header (client, ua_complete.c_str());
    2281                 :            :       
    2282                 :            :       // Compute larger XFF:, for avoiding info loss during
    2283                 :            :       // federation, and for future cyclicity detection.
    2284   [ +  -  +  +  :        705 :       string xff = MHD_lookup_connection_value (conn, MHD_HEADER_KIND, "X-Forwarded-For") ?: "";
             +  -  +  - ]
    2285         [ +  + ]:        238 :       if (xff != "")
    2286   [ +  -  -  +  :         20 :         xff += string(", "); // comma separated list
                   -  + ]
    2287                 :            :       
    2288                 :        238 :       unsigned int xff_count = 0;
    2289         [ +  + ]:        358 :       for (auto&& i : xff){
    2290         [ +  + ]:        120 :         if (i == ',') xff_count++;
    2291                 :            :       }
    2292                 :            : 
    2293                 :            :       // if X-Forwarded-For: exceeds N hops,
    2294                 :            :       // do not delegate a local lookup miss to upstream debuginfods.
    2295         [ +  + ]:        238 :       if (xff_count >= forwarded_ttl_limit)
    2296         [ +  - ]:          2 :         throw reportable_exception(MHD_HTTP_NOT_FOUND, "not found, --forwared-ttl-limit reached \
    2297         [ +  - ]:          4 : and will not query the upstream servers");
    2298                 :            : 
    2299                 :            :       // Compute the client's numeric IP address only - so can't merge with conninfo()
    2300         [ +  - ]:        236 :       const union MHD_ConnectionInfo *u = MHD_get_connection_info (conn,
    2301                 :            :                                                                    MHD_CONNECTION_INFO_CLIENT_ADDRESS);
    2302         [ +  - ]:        236 :       struct sockaddr *so = u ? u->client_addr : 0;
    2303                 :        236 :       char hostname[256] = ""; // RFC1035
    2304   [ +  -  -  + ]:        236 :       if (so && so->sa_family == AF_INET) {
    2305         [ #  # ]:          0 :         (void) getnameinfo (so, sizeof (struct sockaddr_in), hostname, sizeof (hostname), NULL, 0,
    2306                 :            :                             NI_NUMERICHOST);
    2307   [ +  -  +  - ]:        236 :       } else if (so && so->sa_family == AF_INET6) {
    2308                 :        236 :         struct sockaddr_in6* addr6 = (struct sockaddr_in6*) so;
    2309   [ +  -  +  -  :        236 :         if (IN6_IS_ADDR_V4MAPPED(&addr6->sin6_addr)) {
                   -  + ]
    2310                 :        236 :           struct sockaddr_in addr4;
    2311         [ +  - ]:        236 :           memset (&addr4, 0, sizeof(addr4));
    2312                 :        236 :           addr4.sin_family = AF_INET;
    2313                 :        236 :           addr4.sin_port = addr6->sin6_port;
    2314         [ +  - ]:        236 :           memcpy (&addr4.sin_addr.s_addr, addr6->sin6_addr.s6_addr+12, sizeof(addr4.sin_addr.s_addr));
    2315         [ +  - ]:        236 :           (void) getnameinfo ((struct sockaddr*) &addr4, sizeof (addr4),
    2316                 :            :                               hostname, sizeof (hostname), NULL, 0,
    2317                 :            :                               NI_NUMERICHOST);
    2318                 :            :         } else {
    2319         [ #  # ]:          0 :           (void) getnameinfo (so, sizeof (struct sockaddr_in6), hostname, sizeof (hostname), NULL, 0,
    2320                 :            :                               NI_NUMERICHOST);
    2321                 :            :         }
    2322                 :            :       }
    2323                 :            :           
    2324   [ +  -  +  -  :        710 :       string xff_complete = string("X-Forwarded-For: ")+xff+string(hostname);
          +  -  +  -  -  
          +  -  +  +  -  
          +  +  -  -  -  
                -  -  + ]
    2325         [ +  - ]:        236 :       debuginfod_add_http_header (client, xff_complete.c_str());
    2326                 :            :     }
    2327                 :            :   
    2328         [ +  + ]:        236 :   if (artifacttype == "debuginfo")
    2329         [ +  - ]:         34 :     fd = debuginfod_find_debuginfo (client,
    2330         [ +  - ]:         34 :                                     (const unsigned char*) buildid.c_str(),
    2331                 :            :                                     0, NULL);
    2332         [ +  + ]:        202 :   else if (artifacttype == "executable")
    2333         [ +  - ]:        201 :     fd = debuginfod_find_executable (client,
    2334         [ +  - ]:        201 :                                      (const unsigned char*) buildid.c_str(),
    2335                 :            :                                      0, NULL);
    2336         [ +  - ]:          1 :   else if (artifacttype == "source")
    2337         [ +  - ]:          1 :     fd = debuginfod_find_source (client,
    2338         [ +  - ]:          1 :                                  (const unsigned char*) buildid.c_str(),
    2339                 :            :                                  0, suffix.c_str(), NULL);
    2340         [ #  # ]:          0 :   else if (artifacttype == "section")
    2341         [ #  # ]:          0 :     fd = debuginfod_find_section (client,
    2342         [ #  # ]:          0 :                                   (const unsigned char*) buildid.c_str(),
    2343                 :            :                                   0, section.c_str(), NULL);
    2344                 :            :   
    2345         [ +  + ]:        236 :   if (fd >= 0)
    2346                 :            :     {
    2347         [ +  - ]:          2 :       if (conn != 0)
    2348   [ +  -  +  -  :        240 :         inc_metric ("http_responses_total","result","upstream");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    2349                 :          2 :       struct stat s;
    2350                 :          2 :       int rc = fstat (fd, &s);
    2351         [ +  - ]:          2 :       if (rc == 0)
    2352                 :            :         {
    2353         [ +  - ]:          2 :           auto r = MHD_create_response_from_fd ((uint64_t) s.st_size, fd);
    2354         [ +  - ]:          2 :           if (r)
    2355                 :            :             {
    2356         [ +  - ]:          2 :               add_mhd_response_header (r, "Content-Type",
    2357                 :            :                                        "application/octet-stream");
    2358                 :            :               // Copy the incoming headers
    2359         [ +  - ]:          2 :               const char * hdrs = debuginfod_get_headers(client);
    2360         [ +  - ]:          4 :               string header_dup;
    2361         [ +  - ]:          2 :               if (hdrs)
    2362   [ +  -  -  + ]:          2 :                 header_dup = string(hdrs);
    2363                 :            :               // Parse the "header: value\n" lines into (h,v) tuples and pass on
    2364                 :         10 :               while(1)
    2365                 :            :                 {
    2366                 :          6 :                   size_t newline = header_dup.find('\n');
    2367         [ +  + ]:          6 :                   if (newline == string::npos) break;
    2368                 :          4 :                   size_t colon = header_dup.find(':');
    2369         [ +  - ]:          4 :                   if (colon == string::npos) break;
    2370         [ +  - ]:          4 :                   string header = header_dup.substr(0,colon);
    2371   [ +  -  +  - ]:          8 :                   string value = header_dup.substr(colon+1,newline-colon-1);
    2372                 :            :                   // strip leading spaces from value
    2373                 :          4 :                   size_t nonspace = value.find_first_not_of(" ");
    2374         [ +  - ]:          4 :                   if (nonspace != string::npos)
    2375   [ +  -  -  + ]:          4 :                     value = value.substr(nonspace);
    2376         [ +  - ]:          4 :                   add_mhd_response_header(r, header.c_str(), value.c_str());
    2377   [ +  -  +  +  :          6 :                   header_dup = header_dup.substr(newline+1);
                   -  + ]
    2378                 :          4 :                 }
    2379                 :            : 
    2380         [ +  - ]:          2 :               add_mhd_last_modified (r, s.st_mtime);
    2381         [ +  - ]:          2 :               if (verbose > 1)
    2382   [ +  -  +  -  :          4 :                 obatched(clog) << "serving file from upstream debuginfod/cache" << endl;
                   -  - ]
    2383         [ +  - ]:          2 :               if (result_fd)
    2384                 :          2 :                 *result_fd = fd;
    2385         [ +  - ]:          2 :               return r; // NB: don't close fd; libmicrohttpd will
    2386                 :            :             }
    2387                 :            :         }
    2388         [ #  # ]:          0 :       close (fd);
    2389                 :            :     }
    2390                 :            :   else
    2391         [ +  + ]:        234 :     switch(fd)
    2392                 :            :       {
    2393                 :            :       case -ENOSYS:
    2394                 :            :         break;
    2395                 :            :       case -ENOENT:
    2396                 :            :         break;
    2397                 :        110 :       default: // some more tricky error
    2398   [ +  -  +  - ]:        220 :         throw libc_exception(-fd, "upstream debuginfod query failed");
    2399                 :            :       }
    2400                 :            : 
    2401   [ +  -  -  + ]:        248 :   throw reportable_exception(MHD_HTTP_NOT_FOUND, "not found");
    2402                 :            : }
    2403                 :            : 
    2404                 :            : 
    2405                 :            : ////////////////////////////////////////////////////////////////////////
    2406                 :            : 
    2407                 :            : static map<string,double> metrics; // arbitrary data for /metrics query
    2408                 :            : // NB: store int64_t since all our metrics are integers; prometheus accepts double
    2409                 :            : static mutex metrics_lock;
    2410                 :            : // NB: these objects get released during the process exit via global dtors
    2411                 :            : // do not call them from within other global dtors
    2412                 :            : 
    2413                 :            : // utility function for assembling prometheus-compatible
    2414                 :            : // name="escaped-value" strings
    2415                 :            : // https://prometheus.io/docs/instrumenting/exposition_formats/
    2416                 :            : static string
    2417                 :      61984 : metric_label(const string& name, const string& value)
    2418                 :            : {
    2419                 :      61984 :   string x = name + "=\"";
    2420         [ +  + ]:     807206 :   for (auto&& c : value)
    2421   [ -  -  -  + ]:     745257 :     switch(c)
    2422                 :            :       {
    2423         [ #  # ]:          0 :       case '\\': x += "\\\\"; break;
    2424         [ #  # ]:          0 :       case '\"': x += "\\\""; break;
    2425         [ #  # ]:          0 :       case '\n': x += "\\n"; break;
    2426         [ +  - ]:    1490504 :       default: x += c; break;
    2427                 :            :       }
    2428         [ +  - ]:      61949 :   x += "\"";
    2429                 :      61957 :   return x;
    2430                 :            : }
    2431                 :            : 
    2432                 :            : 
    2433                 :            : // add prometheus-format metric name + label tuple (if any) + value
    2434                 :            : 
    2435                 :            : static void
    2436                 :       4368 : set_metric(const string& metric, double value)
    2437                 :            : {
    2438                 :       4368 :   unique_lock<mutex> lock(metrics_lock);
    2439   [ +  -  +  - ]:       4368 :   metrics[metric] = value;
    2440                 :       4368 : }
    2441                 :            : #if 0 /* unused */
    2442                 :            : static void
    2443                 :            : inc_metric(const string& metric)
    2444                 :            : {
    2445                 :            :   unique_lock<mutex> lock(metrics_lock);
    2446                 :            :   metrics[metric] ++;
    2447                 :            : }
    2448                 :            : #endif
    2449                 :            : static void
    2450                 :       3397 : set_metric(const string& metric,
    2451                 :            :            const string& lname, const string& lvalue,
    2452                 :            :            double value)
    2453                 :            : {
    2454   [ +  -  +  -  :       6792 :   string key = (metric + "{" + metric_label(lname, lvalue) + "}");
          +  -  -  +  +  
             +  -  -  -  
                      - ]
    2455   [ +  -  +  - ]:       6792 :   unique_lock<mutex> lock(metrics_lock);
    2456   [ +  -  +  - ]:       3397 :   metrics[key] = value;
    2457                 :       3397 : }
    2458                 :            : 
    2459                 :            : static void
    2460                 :      24389 : inc_metric(const string& metric,
    2461                 :            :            const string& lname, const string& lvalue)
    2462                 :            : {
    2463   [ +  -  +  -  :      48839 :   string key = (metric + "{" + metric_label(lname, lvalue) + "}");
          +  -  +  +  +  
             +  -  -  -  
                      - ]
    2464   [ +  -  +  - ]:      48772 :   unique_lock<mutex> lock(metrics_lock);
    2465   [ +  -  +  - ]:      24390 :   metrics[key] ++;
    2466                 :      24389 : }
    2467                 :            : static void
    2468                 :      22691 : add_metric(const string& metric,
    2469                 :            :            const string& lname, const string& lvalue,
    2470                 :            :            double value)
    2471                 :            : {
    2472   [ +  -  +  -  :      45442 :   string key = (metric + "{" + metric_label(lname, lvalue) + "}");
          +  -  +  +  +  
             +  -  -  -  
                      - ]
    2473   [ +  -  +  - ]:      45381 :   unique_lock<mutex> lock(metrics_lock);
    2474   [ +  -  +  - ]:      22695 :   metrics[key] += value;
    2475                 :      22695 : }
    2476                 :            : #if 0
    2477                 :            : static void
    2478                 :            : add_metric(const string& metric,
    2479                 :            :            double value)
    2480                 :            : {
    2481                 :            :   unique_lock<mutex> lock(metrics_lock);
    2482                 :            :   metrics[metric] += value;
    2483                 :            : }
    2484                 :            : #endif
    2485                 :            : 
    2486                 :            : 
    2487                 :            : // and more for higher arity labels if needed
    2488                 :            : 
    2489                 :            : static void
    2490                 :       2883 : inc_metric(const string& metric,
    2491                 :            :            const string& lname, const string& lvalue,
    2492                 :            :            const string& rname, const string& rvalue)
    2493                 :            : {
    2494   [ +  -  -  +  :       5766 :   string key = (metric + "{"
                   -  - ]
    2495   [ +  -  +  -  :      11532 :                 + metric_label(lname, lvalue) + ","
          +  -  -  +  -  
          +  +  +  -  -  
             -  -  -  - ]
    2496   [ +  -  +  -  :       8649 :                 + metric_label(rname, rvalue) + "}");
             -  +  -  - ]
    2497   [ +  -  +  - ]:       5766 :   unique_lock<mutex> lock(metrics_lock);
    2498   [ +  -  +  - ]:       2883 :   metrics[key] ++;
    2499                 :       2883 : }
    2500                 :            : static void
    2501                 :       2883 : add_metric(const string& metric,
    2502                 :            :            const string& lname, const string& lvalue,
    2503                 :            :            const string& rname, const string& rvalue,
    2504                 :            :            double value)
    2505                 :            : {
    2506   [ +  -  -  +  :       5766 :   string key = (metric + "{"
                   -  - ]
    2507   [ +  -  +  -  :      11532 :                 + metric_label(lname, lvalue) + ","
          +  -  -  +  -  
          +  +  +  -  -  
             -  -  -  - ]
    2508   [ +  -  +  -  :       8649 :                 + metric_label(rname, rvalue) + "}");
             -  +  -  - ]
    2509   [ +  -  +  - ]:       5766 :   unique_lock<mutex> lock(metrics_lock);
    2510   [ +  -  +  - ]:       2883 :   metrics[key] += value;
    2511                 :       2883 : }
    2512                 :            : 
    2513                 :            : static struct MHD_Response*
    2514                 :        340 : handle_metrics (off_t* size)
    2515                 :            : {
    2516                 :        340 :   stringstream o;
    2517                 :        340 :   {
    2518         [ +  - ]:        340 :     unique_lock<mutex> lock(metrics_lock);
    2519         [ +  + ]:      30017 :     for (auto&& i : metrics)
    2520         [ +  - ]:      29677 :       o << i.first
    2521                 :            :         << " "
    2522   [ +  -  +  - ]:      29677 :         << std::setprecision(std::numeric_limits<double>::digits10 + 1)
    2523   [ +  -  +  - ]:      29677 :         << i.second
    2524                 :      29677 :         << endl;
    2525                 :            :   }
    2526         [ +  - ]:        680 :   const string& os = o.str();
    2527         [ +  - ]:        340 :   MHD_Response* r = MHD_create_response_from_buffer (os.size(),
    2528         [ +  - ]:        340 :                                                      (void*) os.c_str(),
    2529                 :            :                                                      MHD_RESPMEM_MUST_COPY);
    2530         [ +  - ]:        340 :   if (r != NULL)
    2531                 :            :     {
    2532         [ +  - ]:        340 :       *size = os.size();
    2533         [ +  - ]:        340 :       add_mhd_response_header (r, "Content-Type", "text/plain");
    2534                 :            :     }
    2535         [ +  - ]:        680 :   return r;
    2536                 :            : }
    2537                 :            : 
    2538                 :            : static struct MHD_Response*
    2539                 :          0 : handle_root (off_t* size)
    2540                 :            : {
    2541   [ #  #  #  #  :          0 :   static string version = "debuginfod (" + string (PACKAGE_NAME) + ") "
          #  #  #  #  #  
          #  #  #  #  #  
             #  #  #  # ]
    2542   [ #  #  #  #  :          0 :                           + string (PACKAGE_VERSION);
          #  #  #  #  #  
                      # ]
    2543                 :          0 :   MHD_Response* r = MHD_create_response_from_buffer (version.size (),
    2544                 :          0 :                                                      (void *) version.c_str (),
    2545                 :            :                                                      MHD_RESPMEM_PERSISTENT);
    2546         [ #  # ]:          0 :   if (r != NULL)
    2547                 :            :     {
    2548                 :          0 :       *size = version.size ();
    2549                 :          0 :       add_mhd_response_header (r, "Content-Type", "text/plain");
    2550                 :            :     }
    2551                 :          0 :   return r;
    2552                 :            : }
    2553                 :            : 
    2554                 :            : 
    2555                 :            : ////////////////////////////////////////////////////////////////////////
    2556                 :            : 
    2557                 :            : 
    2558                 :            : /* libmicrohttpd callback */
    2559                 :            : static MHD_RESULT
    2560                 :       1922 : handler_cb (void * /*cls*/,
    2561                 :            :             struct MHD_Connection *connection,
    2562                 :            :             const char *url,
    2563                 :            :             const char *method,
    2564                 :            :             const char * /*version*/,
    2565                 :            :             const char * /*upload_data*/,
    2566                 :            :             size_t * /*upload_data_size*/,
    2567                 :            :             void ** ptr)
    2568                 :            : {
    2569                 :       1922 :   struct MHD_Response *r = NULL;
    2570                 :       3844 :   string url_copy = url;
    2571                 :            : 
    2572                 :            :   /* libmicrohttpd always makes (at least) two callbacks: once just
    2573                 :            :      past the headers, and one after the request body is finished
    2574                 :            :      being received.  If we process things early (first callback) and
    2575                 :            :      queue a response, libmicrohttpd would suppress http keep-alive
    2576                 :            :      (via connection->read_closed = true). */
    2577                 :       1922 :   static int aptr; /* just some random object to use as a flag */
    2578         [ +  + ]:       1922 :   if (&aptr != *ptr)
    2579                 :            :     {
    2580                 :            :       /* do never respond on first call */
    2581                 :        961 :       *ptr = &aptr;
    2582                 :        961 :       return MHD_YES;
    2583                 :            :     }
    2584                 :        961 :   *ptr = NULL;                     /* reset when done */
    2585                 :            :   
    2586         [ +  - ]:        961 :   const char *maxsize_string = MHD_lookup_connection_value(connection, MHD_HEADER_KIND, "X-DEBUGINFOD-MAXSIZE");
    2587                 :        961 :   long maxsize = 0;
    2588   [ +  +  +  - ]:        961 :   if (maxsize_string != NULL && maxsize_string[0] != '\0')
    2589                 :          1 :     maxsize = atol(maxsize_string);
    2590                 :            :   else
    2591                 :            :     maxsize = 0;
    2592                 :            : 
    2593                 :            : #if MHD_VERSION >= 0x00097002
    2594                 :        961 :   enum MHD_Result rc;
    2595                 :            : #else
    2596                 :            :   int rc = MHD_NO; // mhd
    2597                 :            : #endif
    2598                 :        961 :   int http_code = 500;
    2599                 :        961 :   off_t http_size = -1;
    2600                 :        961 :   struct timespec ts_start, ts_end;
    2601                 :        961 :   clock_gettime (CLOCK_MONOTONIC, &ts_start);
    2602                 :        961 :   double afteryou = 0.0;
    2603   [ +  -  -  +  :       3844 :   string artifacttype, suffix;
                   +  + ]
    2604                 :            : 
    2605                 :        961 :   try
    2606                 :            :     {
    2607   [ +  -  -  +  :       1922 :       if (string(method) != "GET")
                   -  + ]
    2608   [ #  #  #  # ]:          0 :         throw reportable_exception(400, "we support GET only");
    2609                 :            : 
    2610                 :            :       /* Start decoding the URL. */
    2611                 :        961 :       size_t slash1 = url_copy.find('/', 1);
    2612         [ +  - ]:       1922 :       string url1 = url_copy.substr(0, slash1); // ok even if slash1 not found
    2613                 :            : 
    2614   [ +  +  +  - ]:       1579 :       if (slash1 != string::npos && url1 == "/buildid")
    2615                 :            :         {
    2616                 :            :           // PR27863: block this thread awhile if another thread is already busy
    2617                 :            :           // fetching the exact same thing.  This is better for Everyone.
    2618                 :            :           // The latecomer says "... after you!" and waits.
    2619   [ +  -  +  -  :       2097 :           add_metric ("thread_busy", "role", "http-buildid-after-you", 1);
          +  -  +  -  -  
          +  +  -  -  -  
             -  -  -  + ]
    2620                 :            : #ifdef HAVE_PTHREAD_SETNAME_NP
    2621                 :        618 :           (void) pthread_setname_np (pthread_self(), "mhd-buildid-after-you");
    2622                 :            : #endif
    2623                 :        618 :           struct timespec tsay_start, tsay_end;
    2624                 :        618 :           clock_gettime (CLOCK_MONOTONIC, &tsay_start);
    2625   [ +  +  +  - ]:        618 :           static unique_set<string> busy_urls;
    2626         [ +  - ]:        997 :           unique_set_reserver<string> after_you(busy_urls, url_copy);
    2627                 :        618 :           clock_gettime (CLOCK_MONOTONIC, &tsay_end);
    2628                 :        618 :           afteryou = (tsay_end.tv_sec - tsay_start.tv_sec) + (tsay_end.tv_nsec - tsay_start.tv_nsec)/1.e9;
    2629   [ +  -  +  -  :       2093 :           add_metric ("thread_busy", "role", "http-buildid-after-you", -1);
          +  -  +  -  -  
          +  +  -  +  -  
             -  -  -  - ]
    2630                 :            :           
    2631   [ +  -  +  -  :       1714 :           tmp_inc_metric m ("thread_busy", "role", "http-buildid");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    2632                 :            : #ifdef HAVE_PTHREAD_SETNAME_NP
    2633                 :        618 :           (void) pthread_setname_np (pthread_self(), "mhd-buildid");
    2634                 :            : #endif
    2635                 :        618 :           size_t slash2 = url_copy.find('/', slash1+1);
    2636         [ -  + ]:        618 :           if (slash2 == string::npos)
    2637   [ #  #  #  # ]:          0 :             throw reportable_exception("/buildid/ webapi error, need buildid");
    2638                 :            : 
    2639         [ +  - ]:       1236 :           string buildid = url_copy.substr(slash1+1, slash2-slash1-1);
    2640                 :            : 
    2641                 :        618 :           size_t slash3 = url_copy.find('/', slash2+1);
    2642                 :            : 
    2643         [ +  + ]:        618 :           if (slash3 == string::npos)
    2644                 :            :             {
    2645   [ +  -  -  + ]:        586 :               artifacttype = url_copy.substr(slash2+1);
    2646         [ +  - ]:        586 :               suffix = "";
    2647                 :            :             }
    2648                 :            :           else
    2649                 :            :             {
    2650   [ +  -  -  + ]:         32 :               artifacttype = url_copy.substr(slash2+1, slash3-slash2-1);
    2651   [ +  -  -  + ]:         32 :               suffix = url_copy.substr(slash3); // include the slash in the suffix
    2652                 :            :             }
    2653                 :            : 
    2654                 :            :           // get the resulting fd so we can report its size
    2655                 :        618 :           int fd;
    2656         [ +  + ]:        618 :           r = handle_buildid(connection, buildid, artifacttype, suffix, &fd);
    2657         [ +  - ]:        379 :           if (r)
    2658                 :            :             {
    2659                 :        379 :               struct stat fs;
    2660         [ +  - ]:        379 :               if (fstat(fd, &fs) == 0)
    2661                 :        379 :                 http_size = fs.st_size;
    2662                 :            :               // libmicrohttpd will close (fd);
    2663                 :            :             }
    2664                 :            :         }
    2665         [ +  + ]:        343 :       else if (url1 == "/metrics")
    2666                 :            :         {
    2667   [ +  -  +  -  :        680 :           tmp_inc_metric m ("thread_busy", "role", "http-metrics");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    2668         [ +  - ]:        340 :           artifacttype = "metrics";
    2669   [ +  -  +  -  :        680 :           inc_metric("http_requests_total", "type", artifacttype);
          +  -  -  +  +  
                -  -  - ]
    2670         [ +  - ]:        340 :           r = handle_metrics(& http_size);
    2671                 :            :         }
    2672         [ -  + ]:          3 :       else if (url1 == "/")
    2673                 :            :         {
    2674         [ #  # ]:          0 :           artifacttype = "/";
    2675   [ -  -  -  -  :        243 :           inc_metric("http_requests_total", "type", artifacttype);
          -  -  -  -  -  
             -  -  -  -  
                      + ]
    2676         [ #  # ]:          0 :           r = handle_root(& http_size);
    2677                 :            :         }
    2678                 :            :       else
    2679   [ +  -  +  -  :          9 :         throw reportable_exception("webapi error, unrecognized '" + url1 + "'");
          +  -  -  +  -  
                      - ]
    2680                 :            : 
    2681         [ -  + ]:        719 :       if (r == 0)
    2682   [ #  #  #  # ]:          0 :         throw reportable_exception("internal error, missing response");
    2683                 :            : 
    2684   [ +  +  +  - ]:        719 :       if (maxsize > 0 && http_size > maxsize)
    2685                 :            :         {
    2686         [ +  - ]:          1 :           MHD_destroy_response(r);
    2687   [ +  -  +  -  :          3 :           throw reportable_exception(406, "File too large, max size=" + std::to_string(maxsize));
          +  -  -  +  -  
                      - ]
    2688                 :            :         }
    2689                 :            : 
    2690         [ +  - ]:        718 :       rc = MHD_queue_response (connection, MHD_HTTP_OK, r);
    2691                 :        718 :       http_code = MHD_HTTP_OK;
    2692         [ +  - ]:        718 :       MHD_destroy_response (r);
    2693                 :            :     }
    2694         [ -  + ]:        243 :   catch (const reportable_exception& e)
    2695                 :            :     {
    2696   [ +  -  +  -  :        486 :       inc_metric("http_responses_total","result","error");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    2697         [ +  - ]:        243 :       e.report(clog);
    2698                 :        243 :       http_code = e.code;
    2699         [ +  - ]:        243 :       http_size = e.message.size();
    2700         [ +  - ]:        243 :       rc = e.mhd_send_response (connection);
    2701                 :            :     }
    2702                 :            : 
    2703                 :        961 :   clock_gettime (CLOCK_MONOTONIC, &ts_end);
    2704                 :        961 :   double deltas = (ts_end.tv_sec - ts_start.tv_sec) + (ts_end.tv_nsec - ts_start.tv_nsec)/1.e9;
    2705                 :            :   // afteryou: delay waiting for other client's identical query to complete
    2706                 :            :   // deltas: total latency, including afteryou waiting
    2707   [ +  -  +  -  :       2883 :   obatched(clog) << conninfo(connection)
             +  -  -  - ]
    2708                 :            :                  << ' ' << method << ' ' << url
    2709   [ +  -  +  -  :       1922 :                  << ' ' << http_code << ' ' << http_size
          +  -  +  -  +  
             -  +  -  +  
                      - ]
    2710   [ +  -  +  -  :       1922 :                  << ' ' << (int)(afteryou*1000) << '+' << (int)((deltas-afteryou)*1000) << "ms"
          +  -  +  -  +  
                -  +  - ]
    2711         [ +  - ]:        961 :                  << endl;
    2712                 :            : 
    2713                 :            :   // related prometheus metrics
    2714   [ +  -  +  + ]:       1922 :   string http_code_str = to_string(http_code);
    2715   [ +  -  +  - ]:       1922 :   add_metric("http_responses_transfer_bytes_sum",
    2716   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype, http_size);
          +  -  -  +  -  
          +  +  -  -  -  
             -  -  -  - ]
    2717   [ +  -  +  - ]:       1922 :   inc_metric("http_responses_transfer_bytes_count",
    2718   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype);
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    2719                 :            : 
    2720   [ +  -  +  - ]:       1922 :   add_metric("http_responses_duration_milliseconds_sum",
    2721   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype, deltas*1000); // prometheus prefers _seconds and floating point
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    2722   [ +  -  +  - ]:       1922 :   inc_metric("http_responses_duration_milliseconds_count",
    2723   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype);
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    2724                 :            : 
    2725   [ +  -  +  - ]:       1922 :   add_metric("http_responses_after_you_milliseconds_sum",
    2726   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype, afteryou*1000);
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    2727   [ +  -  +  - ]:       1922 :   inc_metric("http_responses_after_you_milliseconds_count",
    2728   [ +  -  +  -  :       1922 :              "code", http_code_str, "type", artifacttype);
          +  -  -  +  -  
          +  -  +  -  -  
             -  -  -  - ]
    2729                 :            : 
    2730         [ -  + ]:        961 :   return rc;
    2731                 :            : }
    2732                 :            : 
    2733                 :            : 
    2734                 :            : ////////////////////////////////////////////////////////////////////////
    2735                 :            : // borrowed originally from src/nm.c get_local_names()
    2736                 :            : 
    2737                 :            : static void
    2738                 :        103 : dwarf_extract_source_paths (Elf *elf, set<string>& debug_sourcefiles)
    2739                 :            :   noexcept // no exceptions - so we can simplify the altdbg resource release at end
    2740                 :            : {
    2741                 :        103 :   Dwarf* dbg = dwarf_begin_elf (elf, DWARF_C_READ, NULL);
    2742         [ -  + ]:        103 :   if (dbg == NULL)
    2743                 :          0 :     return;
    2744                 :            : 
    2745                 :        103 :   Dwarf* altdbg = NULL;
    2746                 :        103 :   int    altdbg_fd = -1;
    2747                 :            : 
    2748                 :            :   // DWZ handling: if we have an unsatisfied debug-alt-link, add an
    2749                 :            :   // empty string into the outgoing sourcefiles set, so the caller
    2750                 :            :   // should know that our data is incomplete.
    2751                 :        103 :   const char *alt_name_p;
    2752                 :        103 :   const void *alt_build_id; // elfutils-owned memory
    2753                 :        103 :   ssize_t sz = dwelf_dwarf_gnu_debugaltlink (dbg, &alt_name_p, &alt_build_id);
    2754         [ +  + ]:        103 :   if (sz > 0) // got one!
    2755                 :            :     {
    2756                 :         40 :       string buildid;
    2757                 :         20 :       unsigned char* build_id_bytes = (unsigned char*) alt_build_id;
    2758         [ +  + ]:        420 :       for (ssize_t idx=0; idx<sz; idx++)
    2759                 :            :         {
    2760                 :        400 :           buildid += "0123456789abcdef"[build_id_bytes[idx] >> 4];
    2761                 :        400 :           buildid += "0123456789abcdef"[build_id_bytes[idx] & 0xf];
    2762                 :            :         }
    2763                 :            : 
    2764         [ +  - ]:         20 :       if (verbose > 3)
    2765                 :         20 :         obatched(clog) << "Need altdebug buildid=" << buildid << endl;
    2766                 :            : 
    2767                 :            :       // but is it unsatisfied the normal elfutils ways?
    2768                 :         20 :       Dwarf* alt = dwarf_getalt (dbg);
    2769         [ +  - ]:         20 :       if (alt == NULL)
    2770                 :            :         {
    2771                 :            :           // Yup, unsatisfied the normal way.  Maybe we can satisfy it
    2772                 :            :           // from our own debuginfod database.
    2773                 :         20 :           int alt_fd;
    2774                 :         20 :           struct MHD_Response *r = 0;
    2775                 :         20 :           try
    2776                 :            :             {
    2777         [ +  - ]:         20 :               string artifacttype = "debuginfo";
    2778   [ +  -  +  -  :         20 :               r = handle_buildid (0, buildid, artifacttype, "", &alt_fd);
          -  +  -  +  -  
                      - ]
    2779                 :            :             }
    2780         [ -  - ]:          0 :           catch (const reportable_exception& e)
    2781                 :            :             {
    2782                 :            :               // swallow exceptions
    2783                 :            :             }
    2784                 :            : 
    2785                 :            :           // NB: this is not actually recursive!  This invokes the web-query
    2786                 :            :           // path, which cannot get back into the scan code paths.
    2787         [ +  - ]:         20 :           if (r)
    2788                 :            :             {
    2789                 :            :               // Found it!
    2790                 :         20 :               altdbg_fd = dup(alt_fd); // ok if this fails, downstream failures ok
    2791                 :         20 :               alt = altdbg = dwarf_begin (altdbg_fd, DWARF_C_READ);
    2792                 :            :               // NB: must close this dwarf and this fd at the bottom of the function!
    2793                 :         20 :               MHD_destroy_response (r); // will close alt_fd
    2794         [ +  - ]:         20 :               if (alt)
    2795                 :         20 :                 dwarf_setalt (dbg, alt);
    2796                 :            :             }
    2797                 :            :         }
    2798                 :            :       else
    2799                 :            :         {
    2800                 :            :           // NB: dwarf_setalt(alt) inappropriate - already done!
    2801                 :            :           // NB: altdbg will stay 0 so nothing tries to redundantly dealloc.
    2802                 :            :         }
    2803                 :            : 
    2804         [ +  - ]:         20 :       if (alt)
    2805                 :            :         {
    2806         [ +  - ]:         20 :           if (verbose > 3)
    2807                 :         20 :             obatched(clog) << "Resolved altdebug buildid=" << buildid << endl;
    2808                 :            :         }
    2809                 :            :       else // (alt == NULL) - signal possible presence of poor debuginfo
    2810                 :            :         {
    2811   [ #  #  #  # ]:          0 :           debug_sourcefiles.insert("");
    2812         [ #  # ]:          0 :           if (verbose > 3)
    2813                 :          0 :             obatched(clog) << "Unresolved altdebug buildid=" << buildid << endl;
    2814                 :            :         }
    2815                 :            :     }
    2816                 :            : 
    2817                 :        103 :   Dwarf_Off offset = 0;
    2818                 :       1133 :   Dwarf_Off old_offset;
    2819                 :       1133 :   size_t hsize;
    2820                 :            : 
    2821         [ +  + ]:       1133 :   while (dwarf_nextcu (dbg, old_offset = offset, &offset, &hsize, NULL, NULL, NULL) == 0)
    2822                 :            :     {
    2823                 :       1030 :       Dwarf_Die cudie_mem;
    2824                 :       1030 :       Dwarf_Die *cudie = dwarf_offdie (dbg, old_offset + hsize, &cudie_mem);
    2825                 :            : 
    2826         [ -  + ]:       1030 :       if (cudie == NULL)
    2827                 :         10 :         continue;
    2828         [ +  + ]:       1030 :       if (dwarf_tag (cudie) != DW_TAG_compile_unit)
    2829                 :         10 :         continue;
    2830                 :            : 
    2831         [ -  + ]:       1020 :       const char *cuname = dwarf_diename(cudie) ?: "unknown";
    2832                 :            : 
    2833                 :       1020 :       Dwarf_Files *files;
    2834                 :       1020 :       size_t nfiles;
    2835         [ -  + ]:       1020 :       if (dwarf_getsrcfiles (cudie, &files, &nfiles) != 0)
    2836                 :          0 :         continue;
    2837                 :            : 
    2838                 :            :       // extract DW_AT_comp_dir to resolve relative file names
    2839                 :       1020 :       const char *comp_dir = "";
    2840                 :       1020 :       const char *const *dirs;
    2841                 :       1020 :       size_t ndirs;
    2842         [ +  - ]:       1020 :       if (dwarf_getsrcdirs (files, &dirs, &ndirs) == 0 &&
    2843         [ +  - ]:       1020 :           dirs[0] != NULL)
    2844                 :       1020 :         comp_dir = dirs[0];
    2845         [ -  + ]:       1020 :       if (comp_dir == NULL)
    2846                 :          0 :         comp_dir = "";
    2847                 :            : 
    2848         [ +  + ]:       1020 :       if (verbose > 3)
    2849                 :        160 :         obatched(clog) << "searching for sources for cu=" << cuname << " comp_dir=" << comp_dir
    2850                 :         80 :                        << " #files=" << nfiles << " #dirs=" << ndirs << endl;
    2851                 :            : 
    2852   [ +  -  -  - ]:       1020 :       if (comp_dir[0] == '\0' && cuname[0] != '/')
    2853                 :            :         {
    2854                 :            :           // This is a common symptom for dwz-compressed debug files,
    2855                 :            :           // where the altdebug file cannot be resolved.
    2856         [ #  # ]:          0 :           if (verbose > 3)
    2857                 :          0 :             obatched(clog) << "skipping cu=" << cuname << " due to empty comp_dir" << endl;
    2858                 :          0 :           continue;
    2859                 :            :         }
    2860                 :            : 
    2861         [ +  + ]:      15387 :       for (size_t f = 1; f < nfiles; f++)
    2862                 :            :         {
    2863                 :      14367 :           const char *hat = dwarf_filesrc (files, f, NULL, NULL);
    2864         [ -  + ]:      14367 :           if (hat == NULL)
    2865                 :          0 :             continue;
    2866                 :            : 
    2867   [ +  +  -  + ]:      27366 :           if (string(hat) == "<built-in>") // gcc intrinsics, don't bother record
    2868                 :          0 :             continue;
    2869                 :            : 
    2870         [ +  + ]:      28734 :           string waldo;
    2871         [ +  + ]:      14367 :           if (hat[0] == '/') // absolute
    2872         [ -  + ]:       8928 :             waldo = (string (hat));
    2873         [ +  - ]:       5439 :           else if (comp_dir[0] != '\0') // comp_dir relative
    2874   [ -  +  -  +  :       9510 :             waldo = (string (comp_dir) + string("/") + string (hat));
          -  +  -  +  +  
                      + ]
    2875                 :            :           else
    2876                 :            :            {
    2877         [ #  # ]:          0 :              if (verbose > 3)
    2878                 :          0 :                obatched(clog) << "skipping hat=" << hat << " due to empty comp_dir" << endl;
    2879         [ #  # ]:          0 :              continue;
    2880                 :            :            }
    2881                 :            : 
    2882                 :            :           // NB: this is the 'waldo' that a dbginfo client will have
    2883                 :            :           // to supply for us to give them the file The comp_dir
    2884                 :            :           // prefixing is a definite complication.  Otherwise we'd
    2885                 :            :           // have to return a setof comp_dirs (one per CU!) with
    2886                 :            :           // corresponding filesrc[] names, instead of one absolute
    2887                 :            :           // resoved set.  Maybe we'll have to do that anyway.  XXX
    2888                 :            : 
    2889         [ +  + ]:      14367 :           if (verbose > 4)
    2890         [ -  + ]:         50 :             obatched(clog) << waldo
    2891         [ -  + ]:         25 :                            << (debug_sourcefiles.find(waldo)==debug_sourcefiles.end() ? " new" : " dup") <<  endl;
    2892                 :            : 
    2893         [ +  - ]:      14367 :           debug_sourcefiles.insert (waldo);
    2894                 :            :         }
    2895                 :            :     }
    2896                 :            : 
    2897                 :        103 :   dwarf_end(dbg);
    2898         [ +  + ]:        103 :   if (altdbg)
    2899                 :         20 :     dwarf_end(altdbg);
    2900         [ +  + ]:        103 :   if (altdbg_fd >= 0)
    2901                 :         20 :     close(altdbg_fd);
    2902                 :            : }
    2903                 :            : 
    2904                 :            : 
    2905                 :            : 
    2906                 :            : static void
    2907                 :        502 : elf_classify (int fd, bool &executable_p, bool &debuginfo_p, string &buildid, set<string>& debug_sourcefiles)
    2908                 :            : {
    2909                 :        502 :   Elf *elf = elf_begin (fd, ELF_C_READ_MMAP_PRIVATE, NULL);
    2910         [ +  - ]:        502 :   if (elf == NULL)
    2911                 :            :     return;
    2912                 :            : 
    2913                 :        502 :   try // catch our types of errors and clean up the Elf* object
    2914                 :            :     {
    2915   [ +  -  +  + ]:        502 :       if (elf_kind (elf) != ELF_K_ELF)
    2916                 :            :         {
    2917         [ +  - ]:        301 :           elf_end (elf);
    2918                 :        301 :           return;
    2919                 :            :         }
    2920                 :            : 
    2921                 :        201 :       GElf_Ehdr ehdr_storage;
    2922         [ +  - ]:        201 :       GElf_Ehdr *ehdr = gelf_getehdr (elf, &ehdr_storage);
    2923         [ -  + ]:        201 :       if (ehdr == NULL)
    2924                 :            :         {
    2925         [ #  # ]:          0 :           elf_end (elf);
    2926                 :            :           return;
    2927                 :            :         }
    2928                 :        201 :       auto elf_type = ehdr->e_type;
    2929                 :            : 
    2930                 :        201 :       const void *build_id; // elfutils-owned memory
    2931         [ +  - ]:        201 :       ssize_t sz = dwelf_elf_gnu_build_id (elf, & build_id);
    2932         [ -  + ]:        201 :       if (sz <= 0)
    2933                 :            :         {
    2934                 :            :           // It's not a diagnostic-worthy error for an elf file to lack build-id.
    2935                 :            :           // It might just be very old.
    2936         [ #  # ]:          0 :           elf_end (elf);
    2937                 :            :           return;
    2938                 :            :         }
    2939                 :            : 
    2940                 :            :       // build_id is a raw byte array; convert to hexadecimal *lowercase*
    2941                 :        201 :       unsigned char* build_id_bytes = (unsigned char*) build_id;
    2942         [ +  + ]:       4221 :       for (ssize_t idx=0; idx<sz; idx++)
    2943                 :            :         {
    2944         [ +  - ]:       4020 :           buildid += "0123456789abcdef"[build_id_bytes[idx] >> 4];
    2945         [ +  - ]:       8040 :           buildid += "0123456789abcdef"[build_id_bytes[idx] & 0xf];
    2946                 :            :         }
    2947                 :            : 
    2948                 :            :       // now decide whether it's an executable - namely, any allocatable section has
    2949                 :            :       // PROGBITS;
    2950         [ +  + ]:        201 :       if (elf_type == ET_EXEC || elf_type == ET_DYN)
    2951                 :            :         {
    2952                 :        177 :           size_t shnum;
    2953         [ +  - ]:        177 :           int rc = elf_getshdrnum (elf, &shnum);
    2954         [ -  + ]:        177 :           if (rc < 0)
    2955   [ #  #  #  # ]:          0 :             throw elfutils_exception(rc, "getshdrnum");
    2956                 :            : 
    2957                 :        177 :           executable_p = false;
    2958         [ +  + ]:       3392 :           for (size_t sc = 0; sc < shnum; sc++)
    2959                 :            :             {
    2960         [ +  - ]:       3306 :               Elf_Scn *scn = elf_getscn (elf, sc);
    2961         [ -  + ]:       3306 :               if (scn == NULL)
    2962                 :          0 :                 continue;
    2963                 :            : 
    2964                 :       3306 :               GElf_Shdr shdr_mem;
    2965         [ +  - ]:       3306 :               GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    2966         [ -  + ]:       3306 :               if (shdr == NULL)
    2967                 :          0 :                 continue;
    2968                 :            : 
    2969                 :            :               // allocated (loadable / vm-addr-assigned) section with available content?
    2970   [ +  +  +  + ]:       3306 :               if ((shdr->sh_type == SHT_PROGBITS) && (shdr->sh_flags & SHF_ALLOC))
    2971                 :            :                 {
    2972         [ +  + ]:         91 :                   if (verbose > 4)
    2973   [ +  -  +  -  :         16 :                     obatched(clog) << "executable due to SHF_ALLOC SHT_PROGBITS sc=" << sc << endl;
                   +  - ]
    2974                 :         91 :                   executable_p = true;
    2975                 :         91 :                   break; // no need to keep looking for others
    2976                 :            :                 }
    2977                 :            :             } // iterate over sections
    2978                 :            :         } // executable_p classification
    2979                 :            : 
    2980                 :            :       // now decide whether it's a debuginfo - namely, if it has any .debug* or .zdebug* sections
    2981                 :            :       // logic mostly stolen from fweimer@redhat.com's elfclassify drafts
    2982                 :        201 :       size_t shstrndx;
    2983         [ +  - ]:        201 :       int rc = elf_getshdrstrndx (elf, &shstrndx);
    2984         [ -  + ]:        201 :       if (rc < 0)
    2985   [ #  #  #  # ]:          0 :         throw elfutils_exception(rc, "getshdrstrndx");
    2986                 :            : 
    2987                 :            :       Elf_Scn *scn = NULL;
    2988                 :            :       bool symtab_p = false;
    2989                 :            :       bool bits_alloc_p = false;
    2990                 :      10325 :       while (true)
    2991                 :            :         {
    2992         [ +  - ]:       5263 :           scn = elf_nextscn (elf, scn);
    2993         [ +  + ]:       5263 :           if (scn == NULL)
    2994                 :            :             break;
    2995                 :       5165 :           GElf_Shdr shdr_storage;
    2996         [ +  - ]:       5165 :           GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_storage);
    2997         [ +  - ]:       5165 :           if (shdr == NULL)
    2998                 :            :             break;
    2999         [ +  - ]:       5165 :           const char *section_name = elf_strptr (elf, shstrndx, shdr->sh_name);
    3000         [ +  - ]:       5165 :           if (section_name == NULL)
    3001                 :            :             break;
    3002         [ +  + ]:       5165 :           if (startswith (section_name, ".debug_line") ||
    3003         [ -  + ]:       5062 :               startswith (section_name, ".zdebug_line"))
    3004                 :            :             {
    3005                 :        103 :               debuginfo_p = true;
    3006         [ +  - ]:        103 :               if (scan_source_info)
    3007                 :        103 :                 dwarf_extract_source_paths (elf, debug_sourcefiles);
    3008                 :            :               break; // expecting only one .*debug_line, so no need to look for others
    3009                 :            :             }
    3010         [ +  + ]:       5062 :           else if (startswith (section_name, ".debug_") ||
    3011         [ +  - ]:       4735 :                    startswith (section_name, ".zdebug_"))
    3012                 :            :             {
    3013                 :        327 :               debuginfo_p = true;
    3014                 :            :               // NB: don't break; need to parse .debug_line for sources
    3015                 :            :             }
    3016         [ +  + ]:       4735 :           else if (shdr->sh_type == SHT_SYMTAB)
    3017                 :            :             {
    3018                 :            :               symtab_p = true;
    3019                 :            :             }
    3020                 :       4723 :           else if (shdr->sh_type != SHT_NOBITS
    3021         [ +  + ]:       4723 :                    && shdr->sh_type != SHT_NOTE
    3022         [ +  + ]:       2277 :                    && (shdr->sh_flags & SHF_ALLOC) != 0)
    3023                 :            :             {
    3024                 :       1936 :               bits_alloc_p = true;
    3025                 :            :             }
    3026                 :       5062 :         }
    3027                 :            : 
    3028                 :            :       // For more expansive elf/split-debuginfo classification, we
    3029                 :            :       // want to identify as debuginfo "strip -s"-produced files
    3030                 :            :       // without .debug_info* (like libicudata), but we don't want to
    3031                 :            :       // identify "strip -g" executables (with .symtab left there).
    3032         [ -  + ]:        201 :       if (symtab_p && !bits_alloc_p)
    3033                 :          0 :         debuginfo_p = true;
    3034                 :            :     }
    3035         [ #  # ]:          0 :   catch (const reportable_exception& e)
    3036                 :            :     {
    3037         [ #  # ]:          0 :       e.report(clog);
    3038                 :            :     }
    3039                 :        201 :   elf_end (elf);
    3040                 :            : }
    3041                 :            : 
    3042                 :            : 
    3043                 :            : static void
    3044                 :        356 : scan_source_file (const string& rps, const stat_t& st,
    3045                 :            :                   sqlite_ps& ps_upsert_buildids,
    3046                 :            :                   sqlite_ps& ps_upsert_files,
    3047                 :            :                   sqlite_ps& ps_upsert_de,
    3048                 :            :                   sqlite_ps& ps_upsert_s,
    3049                 :            :                   sqlite_ps& ps_query,
    3050                 :            :                   sqlite_ps& ps_scan_done,
    3051                 :            :                   unsigned& fts_cached,
    3052                 :            :                   unsigned& fts_executable,
    3053                 :            :                   unsigned& fts_debuginfo,
    3054                 :            :                   unsigned& fts_sourcefiles)
    3055                 :            : {
    3056                 :            :   /* See if we know of it already. */
    3057                 :        356 :   int rc = ps_query
    3058                 :        356 :     .reset()
    3059                 :        356 :     .bind(1, rps)
    3060                 :        356 :     .bind(2, st.st_mtime)
    3061                 :        356 :     .step();
    3062                 :        356 :   ps_query.reset();
    3063         [ +  + ]:        356 :   if (rc == SQLITE_ROW) // i.e., a result, as opposed to DONE (no results)
    3064                 :            :     // no need to recheck a file/version we already know
    3065                 :            :     // specifically, no need to elf-begin a file we already determined is non-elf
    3066                 :            :     // (so is stored with buildid=NULL)
    3067                 :            :     {
    3068                 :        175 :       fts_cached++;
    3069                 :        175 :       return;
    3070                 :            :     }
    3071                 :            : 
    3072                 :        181 :   bool executable_p = false, debuginfo_p = false; // E and/or D
    3073         [ +  - ]:        362 :   string buildid;
    3074   [ +  -  +  + ]:        362 :   set<string> sourcefiles;
    3075                 :            : 
    3076         [ +  - ]:        181 :   int fd = open (rps.c_str(), O_RDONLY);
    3077                 :        181 :   try
    3078                 :            :     {
    3079         [ +  - ]:        181 :       if (fd >= 0)
    3080         [ +  - ]:        181 :         elf_classify (fd, executable_p, debuginfo_p, buildid, sourcefiles);
    3081                 :            :       else
    3082   [ #  #  #  #  :          0 :         throw libc_exception(errno, string("open ") + rps);
          #  #  #  #  #  
                      # ]
    3083         [ +  - ]:        181 :       add_metric ("scanned_bytes_total","source","file",
    3084   [ +  -  +  -  :        362 :                   st.st_size);
          +  -  -  +  -  
          +  +  -  -  -  
             -  -  -  - ]
    3085   [ +  -  +  -  :        362 :       inc_metric ("scanned_files_total","source","file");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3086                 :            :     }
    3087                 :            :   // NB: we catch exceptions here too, so that we can
    3088                 :            :   // cache the corrupt-elf case (!executable_p &&
    3089                 :            :   // !debuginfo_p) just below, just as if we had an
    3090                 :            :   // EPERM error from open(2).
    3091         [ -  - ]:          0 :   catch (const reportable_exception& e)
    3092                 :            :     {
    3093         [ -  - ]:          0 :       e.report(clog);
    3094                 :            :     }
    3095                 :            : 
    3096         [ +  - ]:        181 :   if (fd >= 0)
    3097         [ +  - ]:        181 :     close (fd);
    3098                 :            : 
    3099                 :            :   // register this file name in the interning table
    3100                 :        181 :   ps_upsert_files
    3101         [ +  - ]:        181 :     .reset()
    3102         [ +  - ]:        181 :     .bind(1, rps)
    3103         [ +  - ]:        181 :     .step_ok_done();
    3104                 :            : 
    3105         [ +  + ]:        181 :   if (buildid == "")
    3106                 :            :     {
    3107                 :            :       // no point storing an elf file without buildid
    3108                 :        150 :       executable_p = false;
    3109                 :        150 :       debuginfo_p = false;
    3110                 :            :     }
    3111                 :            :   else
    3112                 :            :     {
    3113                 :            :       // register this build-id in the interning table
    3114                 :         31 :       ps_upsert_buildids
    3115         [ +  - ]:         31 :         .reset()
    3116         [ +  - ]:         31 :         .bind(1, buildid)
    3117         [ +  - ]:         31 :         .step_ok_done();
    3118                 :            :     }
    3119                 :            : 
    3120         [ +  + ]:        181 :   if (executable_p)
    3121                 :         19 :     fts_executable ++;
    3122         [ +  + ]:        181 :   if (debuginfo_p)
    3123                 :         19 :     fts_debuginfo ++;
    3124   [ +  +  +  + ]:        181 :   if (executable_p || debuginfo_p)
    3125                 :            :     {
    3126                 :         31 :       ps_upsert_de
    3127         [ +  - ]:         31 :         .reset()
    3128         [ +  - ]:         31 :         .bind(1, buildid)
    3129   [ +  +  +  - ]:         43 :         .bind(2, debuginfo_p ? 1 : 0)
    3130   [ +  +  +  - ]:         43 :         .bind(3, executable_p ? 1 : 0)
    3131         [ +  - ]:         31 :         .bind(4, rps)
    3132         [ +  - ]:         31 :         .bind(5, st.st_mtime)
    3133         [ +  - ]:         31 :         .step_ok_done();
    3134                 :            :     }
    3135         [ +  + ]:        181 :   if (executable_p)
    3136   [ +  -  +  -  :         38 :     inc_metric("found_executable_total","source","files");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3137         [ +  + ]:        181 :   if (debuginfo_p)
    3138   [ +  -  +  -  :         38 :     inc_metric("found_debuginfo_total","source","files");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3139                 :            : 
    3140   [ +  +  +  - ]:        200 :   if (sourcefiles.size() && buildid != "")
    3141                 :            :     {
    3142                 :         19 :       fts_sourcefiles += sourcefiles.size();
    3143                 :            : 
    3144         [ +  + ]:       1478 :       for (auto&& dwarfsrc : sourcefiles)
    3145                 :            :         {
    3146         [ -  + ]:       1459 :           char *srp = realpath(dwarfsrc.c_str(), NULL);
    3147         [ +  + ]:       1459 :           if (srp == NULL) // also if DWZ unresolved dwarfsrc=""
    3148                 :         18 :             continue; // unresolvable files are not a serious problem
    3149                 :            :           // throw libc_exception(errno, "fts/file realpath " + srcpath);
    3150         [ +  - ]:       2882 :           string srps = string(srp);
    3151                 :       1441 :           free (srp);
    3152                 :            : 
    3153                 :       1441 :           struct stat sfs;
    3154                 :       1441 :           rc = stat(srps.c_str(), &sfs);
    3155         [ -  + ]:       1441 :           if (rc != 0)
    3156         [ -  - ]:         18 :             continue;
    3157                 :            : 
    3158         [ +  - ]:       1441 :           if (verbose > 2)
    3159   [ +  -  +  -  :       4323 :             obatched(clog) << "recorded buildid=" << buildid << " file=" << srps
                   -  - ]
    3160   [ +  -  +  -  :       1441 :                            << " mtime=" << sfs.st_mtime
             +  -  +  - ]
    3161   [ +  -  +  -  :       1441 :                            << " as source " << dwarfsrc << endl;
                   +  - ]
    3162                 :            : 
    3163                 :       1441 :           ps_upsert_files
    3164         [ +  - ]:       1441 :             .reset()
    3165         [ +  - ]:       1441 :             .bind(1, srps)
    3166         [ +  - ]:       1441 :             .step_ok_done();
    3167                 :            : 
    3168                 :            :           // PR25548: store canonicalized dwarfsrc path
    3169   [ +  -  +  - ]:       2882 :           string dwarfsrc_canon = canon_pathname (dwarfsrc);
    3170         [ +  + ]:       1441 :           if (dwarfsrc_canon != dwarfsrc)
    3171                 :            :             {
    3172         [ +  + ]:        254 :               if (verbose > 3)
    3173   [ +  -  +  -  :         10 :                 obatched(clog) << "canonicalized src=" << dwarfsrc << " alias=" << dwarfsrc_canon << endl;
          +  -  +  -  +  
                      - ]
    3174                 :            :             }
    3175                 :            : 
    3176                 :       1441 :           ps_upsert_files
    3177         [ +  - ]:       1441 :             .reset()
    3178         [ +  - ]:       1441 :             .bind(1, dwarfsrc_canon)
    3179         [ +  - ]:       1441 :             .step_ok_done();
    3180                 :            : 
    3181                 :       1441 :           ps_upsert_s
    3182         [ +  - ]:       1441 :             .reset()
    3183         [ +  - ]:       1441 :             .bind(1, buildid)
    3184         [ +  - ]:       1441 :             .bind(2, dwarfsrc_canon)
    3185         [ +  - ]:       1441 :             .bind(3, srps)
    3186         [ +  - ]:       1441 :             .bind(4, sfs.st_mtime)
    3187         [ +  - ]:       1441 :             .step_ok_done();
    3188                 :            : 
    3189   [ +  -  +  -  :       2882 :           inc_metric("found_sourcerefs_total","source","files");
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    3190                 :            :         }
    3191                 :            :     }
    3192                 :            : 
    3193                 :        181 :   ps_scan_done
    3194         [ +  - ]:        181 :     .reset()
    3195         [ +  - ]:        181 :     .bind(1, rps)
    3196         [ +  - ]:        181 :     .bind(2, st.st_mtime)
    3197         [ +  - ]:        181 :     .bind(3, st.st_size)
    3198         [ +  - ]:        181 :     .step_ok_done();
    3199                 :            : 
    3200         [ +  - ]:        181 :   if (verbose > 2)
    3201   [ +  -  +  - ]:        543 :     obatched(clog) << "recorded buildid=" << buildid << " file=" << rps
    3202   [ +  -  +  -  :        181 :                    << " mtime=" << st.st_mtime << " atype="
             +  -  +  - ]
    3203                 :            :                    << (executable_p ? "E" : "")
    3204   [ +  -  +  +  :        505 :                    << (debuginfo_p ? "D" : "") << endl;
          +  -  +  +  +  
                -  +  - ]
    3205                 :            : }
    3206                 :            : 
    3207                 :            : 
    3208                 :            : 
    3209                 :            : 
    3210                 :            : 
    3211                 :            : // Analyze given archive file of given age; record buildids / exec/debuginfo-ness of its
    3212                 :            : // constituent files with given upsert statements.
    3213                 :            : static void
    3214                 :        174 : archive_classify (const string& rps, string& archive_extension,
    3215                 :            :                   sqlite_ps& ps_upsert_buildids, sqlite_ps& ps_upsert_files,
    3216                 :            :                   sqlite_ps& ps_upsert_de, sqlite_ps& ps_upsert_sref, sqlite_ps& ps_upsert_sdef,
    3217                 :            :                   time_t mtime,
    3218                 :            :                   unsigned& fts_executable, unsigned& fts_debuginfo, unsigned& fts_sref, unsigned& fts_sdef,
    3219                 :            :                   bool& fts_sref_complete_p)
    3220                 :            : {
    3221                 :        174 :   string archive_decoder = "/dev/null";
    3222         [ +  + ]:        418 :   for (auto&& arch : scan_archives)
    3223         [ +  + ]:        244 :     if (string_endswith(rps, arch.first))
    3224                 :            :       {
    3225         [ +  - ]:        174 :         archive_extension = arch.first;
    3226         [ +  - ]:        418 :         archive_decoder = arch.second;
    3227                 :            :       }
    3228                 :            : 
    3229                 :        174 :   FILE* fp;
    3230                 :        174 :   defer_dtor<FILE*,int>::dtor_fn dfn;
    3231         [ +  + ]:        174 :   if (archive_decoder != "cat")
    3232                 :            :     {
    3233   [ +  -  +  -  :         45 :       string popen_cmd = archive_decoder + " " + shell_escape(rps);
          +  -  -  +  -  
                -  -  - ]
    3234         [ +  - ]:         15 :       fp = popen (popen_cmd.c_str(), "r"); // "e" O_CLOEXEC?
    3235                 :         15 :       dfn = pclose;
    3236         [ -  + ]:         15 :       if (fp == NULL)
    3237   [ #  #  #  #  :          0 :         throw libc_exception (errno, string("popen ") + popen_cmd);
          #  #  #  #  #  
                      # ]
    3238                 :            :     }
    3239                 :            :   else
    3240                 :            :     {
    3241         [ +  - ]:        159 :       fp = fopen (rps.c_str(), "r");
    3242                 :        159 :       dfn = fclose;
    3243         [ -  + ]:        159 :       if (fp == NULL)
    3244   [ #  #  #  #  :          0 :         throw libc_exception (errno, string("fopen ") + rps);
          #  #  #  #  #  
                      # ]
    3245                 :            :     }
    3246         [ +  + ]:        174 :   defer_dtor<FILE*,int> fp_closer (fp, dfn);
    3247                 :            : 
    3248                 :        174 :   struct archive *a;
    3249         [ +  - ]:        174 :   a = archive_read_new();
    3250         [ -  + ]:        174 :   if (a == NULL)
    3251   [ #  #  #  # ]:          0 :     throw archive_exception("cannot create archive reader");
    3252                 :        174 :   defer_dtor<struct archive*,int> archive_closer (a, archive_read_free);
    3253                 :            : 
    3254         [ +  - ]:        174 :   int rc = archive_read_support_format_all(a);
    3255         [ -  + ]:        174 :   if (rc != ARCHIVE_OK)
    3256   [ #  #  #  # ]:          0 :     throw archive_exception(a, "cannot select all formats");
    3257         [ +  - ]:        174 :   rc = archive_read_support_filter_all(a);
    3258         [ -  + ]:        174 :   if (rc != ARCHIVE_OK)
    3259   [ #  #  #  # ]:          0 :     throw archive_exception(a, "cannot select all filters");
    3260                 :            : 
    3261         [ +  - ]:        174 :   rc = archive_read_open_FILE (a, fp);
    3262         [ -  + ]:        174 :   if (rc != ARCHIVE_OK)
    3263                 :            :     {
    3264   [ #  #  #  #  :          0 :       obatched(clog) << "cannot open archive from pipe " << rps << endl;
                   #  # ]
    3265   [ #  #  #  # ]:          0 :       throw archive_exception(a, "cannot open archive from pipe");
    3266                 :            :     }
    3267                 :            : 
    3268         [ +  + ]:        174 :   if (verbose > 3)
    3269   [ +  -  +  -  :        332 :     obatched(clog) << "libarchive scanning " << rps << endl;
                   +  - ]
    3270                 :            : 
    3271                 :       1230 :   while(1) // parse archive entries
    3272                 :            :     {
    3273         [ +  - ]:       1230 :     if (interrupted)
    3274                 :            :       break;
    3275                 :            : 
    3276                 :       1230 :     try
    3277                 :            :         {
    3278                 :       1230 :           struct archive_entry *e;
    3279         [ +  - ]:       1230 :           rc = archive_read_next_header (a, &e);
    3280         [ +  + ]:       1229 :           if (rc != ARCHIVE_OK)
    3281                 :            :             break;
    3282                 :            : 
    3283   [ +  -  +  + ]:       1055 :           if (! S_ISREG(archive_entry_mode (e))) // skip non-files completely
    3284                 :        735 :             continue;
    3285                 :            : 
    3286         [ +  - ]:        642 :           string fn = canonicalized_archive_entry_pathname (e);
    3287                 :            : 
    3288         [ +  + ]:        321 :           if (verbose > 3)
    3289   [ +  -  +  -  :        602 :             obatched(clog) << "libarchive checking " << fn << endl;
             +  -  -  - ]
    3290                 :            : 
    3291                 :            :           // extract this file to a temporary file
    3292                 :        321 :           char* tmppath = NULL;
    3293                 :        321 :           rc = asprintf (&tmppath, "%s/debuginfod.XXXXXX", tmpdir.c_str());
    3294         [ -  + ]:        321 :           if (rc < 0)
    3295   [ #  #  #  # ]:          0 :             throw libc_exception (ENOMEM, "cannot allocate tmppath");
    3296                 :          0 :           defer_dtor<void*,void> tmmpath_freer (tmppath, free);
    3297         [ +  - ]:        321 :           int fd = mkstemp (tmppath);
    3298         [ -  + ]:        321 :           if (fd < 0)
    3299   [ #  #  #  # ]:          0 :             throw libc_exception (errno, "cannot create temporary file");
    3300                 :        321 :           unlink (tmppath); // unlink now so OS will release the file as soon as we close the fd
    3301         [ +  + ]:        321 :           defer_dtor<int,int> minifd_closer (fd, close);
    3302                 :            : 
    3303         [ +  - ]:        321 :           rc = archive_read_data_into_fd (a, fd);
    3304         [ -  + ]:        321 :           if (rc != ARCHIVE_OK)
    3305   [ #  #  #  # ]:          0 :             throw archive_exception(a, "cannot extract file");
    3306                 :            : 
    3307                 :            :           // finally ... time to run elf_classify on this bad boy and update the database
    3308                 :        321 :           bool executable_p = false, debuginfo_p = false;
    3309         [ +  - ]:        642 :           string buildid;
    3310   [ +  -  +  + ]:        642 :           set<string> sourcefiles;
    3311         [ +  - ]:        321 :           elf_classify (fd, executable_p, debuginfo_p, buildid, sourcefiles);
    3312                 :            :           // NB: might throw
    3313                 :            : 
    3314         [ +  + ]:        321 :           if (buildid != "") // intern buildid
    3315                 :            :             {
    3316                 :        170 :               ps_upsert_buildids
    3317         [ +  - ]:        170 :                 .reset()
    3318         [ +  - ]:        170 :                 .bind(1, buildid)
    3319         [ +  - ]:        170 :                 .step_ok_done();
    3320                 :            :             }
    3321                 :            : 
    3322                 :        321 :           ps_upsert_files // register this rpm constituent file name in interning table
    3323         [ +  - ]:        321 :             .reset()
    3324         [ +  - ]:        321 :             .bind(1, fn)
    3325         [ +  - ]:        321 :             .step_ok_done();
    3326                 :            : 
    3327         [ +  + ]:        321 :           if (sourcefiles.size() > 0) // sref records needed
    3328                 :            :             {
    3329                 :            :               // NB: we intern each source file once.  Once raw, as it
    3330                 :            :               // appears in the DWARF file list coming back from
    3331                 :            :               // elf_classify() - because it'll end up in the
    3332                 :            :               // _norm.artifactsrc column.  We don't also put another
    3333                 :            :               // version with a '.' at the front, even though that's
    3334                 :            :               // how rpm/cpio packs names, because we hide that from
    3335                 :            :               // the database for storage efficiency.
    3336                 :            : 
    3337         [ +  + ]:        295 :               for (auto&& s : sourcefiles)
    3338                 :            :                 {
    3339         [ -  + ]:        221 :                   if (s == "")
    3340                 :            :                     {
    3341                 :          0 :                       fts_sref_complete_p = false;
    3342                 :          0 :                       continue;
    3343                 :            :                     }
    3344                 :            : 
    3345                 :            :                   // PR25548: store canonicalized source path
    3346                 :        221 :                   const string& dwarfsrc = s;
    3347         [ +  - ]:        442 :                   string dwarfsrc_canon = canon_pathname (dwarfsrc);
    3348         [ +  + ]:        221 :                   if (dwarfsrc_canon != dwarfsrc)
    3349                 :            :                     {
    3350         [ +  - ]:         15 :                       if (verbose > 3)
    3351   [ +  -  +  -  :         30 :                         obatched(clog) << "canonicalized src=" << dwarfsrc << " alias=" << dwarfsrc_canon << endl;
          +  -  +  -  +  
                -  -  - ]
    3352                 :            :                     }
    3353                 :            : 
    3354                 :        221 :                   ps_upsert_files
    3355         [ +  - ]:        221 :                     .reset()
    3356         [ +  - ]:        221 :                     .bind(1, dwarfsrc_canon)
    3357         [ +  - ]:        221 :                     .step_ok_done();
    3358                 :            : 
    3359                 :        221 :                   ps_upsert_sref
    3360         [ +  - ]:        221 :                     .reset()
    3361         [ +  - ]:        221 :                     .bind(1, buildid)
    3362         [ +  - ]:        221 :                     .bind(2, dwarfsrc_canon)
    3363         [ +  - ]:        221 :                     .step_ok_done();
    3364                 :            : 
    3365         [ +  - ]:        221 :                   fts_sref ++;
    3366                 :            :                 }
    3367                 :            :             }
    3368                 :            : 
    3369         [ +  + ]:        321 :           if (executable_p)
    3370                 :         72 :             fts_executable ++;
    3371         [ +  + ]:        321 :           if (debuginfo_p)
    3372                 :         98 :             fts_debuginfo ++;
    3373                 :            : 
    3374   [ +  +  +  + ]:        321 :           if (executable_p || debuginfo_p)
    3375                 :            :             {
    3376                 :        170 :               ps_upsert_de
    3377         [ +  - ]:        170 :                 .reset()
    3378         [ +  - ]:        170 :                 .bind(1, buildid)
    3379   [ +  +  +  - ]:        240 :                 .bind(2, debuginfo_p ? 1 : 0)
    3380   [ +  +  +  - ]:        268 :                 .bind(3, executable_p ? 1 : 0)
    3381         [ +  - ]:        170 :                 .bind(4, rps)
    3382         [ +  - ]:        170 :                 .bind(5, mtime)
    3383         [ +  - ]:        170 :                 .bind(6, fn)
    3384         [ +  - ]:        170 :                 .step_ok_done();
    3385                 :            :             }
    3386                 :            :           else // potential source - sdef record
    3387                 :            :             {
    3388                 :        151 :               fts_sdef ++;
    3389                 :        151 :               ps_upsert_sdef
    3390         [ +  - ]:        151 :                 .reset()
    3391         [ +  - ]:        151 :                 .bind(1, rps)
    3392         [ +  - ]:        151 :                 .bind(2, mtime)
    3393         [ +  - ]:        151 :                 .bind(3, fn)
    3394         [ +  - ]:        151 :                 .step_ok_done();
    3395                 :            :             }
    3396                 :            : 
    3397   [ +  -  +  +  :        321 :           if ((verbose > 2) && (executable_p || debuginfo_p))
                   +  + ]
    3398   [ +  -  +  - ]:        510 :             obatched(clog) << "recorded buildid=" << buildid << " rpm=" << rps << " file=" << fn
    3399   [ +  -  +  -  :        170 :                            << " mtime=" << mtime << " atype="
          +  -  +  -  +  
                -  +  - ]
    3400                 :            :                            << (executable_p ? "E" : "")
    3401                 :            :                            << (debuginfo_p ? "D" : "")
    3402   [ +  -  +  +  :        340 :                            << " sourcefiles=" << sourcefiles.size() << endl;
          +  -  +  +  +  
          -  +  -  +  -  
                   +  - ]
    3403                 :            : 
    3404                 :            :         }
    3405         [ -  - ]:          0 :       catch (const reportable_exception& e)
    3406                 :            :         {
    3407         [ -  - ]:          0 :           e.report(clog);
    3408                 :            :         }
    3409                 :            :     }
    3410                 :        174 : }
    3411                 :            : 
    3412                 :            : 
    3413                 :            : 
    3414                 :            : // scan for archive files such as .rpm
    3415                 :            : static void
    3416                 :        335 : scan_archive_file (const string& rps, const stat_t& st,
    3417                 :            :                    sqlite_ps& ps_upsert_buildids,
    3418                 :            :                    sqlite_ps& ps_upsert_files,
    3419                 :            :                    sqlite_ps& ps_upsert_de,
    3420                 :            :                    sqlite_ps& ps_upsert_sref,
    3421                 :            :                    sqlite_ps& ps_upsert_sdef,
    3422                 :            :                    sqlite_ps& ps_query,
    3423                 :            :                    sqlite_ps& ps_scan_done,
    3424                 :            :                    unsigned& fts_cached,
    3425                 :            :                    unsigned& fts_executable,
    3426                 :            :                    unsigned& fts_debuginfo,
    3427                 :            :                    unsigned& fts_sref,
    3428                 :            :                    unsigned& fts_sdef)
    3429                 :            : {
    3430                 :            :   /* See if we know of it already. */
    3431                 :        335 :   int rc = ps_query
    3432                 :        335 :     .reset()
    3433                 :        335 :     .bind(1, rps)
    3434                 :        335 :     .bind(2, st.st_mtime)
    3435                 :        335 :     .step();
    3436                 :        335 :   ps_query.reset();
    3437         [ +  + ]:        335 :   if (rc == SQLITE_ROW) // i.e., a result, as opposed to DONE (no results)
    3438                 :            :     // no need to recheck a file/version we already know
    3439                 :            :     // specifically, no need to parse this archive again, since we already have
    3440                 :            :     // it as a D or E or S record,
    3441                 :            :     // (so is stored with buildid=NULL)
    3442                 :            :     {
    3443                 :        161 :       fts_cached ++;
    3444                 :        161 :       return;
    3445                 :            :     }
    3446                 :            : 
    3447                 :            :   // intern the archive file name
    3448                 :        174 :   ps_upsert_files
    3449                 :        174 :     .reset()
    3450                 :        174 :     .bind(1, rps)
    3451                 :        174 :     .step_ok_done();
    3452                 :            : 
    3453                 :            :   // extract the archive contents
    3454                 :        174 :   unsigned my_fts_executable = 0, my_fts_debuginfo = 0, my_fts_sref = 0, my_fts_sdef = 0;
    3455                 :        174 :   bool my_fts_sref_complete_p = true;
    3456                 :        174 :   try
    3457                 :            :     {
    3458         [ +  - ]:        348 :       string archive_extension;
    3459                 :        174 :       archive_classify (rps, archive_extension,
    3460                 :            :                         ps_upsert_buildids, ps_upsert_files,
    3461                 :            :                         ps_upsert_de, ps_upsert_sref, ps_upsert_sdef, // dalt
    3462         [ +  - ]:        174 :                         st.st_mtime,
    3463                 :            :                         my_fts_executable, my_fts_debuginfo, my_fts_sref, my_fts_sdef,
    3464                 :            :                         my_fts_sref_complete_p);
    3465         [ +  - ]:        174 :       add_metric ("scanned_bytes_total","source",archive_extension + " archive",
    3466   [ +  -  +  -  :        348 :                   st.st_size);
          +  -  -  +  +  
             +  -  -  -  
                      - ]
    3467   [ +  -  +  -  :        348 :       inc_metric ("scanned_files_total","source",archive_extension + " archive");
          +  -  +  -  -  
          +  +  +  -  -  
                   -  - ]
    3468   [ +  -  +  - ]:        348 :       add_metric("found_debuginfo_total","source",archive_extension + " archive",
    3469   [ +  -  +  -  :        348 :                  my_fts_debuginfo);
          -  +  +  +  -  
                -  -  - ]
    3470   [ +  -  +  - ]:        348 :       add_metric("found_executable_total","source",archive_extension + " archive",
    3471   [ +  -  +  -  :        348 :                  my_fts_executable);
          -  +  +  +  -  
                -  -  - ]
    3472   [ +  -  +  -  :        522 :       add_metric("found_sourcerefs_total","source",archive_extension + " archive",
             -  +  -  - ]
    3473   [ +  -  +  -  :        348 :                  my_fts_sref);
          -  +  +  +  -  
                -  -  - ]
    3474                 :            :     }
    3475         [ -  - ]:          0 :   catch (const reportable_exception& e)
    3476                 :            :     {
    3477         [ -  - ]:          0 :       e.report(clog);
    3478                 :            :     }
    3479                 :            : 
    3480         [ +  - ]:        174 :   if (verbose > 2)
    3481         [ +  - ]:        522 :     obatched(clog) << "scanned archive=" << rps
    3482   [ +  -  +  - ]:        174 :                    << " mtime=" << st.st_mtime
    3483         [ +  - ]:        174 :                    << " executables=" << my_fts_executable
    3484   [ +  -  +  - ]:        174 :                    << " debuginfos=" << my_fts_debuginfo
    3485   [ +  -  +  - ]:        174 :                    << " srefs=" << my_fts_sref
    3486   [ +  -  +  -  :        348 :                    << " sdefs=" << my_fts_sdef
                   +  - ]
    3487         [ +  - ]:        348 :                    << endl;
    3488                 :            : 
    3489                 :        174 :   fts_executable += my_fts_executable;
    3490                 :        174 :   fts_debuginfo += my_fts_debuginfo;
    3491                 :        174 :   fts_sref += my_fts_sref;
    3492                 :        174 :   fts_sdef += my_fts_sdef;
    3493                 :            : 
    3494         [ +  - ]:        174 :   if (my_fts_sref_complete_p) // leave incomplete?
    3495                 :        174 :     ps_scan_done
    3496                 :        174 :       .reset()
    3497                 :        174 :       .bind(1, rps)
    3498                 :        174 :       .bind(2, st.st_mtime)
    3499                 :        174 :       .bind(3, st.st_size)
    3500                 :        174 :       .step_ok_done();
    3501                 :            : }
    3502                 :            : 
    3503                 :            : 
    3504                 :            : 
    3505                 :            : ////////////////////////////////////////////////////////////////////////
    3506                 :            : 
    3507                 :            : 
    3508                 :            : 
    3509                 :            : // The thread that consumes file names off of the scanq.  We hold
    3510                 :            : // the persistent sqlite_ps's at this level and delegate file/archive
    3511                 :            : // scanning to other functions.
    3512                 :            : static void*
    3513                 :        120 : thread_main_scanner (void* arg)
    3514                 :            : {
    3515                 :        120 :   (void) arg;
    3516                 :            : 
    3517                 :            :   // all the prepared statements fit to use, the _f_ set:
    3518   [ +  -  +  -  :        480 :   sqlite_ps ps_f_upsert_buildids (db, "file-buildids-intern", "insert or ignore into " BUILDIDS "_buildids VALUES (NULL, ?);");
          +  -  +  -  -  
                      - ]
    3519   [ +  -  +  -  :        480 :   sqlite_ps ps_f_upsert_files (db, "file-files-intern", "insert or ignore into " BUILDIDS "_files VALUES (NULL, ?);");
          +  -  +  -  +  
                -  -  - ]
    3520         [ +  - ]:        120 :   sqlite_ps ps_f_upsert_de (db, "file-de-upsert",
    3521                 :            :                           "insert or ignore into " BUILDIDS "_f_de "
    3522                 :            :                           "(buildid, debuginfo_p, executable_p, file, mtime) "
    3523                 :            :                           "values ((select id from " BUILDIDS "_buildids where hex = ?),"
    3524                 :            :                           "        ?,?,"
    3525   [ +  -  +  -  :        480 :                           "        (select id from " BUILDIDS "_files where name = ?), ?);");
          +  -  +  -  +  
                -  -  - ]
    3526         [ +  - ]:        120 :   sqlite_ps ps_f_upsert_s (db, "file-s-upsert",
    3527                 :            :                          "insert or ignore into " BUILDIDS "_f_s "
    3528                 :            :                          "(buildid, artifactsrc, file, mtime) "
    3529                 :            :                          "values ((select id from " BUILDIDS "_buildids where hex = ?),"
    3530                 :            :                          "        (select id from " BUILDIDS "_files where name = ?),"
    3531                 :            :                          "        (select id from " BUILDIDS "_files where name = ?),"
    3532   [ +  -  +  -  :        480 :                          "        ?);");
          +  -  +  -  +  
                -  -  - ]
    3533         [ +  - ]:        120 :   sqlite_ps ps_f_query (db, "file-negativehit-find",
    3534                 :            :                         "select 1 from " BUILDIDS "_file_mtime_scanned where sourcetype = 'F' "
    3535   [ +  -  +  -  :        480 :                         "and file = (select id from " BUILDIDS "_files where name = ?) and mtime = ?;");
          +  -  +  -  +  
                -  -  - ]
    3536         [ +  - ]:        120 :   sqlite_ps ps_f_scan_done (db, "file-scanned",
    3537                 :            :                           "insert or ignore into " BUILDIDS "_file_mtime_scanned (sourcetype, file, mtime, size)"
    3538   [ +  -  +  -  :        480 :                           "values ('F', (select id from " BUILDIDS "_files where name = ?), ?, ?);");
          +  -  +  -  +  
                -  -  - ]
    3539                 :            : 
    3540                 :            :   // and now for the _r_ set
    3541   [ +  -  +  -  :        480 :   sqlite_ps ps_r_upsert_buildids (db, "rpm-buildid-intern", "insert or ignore into " BUILDIDS "_buildids VALUES (NULL, ?);");
          +  -  +  -  +  
                -  -  - ]
    3542   [ +  -  +  -  :        480 :   sqlite_ps ps_r_upsert_files (db, "rpm-file-intern", "insert or ignore into " BUILDIDS "_files VALUES (NULL, ?);");
          +  -  +  -  +  
                -  -  - ]
    3543         [ +  - ]:        120 :   sqlite_ps ps_r_upsert_de (db, "rpm-de-insert",
    3544                 :            :                           "insert or ignore into " BUILDIDS "_r_de (buildid, debuginfo_p, executable_p, file, mtime, content) values ("
    3545                 :            :                           "(select id from " BUILDIDS "_buildids where hex = ?), ?, ?, "
    3546                 :            :                           "(select id from " BUILDIDS "_files where name = ?), ?, "
    3547   [ +  -  +  -  :        480 :                           "(select id from " BUILDIDS "_files where name = ?));");
          +  -  +  -  +  
                -  -  - ]
    3548         [ +  - ]:        120 :   sqlite_ps ps_r_upsert_sref (db, "rpm-sref-insert",
    3549                 :            :                             "insert or ignore into " BUILDIDS "_r_sref (buildid, artifactsrc) values ("
    3550                 :            :                             "(select id from " BUILDIDS "_buildids where hex = ?), "
    3551   [ +  -  +  -  :        480 :                             "(select id from " BUILDIDS "_files where name = ?));");
          +  -  +  -  +  
                -  -  - ]
    3552         [ +  - ]:        120 :   sqlite_ps ps_r_upsert_sdef (db, "rpm-sdef-insert",
    3553                 :            :                             "insert or ignore into " BUILDIDS "_r_sdef (file, mtime, content) values ("
    3554                 :            :                             "(select id from " BUILDIDS "_files where name = ?), ?,"
    3555   [ +  -  +  -  :        480 :                             "(select id from " BUILDIDS "_files where name = ?));");
          +  -  +  -  +  
                -  -  - ]
    3556         [ +  - ]:        120 :   sqlite_ps ps_r_query (db, "rpm-negativehit-query",
    3557                 :            :                       "select 1 from " BUILDIDS "_file_mtime_scanned where "
    3558   [ +  -  +  -  :        480 :                       "sourcetype = 'R' and file = (select id from " BUILDIDS "_files where name = ?) and mtime = ?;");
          +  -  +  -  +  
                -  -  - ]
    3559         [ +  - ]:        120 :   sqlite_ps ps_r_scan_done (db, "rpm-scanned",
    3560                 :            :                           "insert or ignore into " BUILDIDS "_file_mtime_scanned (sourcetype, file, mtime, size)"
    3561   [ +  -  +  -  :        360 :                           "values ('R', (select id from " BUILDIDS "_files where name = ?), ?, ?);");
          +  -  +  -  +  
                -  -  - ]
    3562                 :            : 
    3563                 :            : 
    3564                 :        120 :   unsigned fts_cached = 0, fts_executable = 0, fts_debuginfo = 0, fts_sourcefiles = 0;
    3565                 :        120 :   unsigned fts_sref = 0, fts_sdef = 0;
    3566                 :            : 
    3567   [ +  -  +  -  :        240 :   add_metric("thread_count", "role", "scan", 1);
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    3568   [ +  -  +  -  :        240 :   add_metric("thread_busy", "role", "scan", 1);
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3569         [ +  + ]:        692 :   while (! interrupted)
    3570                 :            :     {
    3571         [ +  - ]:       1024 :       scan_payload p;
    3572                 :            : 
    3573   [ +  -  +  -  :       1144 :       add_metric("thread_busy", "role", "scan", -1);
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    3574         [ +  - ]:        572 :       bool gotone = scanq.wait_front(p);
    3575   [ +  -  +  -  :       1144 :       add_metric("thread_busy", "role", "scan", 1);
          +  -  +  -  -  
          +  -  +  +  +  
             -  -  -  - ]
    3576                 :            : 
    3577   [ +  +  -  + ]:        572 :       if (! gotone) continue; // go back to waiting
    3578                 :            : 
    3579                 :        452 :       try
    3580                 :            :         {
    3581                 :        452 :           bool scan_archive = false;
    3582         [ +  + ]:       1064 :           for (auto&& arch : scan_archives)
    3583         [ +  + ]:        612 :             if (string_endswith(p.first, arch.first))
    3584                 :        335 :               scan_archive = true;
    3585                 :            : 
    3586         [ +  + ]:        452 :           if (scan_archive)
    3587         [ +  - ]:        335 :             scan_archive_file (p.first, p.second,
    3588                 :            :                                ps_r_upsert_buildids,
    3589                 :            :                                ps_r_upsert_files,
    3590                 :            :                                ps_r_upsert_de,
    3591                 :            :                                ps_r_upsert_sref,
    3592                 :            :                                ps_r_upsert_sdef,
    3593                 :            :                                ps_r_query,
    3594                 :            :                                ps_r_scan_done,
    3595                 :            :                                fts_cached,
    3596                 :            :                                fts_executable,
    3597                 :            :                                fts_debuginfo,
    3598                 :            :                                fts_sref,
    3599                 :            :                                fts_sdef);
    3600                 :            : 
    3601         [ +  + ]:        452 :           if (scan_files) // NB: maybe "else if" ?
    3602         [ +  - ]:        356 :             scan_source_file (p.first, p.second,
    3603                 :            :                               ps_f_upsert_buildids,
    3604                 :            :                               ps_f_upsert_files,
    3605                 :            :                               ps_f_upsert_de,
    3606                 :            :                               ps_f_upsert_s,
    3607                 :            :                               ps_f_query,
    3608                 :            :                               ps_f_scan_done,
    3609                 :            :                               fts_cached, fts_executable, fts_debuginfo, fts_sourcefiles);
    3610                 :            :         }
    3611         [ -  - ]:          0 :       catch (const reportable_exception& e)
    3612                 :            :         {
    3613         [ -  - ]:          0 :           e.report(cerr);
    3614                 :            :         }
    3615                 :            : 
    3616         [ +  - ]:        452 :       scanq.done_front(); // let idlers run
    3617                 :            :       
    3618                 :        452 :       if (fts_cached || fts_executable || fts_debuginfo || fts_sourcefiles || fts_sref || fts_sdef)
    3619                 :            :         {} // NB: not just if a successful scan - we might have encountered -ENOSPC & failed
    3620   [ +  -  +  -  :        904 :       (void) statfs_free_enough_p(db_path, "database"); // report sqlite filesystem size
                   +  - ]
    3621   [ +  -  +  -  :        904 :       (void) statfs_free_enough_p(tmpdir, "tmpdir"); // this too, in case of fdcache/tmpfile usage
                   +  - ]
    3622                 :            : 
    3623                 :            :       // finished a scanning step -- not a "loop", because we just
    3624                 :            :       // consume the traversal loop's work, whenever
    3625   [ +  -  +  -  :        904 :       inc_metric("thread_work_total","role","scan");
          +  -  +  -  -  
          +  -  +  +  -  
          -  -  -  -  -  
                      - ]
    3626                 :            :     }
    3627                 :            : 
    3628                 :            : 
    3629   [ +  -  +  -  :        240 :   add_metric("thread_busy", "role", "scan", -1);
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3630                 :        240 :   return 0;
    3631                 :            : }
    3632                 :            : 
    3633                 :            : 
    3634                 :            : 
    3635                 :            : // The thread that traverses all the source_paths and enqueues all the
    3636                 :            : // matching files into the file/archive scan queue.
    3637                 :            : static void
    3638                 :         57 : scan_source_paths()
    3639                 :            : {
    3640                 :            :   // NB: fedora 31 glibc/fts(3) crashes inside fts_read() on empty
    3641                 :            :   // path list.
    3642         [ +  + ]:         57 :   if (source_paths.empty())
    3643                 :          1 :     return;
    3644                 :            : 
    3645                 :            :   // Turn the source_paths into an fts(3)-compatible char**.  Since
    3646                 :            :   // source_paths[] does not change after argv processing, the
    3647                 :            :   // c_str()'s are safe to keep around awile.
    3648                 :        112 :   vector<const char *> sps;
    3649         [ +  + ]:        151 :   for (auto&& sp: source_paths)
    3650         [ +  - ]:         95 :     sps.push_back(sp.c_str());
    3651   [ +  -  -  - ]:         56 :   sps.push_back(NULL);
    3652                 :            : 
    3653   [ +  +  +  - ]:        105 :   FTS *fts = fts_open ((char * const *)sps.data(),
    3654                 :            :                       (traverse_logical ? FTS_LOGICAL : FTS_PHYSICAL|FTS_XDEV)
    3655                 :            :                       | FTS_NOCHDIR /* multithreaded */,
    3656                 :            :                       NULL);
    3657         [ -  + ]:         56 :   if (fts == NULL)
    3658   [ #  #  #  # ]:          0 :     throw libc_exception(errno, "cannot fts_open");
    3659         [ +  - ]:         56 :   defer_dtor<FTS*,int> fts_cleanup (fts, fts_close);
    3660                 :            : 
    3661                 :         56 :   struct timespec ts_start, ts_end;
    3662                 :         56 :   clock_gettime (CLOCK_MONOTONIC, &ts_start);
    3663                 :         56 :   unsigned fts_scanned = 0, fts_regex = 0;
    3664                 :            : 
    3665                 :        896 :   FTSENT *f;
    3666   [ +  -  +  + ]:        896 :   while ((f = fts_read (fts)) != NULL)
    3667                 :            :   {
    3668         [ +  - ]:        840 :     if (interrupted) break;
    3669                 :            : 
    3670         [ -  + ]:        840 :     if (sigusr2 != forced_groom_count) // stop early if groom triggered
    3671                 :            :       {
    3672         [ #  # ]:          0 :         scanq.clear(); // clear previously issued work for scanner threads
    3673                 :            :         break;
    3674                 :            :       }
    3675                 :            : 
    3676                 :        840 :     fts_scanned ++;
    3677                 :            : 
    3678         [ +  - ]:        840 :     if (verbose > 2)
    3679   [ +  -  +  -  :       1680 :       obatched(clog) << "fts traversing " << f->fts_path << endl;
                   +  - ]
    3680                 :            : 
    3681   [ +  +  +  +  :        840 :     switch (f->fts_info)
                      + ]
    3682                 :            :       {
    3683                 :        452 :       case FTS_F:
    3684                 :        452 :         {
    3685                 :            :           /* Found a file.  Convert it to an absolute path, so
    3686                 :            :              the buildid database does not have relative path
    3687                 :            :              names that are unresolvable from a subsequent run
    3688                 :            :              in a different cwd. */
    3689         [ -  + ]:        452 :           char *rp = realpath(f->fts_path, NULL);
    3690         [ -  + ]:        452 :           if (rp == NULL)
    3691                 :          0 :             continue; // ignore dangling symlink or such
    3692         [ +  - ]:        452 :           string rps = string(rp);
    3693                 :        452 :           free (rp);
    3694                 :            : 
    3695         [ +  - ]:        452 :           bool ri = !regexec (&file_include_regex, rps.c_str(), 0, 0, 0);
    3696         [ +  - ]:        452 :           bool rx = !regexec (&file_exclude_regex, rps.c_str(), 0, 0, 0);
    3697         [ -  + ]:        452 :           if (!ri || rx)
    3698                 :            :             {
    3699         [ #  # ]:          0 :               if (verbose > 3)
    3700         [ #  # ]:          0 :                 obatched(clog) << "fts skipped by regex "
    3701   [ #  #  #  #  :          0 :                                << (!ri ? "I" : "") << (rx ? "X" : "") << endl;
          #  #  #  #  #  
                      # ]
    3702                 :          0 :               fts_regex ++;
    3703         [ #  # ]:          0 :               if (!ri)
    3704   [ #  #  #  #  :          0 :                 inc_metric("traversed_total","type","file-skipped-I");
          #  #  #  #  #  
          #  #  #  #  #  
             #  #  #  # ]
    3705         [ #  # ]:          0 :               if (rx)
    3706   [ #  #  #  #  :          0 :                 inc_metric("traversed_total","type","file-skipped-X");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    3707                 :            :             }
    3708                 :            :           else
    3709                 :            :             {
    3710   [ +  -  +  - ]:        452 :               scanq.push_back (make_pair(rps, *f->fts_statp));
    3711   [ +  -  +  -  :        904 :               inc_metric("traversed_total","type","file");
          +  -  +  -  -  
          +  -  +  -  -  
             -  -  -  - ]
    3712                 :            :             }
    3713                 :            :         }
    3714                 :        452 :         break;
    3715                 :            : 
    3716                 :          2 :       case FTS_ERR:
    3717                 :          2 :       case FTS_NS:
    3718                 :            :         // report on some types of errors because they may reflect fixable misconfiguration
    3719                 :          2 :         {
    3720   [ +  -  +  -  :          4 :           auto x = libc_exception(f->fts_errno, string("fts traversal ") + string(f->fts_path));
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    3721         [ +  - ]:          2 :           x.report(cerr);
    3722                 :            :         }
    3723   [ +  -  +  -  :          4 :         inc_metric("traversed_total","type","error");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3724                 :          2 :         break;
    3725                 :            : 
    3726                 :          6 :       case FTS_SL: // ignore, but count because debuginfod -L would traverse these
    3727   [ +  -  +  -  :         12 :         inc_metric("traversed_total","type","symlink");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3728                 :          6 :         break;
    3729                 :            : 
    3730                 :        190 :       case FTS_D: // ignore
    3731   [ +  -  +  -  :        380 :         inc_metric("traversed_total","type","directory");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3732                 :        190 :         break;
    3733                 :            : 
    3734                 :        190 :       default: // ignore
    3735   [ +  -  +  -  :        380 :         inc_metric("traversed_total","type","other");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3736                 :        190 :         break;
    3737                 :            :       }
    3738                 :            :   }
    3739                 :         56 :   clock_gettime (CLOCK_MONOTONIC, &ts_end);
    3740                 :         56 :   double deltas = (ts_end.tv_sec - ts_start.tv_sec) + (ts_end.tv_nsec - ts_start.tv_nsec)/1.e9;
    3741                 :            : 
    3742   [ +  -  +  -  :        168 :   obatched(clog) << "fts traversed source paths in " << deltas << "s, scanned=" << fts_scanned
             +  -  +  - ]
    3743   [ +  -  +  -  :         56 :                  << ", regex-skipped=" << fts_regex << endl;
                   +  - ]
    3744                 :            : }
    3745                 :            : 
    3746                 :            : 
    3747                 :            : static void*
    3748                 :         30 : thread_main_fts_source_paths (void* arg)
    3749                 :            : {
    3750                 :         30 :   (void) arg; // ignore; we operate on global data
    3751                 :            : 
    3752   [ +  -  +  -  :         60 :   set_metric("thread_tid", "role","traverse", tid());
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3753   [ +  -  +  -  :         60 :   add_metric("thread_count", "role", "traverse", 1);
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3754                 :            : 
    3755                 :         30 :   time_t last_rescan = 0;
    3756                 :            : 
    3757         [ +  - ]:        153 :   while (! interrupted)
    3758                 :            :     {
    3759                 :        153 :       sleep (1);
    3760                 :        153 :       scanq.wait_idle(); // don't start a new traversal while scanners haven't finished the job
    3761                 :        153 :       scanq.done_idle(); // release the hounds
    3762         [ +  + ]:        153 :       if (interrupted) break;
    3763                 :            : 
    3764                 :        123 :       time_t now = time(NULL);
    3765                 :        123 :       bool rescan_now = false;
    3766         [ +  + ]:        123 :       if (last_rescan == 0) // at least one initial rescan is documented even for -t0
    3767                 :         29 :         rescan_now = true;
    3768   [ +  +  +  + ]:        123 :       if (rescan_s > 0 && (long)now > (long)(last_rescan + rescan_s))
    3769                 :          4 :         rescan_now = true;
    3770         [ +  + ]:        123 :       if (sigusr1 != forced_rescan_count)
    3771                 :            :         {
    3772                 :         30 :           forced_rescan_count = sigusr1;
    3773                 :         30 :           rescan_now = true;
    3774                 :            :         }
    3775         [ +  + ]:        123 :       if (rescan_now)
    3776                 :            :         {
    3777   [ +  -  +  -  :        114 :           set_metric("thread_busy", "role","traverse", 1);
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    3778                 :         57 :           try
    3779                 :            :             {
    3780         [ +  - ]:         57 :               scan_source_paths();
    3781                 :            :             }
    3782         [ -  - ]:          0 :           catch (const reportable_exception& e)
    3783                 :            :             {
    3784         [ -  - ]:          0 :               e.report(cerr);
    3785                 :            :             }
    3786                 :         57 :           last_rescan = time(NULL); // NB: now was before scanning
    3787                 :            :           // finished a traversal loop
    3788   [ +  -  +  -  :        114 :           inc_metric("thread_work_total", "role","traverse");
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3789   [ +  -  +  -  :        114 :           set_metric("thread_busy", "role","traverse", 0);
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3790                 :            :         }
    3791                 :            :     }
    3792                 :            : 
    3793                 :         30 :   return 0;
    3794                 :            : }
    3795                 :            : 
    3796                 :            : 
    3797                 :            : 
    3798                 :            : ////////////////////////////////////////////////////////////////////////
    3799                 :            : 
    3800                 :            : static void
    3801                 :         33 : database_stats_report()
    3802                 :            : {
    3803                 :         33 :   sqlite_ps ps_query (db, "database-overview",
    3804   [ +  -  +  -  :        132 :                       "select label,quantity from " BUILDIDS "_stats");
          +  -  +  -  -  
                      - ]
    3805                 :            : 
    3806   [ +  -  +  - ]:         66 :   obatched(clog) << "database record counts:" << endl;
    3807                 :        673 :   while (1)
    3808                 :            :     {
    3809         [ +  - ]:        353 :       if (interrupted) break;
    3810         [ +  + ]:        353 :       if (sigusr1 != forced_rescan_count) // stop early if scan triggered
    3811                 :            :         break;
    3812                 :            : 
    3813         [ +  - ]:        352 :       int rc = ps_query.step();
    3814         [ +  + ]:        352 :       if (rc == SQLITE_DONE) break;
    3815         [ -  + ]:        320 :       if (rc != SQLITE_ROW)
    3816   [ #  #  #  # ]:          0 :         throw sqlite_exception(rc, "step");
    3817                 :            : 
    3818         [ +  - ]:        320 :       obatched(clog)
    3819   [ +  -  -  +  :        320 :         << ((const char*) sqlite3_column_text(ps_query, 0) ?: (const char*) "NULL")
                   +  - ]
    3820                 :            :         << " "
    3821   [ +  -  +  -  :        640 :         << (sqlite3_column_text(ps_query, 1) ?: (const unsigned char*) "NULL")
             -  +  +  - ]
    3822                 :        320 :         << endl;
    3823                 :            : 
    3824   [ +  -  +  -  :        640 :       set_metric("groom", "statistic",
                   +  - ]
    3825                 :        320 :                  ((const char*) sqlite3_column_text(ps_query, 0) ?: (const char*) "NULL"),
    3826   [ +  -  -  +  :        736 :                  (sqlite3_column_double(ps_query, 1)));
          +  -  +  -  +  
          -  -  +  +  +  
             -  -  -  - ]
    3827                 :        320 :     }
    3828                 :         33 : }
    3829                 :            : 
    3830                 :            : 
    3831                 :            : // Do a round of database grooming that might take many minutes to run.
    3832                 :         33 : void groom()
    3833                 :            : {
    3834         [ +  - ]:         66 :   obatched(clog) << "grooming database" << endl;
    3835                 :            : 
    3836                 :         33 :   struct timespec ts_start, ts_end;
    3837                 :         33 :   clock_gettime (CLOCK_MONOTONIC, &ts_start);
    3838                 :            : 
    3839                 :            :   // scan for files that have disappeared
    3840                 :         33 :   sqlite_ps files (db, "check old files",
    3841                 :            :                    "select distinct s.mtime, s.file, f.name from "
    3842                 :            :                    BUILDIDS "_file_mtime_scanned s, " BUILDIDS "_files f "
    3843   [ +  -  +  -  :         99 :                    "where f.id = s.file");
          +  -  +  -  -  
                      - ]
    3844                 :            :   // NB: Because _ftime_mtime_scanned can contain both F and
    3845                 :            :   // R records for the same file, this query would return duplicates if the
    3846                 :            :   // DISTINCT qualifier were not there.
    3847         [ +  - ]:         33 :   files.reset();
    3848                 :            : 
    3849                 :            :   // DECISION TIME - we enumerate stale fileids/mtimes
    3850         [ +  - ]:         66 :   deque<pair<int64_t,int64_t> > stale_fileid_mtime;
    3851                 :            :   
    3852                 :         33 :   time_t time_start = time(NULL);
    3853                 :        133 :   while(1)
    3854                 :            :     {
    3855                 :            :       // PR28514: limit grooming iteration to O(rescan time), to avoid
    3856                 :            :       // slow filesystem tests over many files locking out rescans for
    3857                 :            :       // too long.
    3858   [ +  +  -  + ]:         83 :       if (rescan_s > 0 && (long)time(NULL) > (long)(time_start + rescan_s))
    3859                 :            :         {
    3860   [ #  #  #  #  :          0 :           inc_metric("groomed_total", "decision", "aborted");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    3861                 :          0 :           break;
    3862                 :            :         }
    3863                 :            : 
    3864         [ +  - ]:         83 :       if (interrupted) break;
    3865                 :            : 
    3866         [ +  - ]:         83 :       int rc = files.step();
    3867         [ +  + ]:         83 :       if (rc != SQLITE_ROW)
    3868                 :            :         break;
    3869                 :            : 
    3870         [ +  - ]:         50 :       int64_t mtime = sqlite3_column_int64 (files, 0);
    3871         [ +  - ]:         50 :       int64_t fileid = sqlite3_column_int64 (files, 1);
    3872   [ +  -  -  + ]:         50 :       const char* filename = ((const char*) sqlite3_column_text (files, 2) ?: "");
    3873                 :         50 :       struct stat s;
    3874                 :         50 :       bool regex_file_drop = 0;
    3875                 :            : 
    3876         [ -  + ]:         50 :       if (regex_groom)
    3877                 :            :         {
    3878         [ #  # ]:          0 :           bool reg_include = !regexec (&file_include_regex, filename, 0, 0, 0);
    3879         [ #  # ]:          0 :           bool reg_exclude = !regexec (&file_exclude_regex, filename, 0, 0, 0);
    3880                 :          0 :           regex_file_drop = reg_exclude && !reg_include;
    3881                 :            :         }
    3882                 :            : 
    3883                 :         50 :       rc = stat(filename, &s);
    3884   [ +  +  -  + ]:         50 :       if ( regex_file_drop ||  rc < 0 || (mtime != (int64_t) s.st_mtime) )
    3885                 :            :         {
    3886         [ +  - ]:          4 :           if (verbose > 2)
    3887   [ +  -  +  -  :          8 :             obatched(clog) << "groom: stale file=" << filename << " mtime=" << mtime << endl;
          +  -  +  -  +  
                      - ]
    3888         [ +  - ]:          4 :           stale_fileid_mtime.push_back(make_pair(fileid,mtime));
    3889   [ +  -  +  -  :          8 :           inc_metric("groomed_total", "decision", "stale");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    3890   [ +  -  +  -  :          8 :           set_metric("thread_work_pending","role","groom", stale_fileid_mtime.size());
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3891                 :            :         }
    3892                 :            :       else
    3893   [ +  -  +  -  :         92 :         inc_metric("groomed_total", "decision", "fresh");
          +  -  +  -  -  
          +  -  +  -  -  
                   -  - ]
    3894                 :            :       
    3895         [ +  - ]:         50 :       if (sigusr1 != forced_rescan_count) // stop early if scan triggered
    3896                 :            :         break;
    3897                 :         50 :     }
    3898         [ +  - ]:         33 :   files.reset();
    3899                 :            : 
    3900                 :            :   // ACTION TIME
    3901                 :            : 
    3902                 :            :   // Now that we know which file/mtime tuples are stale, actually do
    3903                 :            :   // the deletion from the database.  Doing this during the SELECT
    3904                 :            :   // iteration above results in undefined behaviour in sqlite, as per
    3905                 :            :   // https://www.sqlite.org/isolation.html
    3906                 :            : 
    3907                 :            :   // We could shuffle stale_fileid_mtime[] here.  It'd let aborted
    3908                 :            :   // sequences of nuke operations resume at random locations, instead
    3909                 :            :   // of just starting over.  But it doesn't matter much either way,
    3910                 :            :   // as long as we make progress.
    3911                 :            : 
    3912   [ +  -  +  -  :        132 :   sqlite_ps files_del_f_de (db, "nuke f_de", "delete from " BUILDIDS "_f_de where file = ? and mtime = ?");
          +  -  +  -  +  
                -  -  - ]
    3913   [ +  -  +  -  :        132 :   sqlite_ps files_del_r_de (db, "nuke r_de", "delete from " BUILDIDS "_r_de where file = ? and mtime = ?");
          +  -  +  -  +  
                -  -  - ]
    3914         [ +  - ]:         33 :   sqlite_ps files_del_scan (db, "nuke f_m_s", "delete from " BUILDIDS "_file_mtime_scanned "
    3915   [ +  -  +  -  :        132 :                             "where file = ? and mtime = ?");
          +  -  +  -  -  
                      - ]
    3916                 :            : 
    3917         [ +  + ]:         37 :   while (! stale_fileid_mtime.empty())
    3918                 :            :     {
    3919                 :          4 :       auto stale = stale_fileid_mtime.front();
    3920                 :          4 :       stale_fileid_mtime.pop_front();
    3921   [ +  -  +  -  :          8 :       set_metric("thread_work_pending","role","groom", stale_fileid_mtime.size());
          +  -  +  -  -  
          +  -  +  -  +  
             -  -  -  - ]
    3922                 :            : 
    3923                 :            :       // PR28514: limit grooming iteration to O(rescan time), to avoid
    3924                 :            :       // slow nuke_* queries over many files locking out rescans for too
    3925                 :            :       // long.  We iterate over the files in random() sequence to avoid
    3926                 :            :       // partial checks going over the same set.
    3927   [ -  +  -  - ]:          4 :       if (rescan_s > 0 && (long)time(NULL) > (long)(time_start + rescan_s))
    3928                 :            :         {
    3929   [ #  #  #  #  :          0 :           inc_metric("groomed_total", "action", "aborted");
          #  #  #  #  #  
          #  #  #  #  #  
                   #  # ]
    3930                 :          0 :           break;
    3931                 :            :         }
    3932                 :            : 
    3933         [ +  - ]:          4 :       if (interrupted) break;
    3934                 :            : 
    3935                 :          4 :       int64_t fileid = stale.first;
    3936                 :          4 :       int64_t mtime = stale.second;
    3937   [ +  -  +  -  :          4 :       files_del_f_de.reset().bind(1,fileid).bind(2,mtime).step_ok_done();
             +  -  +  - ]
    3938   [ +  -  +  -  :          4 :       files_del_r_de.reset().bind(1,fileid).bind(2,mtime).step_ok_done();
             +  -  +  - ]
    3939   [ +  -  +  -  :          4 :       files_del_scan.reset().bind(1,fileid).bind(2,mtime).step_ok_done();
             +  -  +  - ]
    3940   [ +  -  +  -  :          8 :       inc_metric("groomed_total", "action", "cleaned");
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    3941                 :            :       
    3942         [ +  - ]:          4 :        if (sigusr1 != forced_rescan_count) // stop early if scan triggered
    3943                 :            :         break;
    3944                 :            :     }
    3945                 :         33 :   stale_fileid_mtime.clear(); // no need for this any longer
    3946   [ +  -  +  -  :         66 :   set_metric("thread_work_pending","role","groom", stale_fileid_mtime.size());
          +  -  +  -  -  
          +  -  +  +  -  
             -  -  -  - ]
    3947                 :            :       
    3948                 :            :   // delete buildids with no references in _r_de or _f_de tables;
    3949                 :            :   // cascades to _r_sref & _f_s records
    3950         [ +  - ]:         33 :   sqlite_ps buildids_del (db, "nuke orphan buildids",
    3951                 :            :                           "delete from " BUILDIDS "_buildids "
    3952                 :            :                           "where not exists (select 1 from " BUILDIDS "_f_de d where " BUILDIDS "_buildids.id = d.buildid) "
    3953   [ +  -  +  -  :        132 :                           "and not exists (select 1 from " BUILDIDS "_r_de d where " BUILDIDS "_buildids.id = d.buildid)");
          +  -  +  -  +  
                -  -  - ]
    3954   [ +  -  +  - ]:         33 :   buildids_del.reset().step_ok_done();
    3955                 :            : 
    3956         [ -  + ]:         33 :   if (interrupted) return;
    3957                 :            : 
    3958                 :            :   // NB: "vacuum" is too heavy for even daily runs: it rewrites the entire db, so is done as maxigroom -G
    3959   [ +  -  +  -  :        132 :   sqlite_ps g1 (db, "incremental vacuum", "pragma incremental_vacuum");
          +  -  +  -  +  
                -  -  - ]
    3960   [ +  -  +  - ]:         33 :   g1.reset().step_ok_done();
    3961   [ +  -  +  -  :         99 :   sqlite_ps g2 (db, "optimize", "pragma optimize");
          +  -  -  +  +  
                -  -  - ]
    3962   [ +  -  +  - ]:         33 :   g2.reset().step_ok_done();
    3963   [ +  -  +  -  :         99 :   sqlite_ps g3 (db, "wal checkpoint", "pragma wal_checkpoint=truncate");
          +  -  +  -  +  
                -  -  - ]
    3964   [ +  -  +  - ]:         33 :   g3.reset().step_ok_done();
    3965                 :            : 
    3966         [ +  - ]:         33 :   database_stats_report();
    3967                 :            : 
    3968   [ +  -  +  -  :         66 :   (void) statfs_free_enough_p(db_path, "database"); // report sqlite filesystem size
                   +  - ]
    3969                 :            : 
    3970         [ +  - ]:         33 :   sqlite3_db_release_memory(db); // shrink the process if possible
    3971         [ +  - ]:         33 :   sqlite3_db_release_memory(dbq); // ... for both connections
    3972         [ +  - ]:         33 :   debuginfod_pool_groom(); // and release any debuginfod_client objects we've been holding onto
    3973                 :            : 
    3974         [ +  - ]:         33 :   fdcache.limit(0,0,0,0); // release the fdcache contents
    3975         [ +  - ]:         33 :   fdcache.limit(fdcache_fds, fdcache_mbs, fdcache_prefetch_fds, fdcache_prefetch_mbs); // restore status quo parameters
    3976                 :            : 
    3977                 :         33 :   clock_gettime (CLOCK_MONOTONIC, &ts_end);
    3978                 :         33 :   double deltas = (ts_end.tv_sec - ts_start.tv_sec) + (ts_end.tv_nsec - ts_start.tv_nsec)/1.e9;
    3979                 :            : 
    3980   [ +  -  +  -  :         66 :   obatched(clog) << "groomed database in " << deltas << "s" << endl;
             +  -  +  - ]
    3981                 :            : }
    3982                 :            : 
    3983                 :            : 
    3984                 :            : static void*
    3985                 :         33 : thread_main_groom (void* /*arg*/)
    3986                 :            : {
    3987   [ +  -  +  -  :         66 :   set_metric("thread_tid", "role", "groom", tid());
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3988   [ +  -  +  -  :         66 :   add_metric("thread_count", "role", "groom", 1);
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    3989                 :            : 
    3990                 :         33 :   time_t last_groom = 0;
    3991                 :            : 
    3992                 :        279 :   while (1)
    3993                 :            :     {
    3994                 :        156 :       sleep (1);
    3995                 :        156 :       scanq.wait_idle(); // PR25394: block scanners during grooming!
    3996         [ +  + ]:        156 :       if (interrupted) break;
    3997                 :            : 
    3998                 :        123 :       time_t now = time(NULL);
    3999                 :        123 :       bool groom_now = false;
    4000         [ +  + ]:        123 :       if (last_groom == 0) // at least one initial groom is documented even for -g0
    4001                 :         30 :         groom_now = true;
    4002   [ +  +  +  + ]:        123 :       if (groom_s > 0 && (long)now > (long)(last_groom + groom_s))
    4003                 :          4 :         groom_now = true;
    4004         [ +  + ]:        123 :       if (sigusr2 != forced_groom_count)
    4005                 :            :         {
    4006                 :          3 :           forced_groom_count = sigusr2;
    4007                 :          3 :           groom_now = true;
    4008                 :            :         }
    4009         [ +  + ]:        123 :       if (groom_now)
    4010                 :            :         {
    4011   [ +  -  +  -  :         66 :           set_metric("thread_busy", "role", "groom", 1);
          +  -  -  +  -  
          +  +  -  -  -  
                   -  - ]
    4012                 :         33 :           try
    4013                 :            :             {
    4014         [ +  - ]:         33 :               groom ();
    4015                 :            :             }
    4016         [ -  - ]:          0 :           catch (const sqlite_exception& e)
    4017                 :            :             {
    4018   [ -  -  -  -  :          0 :               obatched(cerr) << e.message << endl;
                   -  - ]
    4019                 :            :             }
    4020                 :         33 :           last_groom = time(NULL); // NB: now was before grooming
    4021                 :            :           // finished a grooming loop
    4022   [ +  -  +  -  :         66 :           inc_metric("thread_work_total", "role", "groom");
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    4023   [ +  -  +  -  :         66 :           set_metric("thread_busy", "role", "groom", 0);
          +  -  -  +  -  
             +  -  -  -  
                      - ]
    4024                 :            :         }
    4025                 :            : 
    4026                 :        123 :       scanq.done_idle();
    4027                 :        123 :     }
    4028                 :            : 
    4029                 :         33 :   return 0;
    4030                 :            : }
    4031                 :            : 
    4032                 :            : 
    4033                 :            : ////////////////////////////////////////////////////////////////////////
    4034                 :            : 
    4035                 :            : 
    4036                 :            : static void
    4037                 :         34 : signal_handler (int /* sig */)
    4038                 :            : {
    4039                 :         34 :   interrupted ++;
    4040                 :            : 
    4041         [ +  + ]:         34 :   if (db)
    4042                 :         33 :     sqlite3_interrupt (db);
    4043         [ +  - ]:         34 :   if (dbq)
    4044                 :         34 :     sqlite3_interrupt (dbq);
    4045                 :            : 
    4046                 :            :   // NB: don't do anything else in here
    4047                 :         34 : }
    4048                 :            : 
    4049                 :            : static void
    4050                 :         30 : sigusr1_handler (int /* sig */)
    4051                 :            : {
    4052                 :         30 :    sigusr1 ++;
    4053                 :            :   // NB: don't do anything else in here
    4054                 :         30 : }
    4055                 :            : 
    4056                 :            : static void
    4057                 :          3 : sigusr2_handler (int /* sig */)
    4058                 :            : {
    4059                 :          3 :    sigusr2 ++;
    4060                 :            :   // NB: don't do anything else in here
    4061                 :          3 : }
    4062                 :            : 
    4063                 :            : 
    4064                 :            : static void // error logging callback from libmicrohttpd internals
    4065                 :          0 : error_cb (void *arg, const char *fmt, va_list ap)
    4066                 :            : {
    4067                 :          0 :   (void) arg;
    4068   [ #  #  #  #  :          0 :   inc_metric("error_count","libmicrohttpd",fmt);
          #  #  #  #  #  
             #  #  #  #  
                      # ]
    4069                 :          0 :   char errmsg[512];
    4070                 :          0 :   (void) vsnprintf (errmsg, sizeof(errmsg), fmt, ap); // ok if slightly truncated
    4071         [ #  # ]:          0 :   obatched(cerr) << "libmicrohttpd error: " << errmsg; // MHD_DLOG calls already include \n
    4072                 :          0 : }
    4073                 :            : 
    4074                 :            : 
    4075                 :            : // A user-defined sqlite function, to score the sharedness of the
    4076                 :            : // prefix of two strings.  This is used to compare candidate debuginfo
    4077                 :            : // / source-rpm names, so that the closest match
    4078                 :            : // (directory-topology-wise closest) is found.  This is important in
    4079                 :            : // case the same sref (source file name) is in many -debuginfo or
    4080                 :            : // -debugsource RPMs, such as when multiple versions/releases of the
    4081                 :            : // same package are in the database.
    4082                 :            : 
    4083                 :        148 : static void sqlite3_sharedprefix_fn (sqlite3_context* c, int argc, sqlite3_value** argv)
    4084                 :            : {
    4085         [ -  + ]:        148 :   if (argc != 2)
    4086                 :          0 :     sqlite3_result_error(c, "expect 2 string arguments", -1);
    4087   [ +  -  +  + ]:        296 :   else if ((sqlite3_value_type(argv[0]) != SQLITE_TEXT) ||
    4088                 :        148 :            (sqlite3_value_type(argv[1]) != SQLITE_TEXT))
    4089                 :          3 :     sqlite3_result_null(c);
    4090                 :            :   else
    4091                 :            :     {
    4092                 :        145 :       const unsigned char* a = sqlite3_value_text (argv[0]);
    4093                 :        145 :       const unsigned char* b = sqlite3_value_text (argv[1]);
    4094                 :        145 :       int i = 0;
    4095   [ +  +  +  -  :      17794 :       while (*a != '\0' && *b != '\0' && *a++ == *b++)
             +  +  +  + ]
    4096                 :      17524 :         i++;
    4097                 :        145 :       sqlite3_result_int (c, i);
    4098                 :            :     }
    4099                 :        148 : }
    4100                 :            : 
    4101                 :            : 
    4102                 :            : static unsigned
    4103                 :         66 : default_concurrency() // guaranteed >= 1
    4104                 :            : {
    4105                 :            :   // Prior to PR29975 & PR29976, we'd just use this: 
    4106                 :         66 :   unsigned sth = std::thread::hardware_concurrency();
    4107                 :            :   // ... but on many-CPU boxes, admins or distros may throttle
    4108                 :            :   // resources in such a way that debuginfod would mysteriously fail.
    4109                 :            :   // So we reduce the defaults:
    4110                 :            : 
    4111                 :         66 :   unsigned aff = 0;
    4112                 :            : #ifdef HAVE_SCHED_GETAFFINITY
    4113                 :         66 :   {
    4114                 :         66 :     int ret;
    4115                 :         66 :     cpu_set_t mask;
    4116                 :         66 :     CPU_ZERO(&mask);
    4117                 :         66 :     ret = sched_getaffinity(0, sizeof(mask), &mask);
    4118         [ +  - ]:         66 :     if (ret == 0)
    4119                 :         66 :       aff = CPU_COUNT(&mask);
    4120                 :            :   }
    4121                 :            : #endif
    4122                 :            :   
    4123                 :         66 :   unsigned fn = 0;
    4124                 :            : #ifdef HAVE_GETRLIMIT
    4125                 :         66 :   {
    4126                 :         66 :     struct rlimit rlim;
    4127                 :         66 :     int rc = getrlimit(RLIMIT_NOFILE, &rlim);
    4128         [ +  - ]:         66 :     if (rc == 0)
    4129         [ +  - ]:        132 :       fn = max((rlim_t)1, (rlim.rlim_cur - 100) / 4);
    4130                 :            :     // at least 2 fds are used by each listener thread etc.
    4131                 :            :     // plus a bunch to account for shared libraries and such
    4132                 :            :   }
    4133                 :            : #endif
    4134                 :            : 
    4135                 :        198 :   unsigned d = min(max(sth, 1U),
    4136                 :        132 :                    min(max(aff, 1U),
    4137   [ -  +  -  +  :         66 :                        max(fn, 1U)));
          -  +  -  +  -  
                      + ]
    4138                 :         66 :   return d;
    4139                 :            : }
    4140                 :            : 
    4141                 :            : 
    4142                 :            : 
    4143                 :            : int
    4144                 :         34 : main (int argc, char *argv[])
    4145                 :            : {
    4146                 :         34 :   (void) setlocale (LC_ALL, "");
    4147                 :         34 :   (void) bindtextdomain (PACKAGE_TARNAME, LOCALEDIR);
    4148                 :         34 :   (void) textdomain (PACKAGE_TARNAME);
    4149                 :            : 
    4150                 :            :   /* Tell the library which version we are expecting.  */
    4151                 :         34 :   elf_version (EV_CURRENT);
    4152                 :            : 
    4153   [ +  -  -  + ]:         68 :   tmpdir = string(getenv("TMPDIR") ?: "/tmp");
    4154                 :            : 
    4155                 :            :   /* Set computed default values. */
    4156   [ -  +  +  -  :         68 :   db_path = string(getenv("HOME") ?: "/") + string("/.debuginfod.sqlite"); /* XDG? */
          +  -  -  +  -  
             +  +  -  -  
                      - ]
    4157                 :         34 :   int rc = regcomp (& file_include_regex, ".*", REG_EXTENDED|REG_NOSUB); // match everything
    4158         [ -  + ]:         34 :   if (rc != 0)
    4159                 :          0 :     error (EXIT_FAILURE, 0, "regcomp failure: %d", rc);
    4160                 :         34 :   rc = regcomp (& file_exclude_regex, "^$", REG_EXTENDED|REG_NOSUB); // match nothing
    4161         [ -  + ]:         34 :   if (rc != 0)
    4162                 :          0 :     error (EXIT_FAILURE, 0, "regcomp failure: %d", rc);
    4163                 :            : 
    4164                 :            :   // default parameters for fdcache are computed from system stats
    4165                 :         34 :   struct statfs sfs;
    4166                 :         34 :   rc = statfs(tmpdir.c_str(), &sfs);
    4167         [ -  + ]:         34 :   if (rc < 0)
    4168                 :          0 :     fdcache_mbs = 1024; // 1 gigabyte
    4169                 :            :   else
    4170                 :         34 :     fdcache_mbs = sfs.f_bavail * sfs.f_bsize / 1024 / 1024 / 4; // 25% of free space
    4171                 :         34 :   fdcache_mintmp = 25; // emergency flush at 25% remaining (75% full)
    4172                 :         34 :   fdcache_prefetch = 64; // guesstimate storage is this much less costly than re-decompression
    4173                 :         34 :   fdcache_fds = (concurrency + fdcache_prefetch) * 2;
    4174                 :            : 
    4175                 :            :   /* Parse and process arguments.  */
    4176                 :         34 :   int remaining;
    4177                 :         34 :   (void) argp_parse (&argp, argc, argv, ARGP_IN_ORDER, &remaining, NULL);
    4178         [ -  + ]:         34 :   if (remaining != argc)
    4179                 :          0 :       error (EXIT_FAILURE, 0,
    4180                 :          0 :              "unexpected argument: %s", argv[remaining]);
    4181                 :            : 
    4182                 :            :   // Make the prefetch cache spaces a fraction of the main fdcache if
    4183                 :            :   // unspecified.
    4184         [ +  + ]:         34 :   if (fdcache_prefetch_fds == 0)
    4185                 :         33 :     fdcache_prefetch_fds = fdcache_fds / 2;
    4186         [ +  + ]:         34 :   if (fdcache_prefetch_mbs == 0)
    4187                 :         33 :     fdcache_prefetch_mbs = fdcache_mbs / 2;
    4188                 :            : 
    4189   [ +  +  +  +  :         34 :   if (scan_archives.size()==0 && !scan_files && source_paths.size()>0)
                   -  + ]
    4190         [ #  # ]:          0 :     obatched(clog) << "warning: without -F -R -U -Z, ignoring PATHs" << endl;
    4191                 :            : 
    4192                 :         34 :   fdcache.limit(fdcache_fds, fdcache_mbs, fdcache_prefetch_fds, fdcache_prefetch_mbs);
    4193                 :            : 
    4194                 :         34 :   (void) signal (SIGPIPE, SIG_IGN); // microhttpd can generate it incidentally, ignore
    4195                 :         34 :   (void) signal (SIGINT, signal_handler); // ^C
    4196                 :         34 :   (void) signal (SIGHUP, signal_handler); // EOF
    4197                 :         34 :   (void) signal (SIGTERM, signal_handler); // systemd
    4198                 :         34 :   (void) signal (SIGUSR1, sigusr1_handler); // end-user
    4199                 :         34 :   (void) signal (SIGUSR2, sigusr2_handler); // end-user
    4200                 :            : 
    4201                 :            :   /* Get database ready. */
    4202         [ +  + ]:         34 :   if (! passive_p)
    4203                 :            :     {
    4204                 :         33 :       rc = sqlite3_open_v2 (db_path.c_str(), &db, (SQLITE_OPEN_READWRITE
    4205                 :            :                                                    |SQLITE_OPEN_URI
    4206                 :            :                                                    |SQLITE_OPEN_PRIVATECACHE
    4207                 :            :                                                    |SQLITE_OPEN_CREATE
    4208                 :            :                                                    |SQLITE_OPEN_FULLMUTEX), /* thread-safe */
    4209                 :            :                             NULL);
    4210         [ -  + ]:         33 :       if (rc == SQLITE_CORRUPT)
    4211                 :            :         {
    4212                 :          0 :           (void) unlink (db_path.c_str());
    4213                 :          0 :           error (EXIT_FAILURE, 0,
    4214                 :            :                  "cannot open %s, deleted database: %s", db_path.c_str(), sqlite3_errmsg(db));
    4215                 :            :         }
    4216         [ -  + ]:         33 :       else if (rc)
    4217                 :            :         {
    4218                 :          0 :           error (EXIT_FAILURE, 0,
    4219                 :            :                  "cannot open %s, consider deleting database: %s", db_path.c_str(), sqlite3_errmsg(db));
    4220                 :            :         }
    4221                 :            :     }
    4222                 :            : 
    4223                 :            :   // open the readonly query variant
    4224                 :            :   // NB: PRIVATECACHE allows web queries to operate in parallel with
    4225                 :            :   // much other grooming/scanning operation.
    4226                 :         34 :   rc = sqlite3_open_v2 (db_path.c_str(), &dbq, (SQLITE_OPEN_READONLY
    4227                 :            :                                                 |SQLITE_OPEN_URI
    4228                 :            :                                                 |SQLITE_OPEN_PRIVATECACHE
    4229                 :            :                                                 |SQLITE_OPEN_FULLMUTEX), /* thread-safe */
    4230                 :            :                         NULL);
    4231         [ -  + ]:         34 :   if (rc)
    4232                 :            :     {
    4233                 :          0 :       error (EXIT_FAILURE, 0,
    4234                 :            :              "cannot open %s, consider deleting database: %s", db_path.c_str(), sqlite3_errmsg(dbq));
    4235                 :            :     }
    4236                 :            : 
    4237                 :            : 
    4238         [ +  - ]:         68 :   obatched(clog) << "opened database " << db_path
    4239   [ +  +  +  -  :         35 :                  << (db?" rw":"") << (dbq?" ro":"") << endl;
          -  +  +  -  +  
                      - ]
    4240   [ +  -  +  - ]:         68 :   obatched(clog) << "sqlite version " << sqlite3_version << endl;
    4241   [ +  +  +  -  :        101 :   obatched(clog) << "service mode " << (passive_p ? "passive":"active") << endl;
                   +  - ]
    4242                 :            : 
    4243                 :            :   // add special string-prefix-similarity function used in rpm sref/sdef resolution
    4244                 :         34 :   rc = sqlite3_create_function(dbq, "sharedprefix", 2, SQLITE_UTF8, NULL,
    4245                 :            :                                & sqlite3_sharedprefix_fn, NULL, NULL);
    4246         [ -  + ]:         34 :   if (rc != SQLITE_OK)
    4247                 :          0 :     error (EXIT_FAILURE, 0,
    4248                 :            :            "cannot create sharedprefix function: %s", sqlite3_errmsg(dbq));
    4249                 :            : 
    4250         [ +  + ]:         34 :   if (! passive_p)
    4251                 :            :     {
    4252         [ +  + ]:         33 :       if (verbose > 3)
    4253   [ +  -  +  - ]:         40 :         obatched(clog) << "ddl: " << DEBUGINFOD_SQLITE_DDL << endl;
    4254                 :         33 :       rc = sqlite3_exec (db, DEBUGINFOD_SQLITE_DDL, NULL, NULL, NULL);
    4255         [ -  + ]:         33 :       if (rc != SQLITE_OK)
    4256                 :            :         {
    4257                 :          0 :           error (EXIT_FAILURE, 0,
    4258                 :            :                  "cannot run database schema ddl: %s", sqlite3_errmsg(db));
    4259                 :            :         }
    4260                 :            :     }
    4261                 :            : 
    4262   [ +  -  +  -  :         68 :   obatched(clog) << "libmicrohttpd version " << MHD_get_version() << endl;
                   +  - ]
    4263                 :            :   
    4264                 :            :   /* If '-C' wasn't given or was given with no arg, pick a reasonable default
    4265                 :            :      for the number of worker threads.  */
    4266         [ +  + ]:         34 :   if (connection_pool == 0)
    4267                 :         32 :     connection_pool = default_concurrency();
    4268                 :            : 
    4269                 :            :   /* Note that MHD_USE_EPOLL and MHD_USE_THREAD_PER_CONNECTION don't
    4270                 :            :      work together.  */
    4271                 :         34 :   unsigned int use_epoll = 0;
    4272                 :            : #if MHD_VERSION >= 0x00095100
    4273                 :         34 :   use_epoll = MHD_USE_EPOLL;
    4274                 :            : #endif
    4275                 :            : 
    4276                 :         34 :   unsigned int mhd_flags = (
    4277                 :            : #if MHD_VERSION >= 0x00095300
    4278                 :            :                             MHD_USE_INTERNAL_POLLING_THREAD
    4279                 :            : #else
    4280                 :            :                             MHD_USE_SELECT_INTERNALLY
    4281                 :            : #endif
    4282                 :            :                             | MHD_USE_DUAL_STACK
    4283                 :            :                             | use_epoll
    4284                 :            : #if MHD_VERSION >= 0x00095200
    4285                 :            :                             | MHD_USE_ITC
    4286                 :            : #endif
    4287                 :            :                             | MHD_USE_DEBUG); /* report errors to stderr */
    4288                 :            : 
    4289                 :            :   // Start httpd server threads.  Use a single dual-homed pool.
    4290                 :         34 :   MHD_Daemon *d46 = MHD_start_daemon (mhd_flags, http_port,
    4291                 :            :                                       NULL, NULL, /* default accept policy */
    4292                 :            :                                       handler_cb, NULL, /* handler callback */
    4293                 :            :                                       MHD_OPTION_EXTERNAL_LOGGER,
    4294                 :            :                                       error_cb, NULL,
    4295                 :            :                                       MHD_OPTION_THREAD_POOL_SIZE,
    4296                 :            :                                       (int)connection_pool,
    4297                 :            :                                       MHD_OPTION_END);
    4298                 :            : 
    4299                 :         34 :   MHD_Daemon *d4 = NULL;
    4300         [ -  + ]:         34 :   if (d46 == NULL)
    4301                 :            :     {
    4302                 :            :       // Cannot use dual_stack, use ipv4 only
    4303                 :          0 :       mhd_flags &= ~(MHD_USE_DUAL_STACK);
    4304         [ #  # ]:          0 :       d4 = MHD_start_daemon (mhd_flags, http_port,
    4305                 :            :                              NULL, NULL, /* default accept policy */
    4306                 :            :                              handler_cb, NULL, /* handler callback */
    4307                 :            :                              MHD_OPTION_EXTERNAL_LOGGER,
    4308                 :            :                              error_cb, NULL,
    4309                 :            :                              (connection_pool
    4310                 :            :                               ? MHD_OPTION_THREAD_POOL_SIZE
    4311                 :            :                               : MHD_OPTION_END),
    4312                 :            :                              (connection_pool
    4313                 :            :                               ? (int)connection_pool
    4314                 :            :                               : MHD_OPTION_END),
    4315                 :            :                              MHD_OPTION_END);
    4316         [ #  # ]:          0 :       if (d4 == NULL)
    4317                 :            :         {
    4318                 :          0 :           sqlite3 *database = db;
    4319                 :          0 :           sqlite3 *databaseq = dbq;
    4320                 :          0 :           db = dbq = 0; // for signal_handler not to freak
    4321                 :          0 :           sqlite3_close (databaseq);
    4322                 :          0 :           sqlite3_close (database);
    4323                 :          0 :           error (EXIT_FAILURE, 0, "cannot start http server at port %d",
    4324                 :            :                  http_port);
    4325                 :            :         }
    4326                 :            : 
    4327                 :            :     }
    4328                 :         34 :   obatched(clog) << "started http server on"
    4329                 :            :                  << (d4 != NULL ? " IPv4 " : " IPv4 IPv6 ")
    4330   [ +  -  +  -  :         68 :                  << "port=" << http_port << endl;
          +  -  +  -  +  
                      - ]
    4331                 :            : 
    4332                 :            :   // add maxigroom sql if -G given
    4333         [ -  + ]:         34 :   if (maxigroom)
    4334                 :            :     {
    4335         [ #  # ]:          0 :       obatched(clog) << "maxigrooming database, please wait." << endl;
    4336         [ #  # ]:          0 :       extra_ddl.push_back("create index if not exists " BUILDIDS "_r_sref_arc on " BUILDIDS "_r_sref(artifactsrc);");
    4337         [ #  # ]:          0 :       extra_ddl.push_back("delete from " BUILDIDS "_r_sdef where not exists (select 1 from " BUILDIDS "_r_sref b where " BUILDIDS "_r_sdef.content = b.artifactsrc);");
    4338         [ #  # ]:          0 :       extra_ddl.push_back("drop index if exists " BUILDIDS "_r_sref_arc;");
    4339                 :            : 
    4340                 :            :       // NB: we don't maxigroom the _files interning table.  It'd require a temp index on all the
    4341                 :            :       // tables that have file foreign-keys, which is a lot.
    4342                 :            : 
    4343                 :            :       // NB: with =delete, may take up 3x disk space total during vacuum process
    4344                 :            :       //     vs.  =off (only 2x but may corrupt database if program dies mid-vacuum)
    4345                 :            :       //     vs.  =wal (>3x observed, but safe)
    4346         [ #  # ]:          0 :       extra_ddl.push_back("pragma journal_mode=delete;");
    4347         [ #  # ]:          0 :       extra_ddl.push_back("vacuum;");
    4348         [ #  # ]:          0 :       extra_ddl.push_back("pragma journal_mode=wal;");
    4349                 :            :     }
    4350                 :            : 
    4351                 :            :   // run extra -D sql if given
    4352         [ +  + ]:         34 :   if (! passive_p)
    4353         [ -  + ]:         33 :     for (auto&& i: extra_ddl)
    4354                 :            :       {
    4355         [ #  # ]:          0 :         if (verbose > 1)
    4356   [ #  #  #  # ]:          0 :           obatched(clog) << "extra ddl:\n" << i << endl;
    4357                 :          0 :         rc = sqlite3_exec (db, i.c_str(), NULL, NULL, NULL);
    4358   [ #  #  #  # ]:          0 :         if (rc != SQLITE_OK && rc != SQLITE_DONE && rc != SQLITE_ROW)
    4359                 :          0 :           error (0, 0,
    4360                 :            :                  "warning: cannot run database extra ddl %s: %s", i.c_str(), sqlite3_errmsg(db));
    4361                 :            : 
    4362         [ #  # ]:          0 :         if (maxigroom)
    4363         [ #  # ]:          0 :           obatched(clog) << "maxigroomed database" << endl;
    4364                 :            :       }
    4365                 :            : 
    4366         [ +  + ]:         34 :   if (! passive_p)
    4367   [ +  -  +  - ]:         66 :     obatched(clog) << "search concurrency " << concurrency << endl;
    4368                 :         34 :   obatched(clog) << "webapi connection pool " << connection_pool
    4369   [ +  -  -  +  :         34 :                  << (connection_pool ? "" : " (unlimited)") << endl;
             +  -  +  - ]
    4370         [ +  + ]:         34 :   if (! passive_p)
    4371   [ +  -  +  - ]:         66 :     obatched(clog) << "rescan time " << rescan_s << endl;
    4372   [ +  -  +  - ]:         68 :   obatched(clog) << "fdcache fds " << fdcache_fds << endl;
    4373   [ +  -  +  - ]:         68 :   obatched(clog) << "fdcache mbs " << fdcache_mbs << endl;
    4374   [ +  -  +  - ]:         68 :   obatched(clog) << "fdcache prefetch " << fdcache_prefetch << endl;
    4375   [ +  -  +  - ]:         68 :   obatched(clog) << "fdcache tmpdir " << tmpdir << endl;
    4376   [ +  -  +  - ]:         68 :   obatched(clog) << "fdcache tmpdir min% " << fdcache_mintmp << endl;
    4377         [ +  + ]:         34 :   if (! passive_p)
    4378   [ +  -  +  - ]:         66 :     obatched(clog) << "groom time " << groom_s << endl;
    4379   [ +  -  +  - ]:         68 :   obatched(clog) << "prefetch fds " << fdcache_prefetch_fds << endl;
    4380   [ +  -  +  - ]:         68 :   obatched(clog) << "prefetch mbs " << fdcache_prefetch_mbs << endl;
    4381   [ +  -  +  - ]:         68 :   obatched(clog) << "forwarded ttl limit " << forwarded_ttl_limit << endl;
    4382                 :            : 
    4383         [ +  + ]:         34 :   if (scan_archives.size()>0)
    4384                 :            :     {
    4385                 :         23 :       obatched ob(clog);
    4386         [ +  - ]:         23 :       auto& o = ob << "accepting archive types ";
    4387         [ +  + ]:         68 :       for (auto&& arch : scan_archives)
    4388   [ +  -  +  -  :         45 :         o << arch.first << "(" << arch.second << ") ";
             +  -  +  - ]
    4389         [ +  - ]:         23 :       o << endl;
    4390                 :            :     }
    4391                 :         34 :   const char* du = getenv(DEBUGINFOD_URLS_ENV_VAR);
    4392   [ +  +  +  + ]:         34 :   if (du && du[0] != '\0') // set to non-empty string?
    4393   [ +  -  +  - ]:         14 :     obatched(clog) << "upstream debuginfod servers: " << du << endl;
    4394                 :            : 
    4395         [ +  + ]:         68 :   vector<pthread_t> all_threads;
    4396                 :            : 
    4397         [ +  + ]:         34 :   if (! passive_p)
    4398                 :            :     {
    4399                 :         33 :       pthread_t pt;
    4400                 :         33 :       rc = pthread_create (& pt, NULL, thread_main_groom, NULL);
    4401         [ -  + ]:         33 :       if (rc)
    4402                 :          0 :         error (EXIT_FAILURE, rc, "cannot spawn thread to groom database\n");
    4403                 :            :       else
    4404                 :            :         {
    4405                 :            : #ifdef HAVE_PTHREAD_SETNAME_NP
    4406                 :         33 :           (void) pthread_setname_np (pt, "groom");
    4407                 :            : #endif
    4408         [ +  - ]:         33 :           all_threads.push_back(pt);
    4409                 :            :         }
    4410                 :            : 
    4411   [ +  +  +  + ]:         33 :       if (scan_files || scan_archives.size() > 0)
    4412                 :            :         {
    4413                 :         30 :           rc = pthread_create (& pt, NULL, thread_main_fts_source_paths, NULL);
    4414         [ -  + ]:         30 :           if (rc)
    4415                 :          0 :             error (EXIT_FAILURE, rc, "cannot spawn thread to traverse source paths\n");
    4416                 :            : #ifdef HAVE_PTHREAD_SETNAME_NP
    4417                 :         30 :           (void) pthread_setname_np (pt, "traverse");
    4418                 :            : #endif
    4419         [ +  - ]:         30 :           all_threads.push_back(pt);
    4420                 :            : 
    4421         [ +  + ]:        150 :           for (unsigned i=0; i<concurrency; i++)
    4422                 :            :             {
    4423                 :        120 :               rc = pthread_create (& pt, NULL, thread_main_scanner, NULL);
    4424         [ -  + ]:        120 :               if (rc)
    4425                 :          0 :                 error (EXIT_FAILURE, rc, "cannot spawn thread to scan source files / archives\n");
    4426                 :            : #ifdef HAVE_PTHREAD_SETNAME_NP
    4427                 :        120 :               (void) pthread_setname_np (pt, "scan");
    4428                 :            : #endif
    4429         [ +  - ]:        120 :               all_threads.push_back(pt);
    4430                 :            :             }
    4431                 :            :         }
    4432                 :            :     }
    4433                 :            :   
    4434                 :            :   /* Trivial main loop! */
    4435   [ +  -  +  -  :         68 :   set_metric("ready", 1);
                   -  - ]
    4436         [ +  + ]:        101 :   while (! interrupted)
    4437         [ +  - ]:         67 :     pause ();
    4438         [ +  - ]:         34 :   scanq.nuke(); // wake up any remaining scanq-related threads, let them die
    4439   [ +  -  +  -  :         68 :   set_metric("ready", 0);
                   +  - ]
    4440                 :            : 
    4441         [ +  - ]:         34 :   if (verbose)
    4442   [ +  -  +  -  :         68 :     obatched(clog) << "stopping" << endl;
                   -  - ]
    4443                 :            : 
    4444                 :            :   /* Join all our threads. */
    4445         [ +  + ]:        217 :   for (auto&& it : all_threads)
    4446         [ +  - ]:        183 :     pthread_join (it, NULL);
    4447                 :            : 
    4448                 :            :   /* Stop all the web service threads. */
    4449   [ +  -  +  - ]:         34 :   if (d46) MHD_stop_daemon (d46);
    4450   [ -  +  -  - ]:         34 :   if (d4) MHD_stop_daemon (d4);
    4451                 :            : 
    4452         [ +  + ]:         34 :   if (! passive_p)
    4453                 :            :     {
    4454                 :            :       /* With all threads known dead, we can clean up the global resources. */
    4455         [ +  - ]:         33 :       rc = sqlite3_exec (db, DEBUGINFOD_SQLITE_CLEANUP_DDL, NULL, NULL, NULL);
    4456         [ -  + ]:         33 :       if (rc != SQLITE_OK)
    4457                 :            :         {
    4458   [ #  #  #  # ]:          0 :           error (0, 0,
    4459                 :            :                  "warning: cannot run database cleanup ddl: %s", sqlite3_errmsg(db));
    4460                 :            :         }
    4461                 :            :     }
    4462                 :            : 
    4463         [ +  - ]:         34 :   debuginfod_pool_groom ();
    4464                 :            : 
    4465                 :            :   // NB: no problem with unconditional free here - an earlier failed regcomp would exit program
    4466         [ +  - ]:         34 :   (void) regfree (& file_include_regex);
    4467         [ +  - ]:         34 :   (void) regfree (& file_exclude_regex);
    4468                 :            : 
    4469                 :         34 :   sqlite3 *database = db;
    4470                 :         34 :   sqlite3 *databaseq = dbq;
    4471                 :         34 :   db = dbq = 0; // for signal_handler not to freak
    4472         [ +  - ]:         34 :   (void) sqlite3_close (databaseq);
    4473         [ +  + ]:         34 :   if (! passive_p)
    4474         [ +  - ]:         33 :     (void) sqlite3_close (database);
    4475                 :            : 
    4476         [ +  + ]:         34 :   return 0;
    4477                 :            : }

Generated by: LCOV version 1.14