src/vpp/app/vpp_prometheus_export.c

   1 /*
   2  *------------------------------------------------------------------
   3  * vpp_get_stats.c
   4  *
   5  * Copyright (c) 2018 Cisco and/or its affiliates.
   6  * Licensed under the Apache License, Version 2.0 (the "License");
   7  * you may not use this file except in compliance with the License.
   8  * You may obtain a copy of the License at:
   9  *
  10  *     http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * Unless required by applicable law or agreed to in writing, software
  13  * distributed under the License is distributed on an "AS IS" BASIS,
  14  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  15  * See the License for the specific language governing permissions and
  16  * limitations under the License.
  17  *------------------------------------------------------------------
  18  */
  19
  20 #include <arpa/inet.h>
  21 #include <sys/epoll.h>
  22 #include <stdbool.h>
  23 #include <stdint.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <stdio.h>
  27 #include <errno.h>
  28 #include <unistd.h>
  29 #include <netdb.h>
  30 #include <sys/socket.h>
  31 #include <vpp-api/client/stat_client.h>
  32 #include <vlib/vlib.h>
  33 #include <ctype.h>
  34
  35 /* https://github.com/prometheus/prometheus/wiki/Default-port-allocations */
  36 #define SERVER_PORT 9482
  37
  38 static char *
  39 prom_string (char *s)
  40 {
  41   char *p = s;
  42   while (*p)
  43     {
  44       if (!isalnum (*p))
  45         *p = '_';
  46       p++;
  47     }
  48   return s;
  49 }
  50
  51 static void
  52 dump_metrics (FILE * stream, u8 ** patterns)
  53 {
  54   stat_segment_data_t *res;
  55   int i, j, k;
  56   static u32 *stats = 0;
  57
  58 retry:
  59   res = stat_segment_dump (stats);
  60   if (res == 0)
  61     {                           /* Memory layout has changed */
  62       if (stats)
  63         vec_free (stats);
  64       stats = stat_segment_ls (patterns);
  65       goto retry;
  66     }
  67
  68   for (i = 0; i < vec_len (res); i++)
  69     {
  70       switch (res[i].type)
  71         {
  72         case STAT_DIR_TYPE_COUNTER_VECTOR_SIMPLE:
  73           fformat (stream, "# TYPE %s counter\n", prom_string (res[i].name));
  74           for (k = 0; k < vec_len (res[i].simple_counter_vec); k++)
  75             for (j = 0; j < vec_len (res[i].simple_counter_vec[k]); j++)
  76               fformat (stream, "%s{thread=\"%d\",interface=\"%d\"} %lld\n",
  77                        prom_string (res[i].name), k, j,
  78                        res[i].simple_counter_vec[k][j]);
  79           break;
  80
  81         case STAT_DIR_TYPE_COUNTER_VECTOR_COMBINED:
  82           fformat (stream, "# TYPE %s_packets counter\n",
  83                    prom_string (res[i].name));
  84           fformat (stream, "# TYPE %s_bytes counter\n",
  85                    prom_string (res[i].name));
  86           for (k = 0; k < vec_len (res[i].simple_counter_vec); k++)
  87             for (j = 0; j < vec_len (res[i].combined_counter_vec[k]); j++)
  88               {
  89                 fformat (stream,
  90                          "%s_packets{thread=\"%d\",interface=\"%d\"} %lld\n",
  91                          prom_string (res[i].name), k, j,
  92                          res[i].combined_counter_vec[k][j].packets);
  93                 fformat (stream,
  94                          "%s_bytes{thread=\"%d\",interface=\"%d\"} %lld\n",
  95                          prom_string (res[i].name), k, j,
  96                          res[i].combined_counter_vec[k][j].bytes);
  97               }
  98           break;
  99         case STAT_DIR_TYPE_SCALAR_INDEX:
 100           fformat (stream, "# TYPE %s counter\n", prom_string (res[i].name));
 101           fformat (stream, "%s %.2f\n", prom_string (res[i].name),
 102                    res[i].scalar_value);
 103           break;
 104
 105         case STAT_DIR_TYPE_NAME_VECTOR:
 106           fformat (stream, "# TYPE %s_info gauge\n",
 107                    prom_string (res[i].name));
 108           for (k = 0; k < vec_len (res[i].name_vector); k++)
 109             if (res[i].name_vector[k])
 110               fformat (stream, "%s_info{index=\"%d\",name=\"%s\"} 1\n",
 111                        prom_string (res[i].name), k, res[i].name_vector[k]);
 112           break;
 113
 114         case STAT_DIR_TYPE_EMPTY:
 115           break;
 116
 117         default:
 118           fformat (stderr, "Unknown value %d\n", res[i].type);
 119           ;
 120         }
 121     }
 122   stat_segment_data_free (res);
 123
 124 }
 125
 126
 127 #define ROOTPAGE  "<html><head><title>Metrics exporter</title></head><body><ul><li><a href=\"/metrics\">metrics</a></li></ul></body></html>"
 128 #define NOT_FOUND_ERROR "<html><head><title>Document not found</title></head><body><h1>404 - Document not found</h1></body></html>"
 129
 130 static void
 131 http_handler (FILE * stream, u8 ** patterns)
 132 {
 133   char status[80] = { 0 };
 134   if (fgets (status, sizeof (status) - 1, stream) == 0)
 135     {
 136       fprintf (stderr, "fgets error: %s %s\n", status, strerror (errno));
 137       return;
 138     }
 139   char *saveptr;
 140   char *method = strtok_r (status, " \t\r\n", &saveptr);
 141   if (method == 0 || strncmp (method, "GET", 4) != 0)
 142     {
 143       fputs ("HTTP/1.0 405 Method Not Allowed\r\n", stream);
 144       return;
 145     }
 146   char *request_uri = strtok_r (NULL, " \t", &saveptr);
 147   char *protocol = strtok_r (NULL, " \t\r\n", &saveptr);
 148   if (protocol == 0 || strncmp (protocol, "HTTP/1.", 7) != 0)
 149     {
 150       fputs ("HTTP/1.0 400 Bad Request\r\n", stream);
 151       return;
 152     }
 153   /* Read the other headers */
 154   for (;;)
 155     {
 156       char header[1024];
 157       if (fgets (header, sizeof (header) - 1, stream) == 0)
 158         {
 159           fprintf (stderr, "fgets error: %s\n", strerror (errno));
 160           return;
 161         }
 162       if (header[0] == '\n' || header[1] == '\n')
 163         {
 164           break;
 165         }
 166     }
 167   if (strcmp (request_uri, "/") == 0)
 168     {
 169       fprintf (stream, "HTTP/1.0 200 OK\r\nContent-Length: %lu\r\n\r\n",
 170                (unsigned long) strlen (ROOTPAGE));
 171       fputs (ROOTPAGE, stream);
 172       return;
 173     }
 174   if (strcmp (request_uri, "/metrics") != 0)
 175     {
 176       fprintf (stream,
 177                "HTTP/1.0 404 Not Found\r\nContent-Length: %lu\r\n\r\n",
 178                (unsigned long) strlen (NOT_FOUND_ERROR));
 179       fputs (NOT_FOUND_ERROR, stream);
 180       return;
 181     }
 182   fputs ("HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\n", stream);
 183   dump_metrics (stream, patterns);
 184 }
 185
 186 static int
 187 start_listen (u16 port)
 188 {
 189   struct sockaddr_in6 serveraddr;
 190   int addrlen = sizeof (serveraddr);
 191   int enable = 1;
 192
 193   int listenfd = socket (AF_INET6, SOCK_STREAM, 0);
 194   if (listenfd == -1)
 195     {
 196       perror ("Failed opening socket");
 197       return -1;
 198     }
 199
 200   int rv =
 201     setsockopt (listenfd, SOL_SOCKET, SO_REUSEADDR, &enable, sizeof (int));
 202   if (rv < 0)
 203     {
 204       perror ("Failed setsockopt");
 205       close (listenfd);
 206       return -1;
 207     }
 208
 209   clib_memset (&serveraddr, 0, sizeof (serveraddr));
 210   serveraddr.sin6_family = AF_INET6;
 211   serveraddr.sin6_port = htons (port);
 212   serveraddr.sin6_addr = in6addr_any;
 213
 214   if (bind (listenfd, (struct sockaddr *) &serveraddr, addrlen) < 0)
 215     {
 216       fprintf (stderr, "bind() error %s\n", strerror (errno));
 217       close (listenfd);
 218       return -1;
 219     }
 220   if (listen (listenfd, 1000000) != 0)
 221     {
 222       fprintf (stderr, "listen() error for %s\n", strerror (errno));
 223       close (listenfd);
 224       return -1;
 225     }
 226   return listenfd;
 227 }
 228
 229 /* Socket epoll, linux-specific */
 230 union my_sockaddr
 231 {
 232   struct sockaddr_storage storage;
 233   struct sockaddr addr;
 234   struct sockaddr_in sin_addr;
 235   struct sockaddr_in6 sin6_addr;
 236 };
 237
 238
 239
 240 int
 241 main (int argc, char **argv)
 242 {
 243   unformat_input_t _argv, *a = &_argv;
 244   u8 *stat_segment_name, *pattern = 0, **patterns = 0;
 245   u16 port = SERVER_PORT;
 246   char *usage =
 247     "%s: usage [socket-name <name>] [port <0 - 65535>] <patterns> ...\n";
 248   int rv;
 249
 250   /* Allocating 256MB heap */
 251   clib_mem_init (0, 256 << 20);
 252
 253   unformat_init_command_line (a, argv);
 254
 255   stat_segment_name = (u8 *) STAT_SEGMENT_SOCKET_FILE;
 256
 257   while (unformat_check_input (a) != UNFORMAT_END_OF_INPUT)
 258     {
 259       if (unformat (a, "socket-name %s", &stat_segment_name))
 260         ;
 261       else if (unformat (a, "port %d", &port))
 262         ;
 263       else if (unformat (a, "%s", &pattern))
 264         {
 265           vec_add1 (patterns, pattern);
 266         }
 267       else
 268         {
 269           fformat (stderr, usage, argv[0]);
 270           exit (1);
 271         }
 272     }
 273
 274   if (vec_len (patterns) == 0)
 275     {
 276       fformat (stderr, usage, argv[0]);
 277       exit (1);
 278     }
 279
 280   rv = stat_segment_connect ((char *) stat_segment_name);
 281   if (rv)
 282     {
 283       fformat (stderr, "Couldn't connect to vpp, does %s exist?\n",
 284                stat_segment_name);
 285       exit (1);
 286     }
 287
 288   int fd = start_listen (port);
 289   if (fd < 0)
 290     {
 291       exit (1);
 292     }
 293   for (;;)
 294     {
 295       int conn_sock = accept (fd, NULL, NULL);
 296       if (conn_sock < 0)
 297         {
 298           fprintf (stderr, "Accept failed: %s", strerror (errno));
 299           continue;
 300         }
 301       else
 302         {
 303           struct sockaddr_in6 clientaddr = { 0 };
 304           char address[INET6_ADDRSTRLEN];
 305           socklen_t addrlen;
 306           getpeername (conn_sock, (struct sockaddr *) &clientaddr, &addrlen);
 307           if (inet_ntop
 308               (AF_INET6, &clientaddr.sin6_addr, address, sizeof (address)))
 309             {
 310               fprintf (stderr, "Client address is [%s]:%d\n", address,
 311                        ntohs (clientaddr.sin6_port));
 312             }
 313         }
 314
 315       FILE *stream = fdopen (conn_sock, "r+");
 316       if (stream == NULL)
 317         {
 318           fprintf (stderr, "fdopen error: %s\n", strerror (errno));
 319           close (conn_sock);
 320           continue;
 321         }
 322       /* Single reader at the moment */
 323       http_handler (stream, patterns);
 324       fclose (stream);
 325     }
 326
 327   stat_segment_disconnect ();
 328   close (fd);
 329
 330   exit (0);
 331 }
 332
 333 /*
 334  * fd.io coding-style-patch-verification: ON
 335  *
 336  * Local Variables:
 337  * eval: (c-set-style "gnu")
 338  * End:
 339  */