sbin/ggate/shared/ggate.c

   1 /*-
   2  * Copyright (c) 2004 Pawel Jakub Dawidek <pjd@FreeBSD.org>
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24  * SUCH DAMAGE.
  25  *
  26  * $FreeBSD$
  27  */
  28
  29 #include <stdio.h>
  30 #include <stdlib.h>
  31 #include <unistd.h>
  32 #include <fcntl.h>
  33 #include <sys/param.h>
  34 #include <sys/disk.h>
  35 #include <sys/stat.h>
  36 #include <sys/endian.h>
  37 #include <sys/socket.h>
  38 #include <sys/linker.h>
  39 #include <sys/module.h>
  40 #include <netinet/in.h>
  41 #include <netinet/tcp.h>
  42 #include <arpa/inet.h>
  43 #include <signal.h>
  44 #include <err.h>
  45 #include <errno.h>
  46 #include <string.h>
  47 #include <strings.h>
  48 #include <libgen.h>
  49 #include <libutil.h>
  50 #include <netdb.h>
  51 #include <syslog.h>
  52 #include <stdarg.h>
  53 #include <stdint.h>
  54 #include <libgeom.h>
  55
  56 #include <geom/gate/g_gate.h>
  57 #include "ggate.h"
  58
  59
  60 int g_gate_devfd = -1;
  61 int g_gate_verbose = 0;
  62
  63
  64 void
  65 g_gate_vlog(int priority, const char *message, va_list ap)
  66 {
  67
  68         if (g_gate_verbose) {
  69                 const char *prefix;
  70
  71                 switch (priority) {
  72                 case LOG_ERR:
  73                         prefix = "error";
  74                         break;
  75                 case LOG_WARNING:
  76                         prefix = "warning";
  77                         break;
  78                 case LOG_NOTICE:
  79                         prefix = "notice";
  80                         break;
  81                 case LOG_INFO:
  82                         prefix = "info";
  83                         break;
  84                 case LOG_DEBUG:
  85                         prefix = "debug";
  86                         break;
  87                 default:
  88                         prefix = "unknown";
  89                 }
  90
  91                 printf("%s: ", prefix);
  92                 vprintf(message, ap);
  93                 printf("\n");
  94         } else {
  95                 if (priority != LOG_DEBUG)
  96                         vsyslog(priority, message, ap);
  97         }
  98 }
  99
 100 void
 101 g_gate_log(int priority, const char *message, ...)
 102 {
 103         va_list ap;
 104
 105         va_start(ap, message);
 106         g_gate_vlog(priority, message, ap);
 107         va_end(ap);
 108 }
 109
 110 void
 111 g_gate_xvlog(const char *message, va_list ap)
 112 {
 113
 114         g_gate_vlog(LOG_ERR, message, ap);
 115         g_gate_vlog(LOG_ERR, "Exiting.", ap);
 116         exit(EXIT_FAILURE);
 117 }
 118
 119 void
 120 g_gate_xlog(const char *message, ...)
 121 {
 122         va_list ap;
 123
 124         va_start(ap, message);
 125         g_gate_xvlog(message, ap);
 126         /* NOTREACHED */
 127         va_end(ap);
 128         exit(EXIT_FAILURE);
 129 }
 130
 131 off_t
 132 g_gate_mediasize(int fd)
 133 {
 134         off_t mediasize;
 135         struct stat sb;
 136
 137         if (fstat(fd, &sb) == -1)
 138                 g_gate_xlog("fstat(): %s.", strerror(errno));
 139         if (S_ISCHR(sb.st_mode)) {
 140                 if (ioctl(fd, DIOCGMEDIASIZE, &mediasize) == -1) {
 141                         g_gate_xlog("Can't get media size: %s.",
 142                             strerror(errno));
 143                 }
 144         } else if (S_ISREG(sb.st_mode)) {
 145                 mediasize = sb.st_size;
 146         } else {
 147                 g_gate_xlog("Unsupported file system object.");
 148         }
 149         return (mediasize);
 150 }
 151
 152 size_t
 153 g_gate_sectorsize(int fd)
 154 {
 155         size_t secsize;
 156         struct stat sb;
 157
 158         if (fstat(fd, &sb) == -1)
 159                 g_gate_xlog("fstat(): %s.", strerror(errno));
 160         if (S_ISCHR(sb.st_mode)) {
 161                 if (ioctl(fd, DIOCGSECTORSIZE, &secsize) == -1) {
 162                         g_gate_xlog("Can't get sector size: %s.",
 163                             strerror(errno));
 164                 }
 165         } else if (S_ISREG(sb.st_mode)) {
 166                 secsize = 512;
 167         } else {
 168                 g_gate_xlog("Unsupported file system object.");
 169         }
 170         return (secsize);
 171 }
 172
 173 void
 174 g_gate_open_device(void)
 175 {
 176
 177         g_gate_devfd = open("/dev/" G_GATE_CTL_NAME, O_RDWR, 0);
 178         if (g_gate_devfd == -1)
 179                 err(EXIT_FAILURE, "open(/dev/%s)", G_GATE_CTL_NAME);
 180 }
 181
 182 void
 183 g_gate_close_device(void)
 184 {
 185
 186         close(g_gate_devfd);
 187 }
 188
 189 void
 190 g_gate_ioctl(unsigned long req, void *data)
 191 {
 192
 193         if (ioctl(g_gate_devfd, req, data) == -1) {
 194                 g_gate_xlog("%s: ioctl(/dev/%s): %s.", getprogname(),
 195                     G_GATE_CTL_NAME, strerror(errno));
 196         }
 197 }
 198
 199 void
 200 g_gate_destroy(int unit, int force)
 201 {
 202         struct g_gate_ctl_destroy ggio;
 203
 204         ggio.gctl_version = G_GATE_VERSION;
 205         ggio.gctl_unit = unit;
 206         ggio.gctl_force = force;
 207         g_gate_ioctl(G_GATE_CMD_DESTROY, &ggio);
 208 }
 209
 210 void
 211 g_gate_load_module(void)
 212 {
 213
 214         if (modfind("g_gate") == -1) {
 215                 /* Not present in kernel, try loading it. */
 216                 if (kldload("geom_gate") == -1 || modfind("g_gate") == -1) {
 217                         if (errno != EEXIST) {
 218                                 errx(EXIT_FAILURE,
 219                                     "geom_gate module not available!");
 220                         }
 221                 }
 222         }
 223 }
 224
 225 ssize_t
 226 g_gate_send(int s, const void *buf, size_t len, int flags)
 227 {
 228         ssize_t done = 0, done2;
 229         const unsigned char *p = buf;
 230
 231         while (len > 0) {
 232                 done2 = send(s, p, len, flags);
 233                 if (done2 == 0)
 234                         break;
 235                 else if (done2 == -1) {
 236                         if (errno == EAGAIN) {
 237                                 printf("%s: EAGAIN\n", __func__);
 238                                 continue;
 239                         }
 240                         done = -1;
 241                         break;
 242                 }
 243                 done += done2;
 244                 p += done2;
 245                 len -= done2;
 246         }
 247         return (done);
 248 }
 249
 250 ssize_t
 251 g_gate_recv(int s, void *buf, size_t len, int flags)
 252 {
 253
 254         return (recv(s, buf, len, flags));
 255 }
 256
 257 int nagle = 1;
 258 unsigned rcvbuf = G_GATE_RCVBUF;
 259 unsigned sndbuf = G_GATE_SNDBUF;
 260
 261 void
 262 g_gate_socket_settings(int sfd)
 263 {
 264         struct timeval tv;
 265         int bsize, on;
 266
 267         /* Socket settings. */
 268         on = 1;
 269         if (nagle) {
 270                 if (setsockopt(sfd, IPPROTO_TCP, TCP_NODELAY, &on,
 271                     sizeof(on)) == -1) {
 272                         g_gate_xlog("setsockopt() error: %s.", strerror(errno));
 273                 }
 274         }
 275         if (setsockopt(sfd, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on)) == -1)
 276                 g_gate_xlog("setsockopt(SO_REUSEADDR): %s.", strerror(errno));
 277         bsize = rcvbuf;
 278         if (setsockopt(sfd, SOL_SOCKET, SO_RCVBUF, &bsize, sizeof(bsize)) == -1)
 279                 g_gate_xlog("setsockopt(SO_RCVBUF): %s.", strerror(errno));
 280         bsize = sndbuf;
 281         if (setsockopt(sfd, SOL_SOCKET, SO_SNDBUF, &bsize, sizeof(bsize)) == -1)
 282                 g_gate_xlog("setsockopt(SO_SNDBUF): %s.", strerror(errno));
 283         tv.tv_sec = 1;
 284         tv.tv_usec = 0;
 285         if (setsockopt(sfd, SOL_SOCKET, SO_SNDTIMEO, &tv, sizeof(tv)) == -1) {
 286                 g_gate_log(LOG_ERR, "setsockopt(SO_SNDTIMEO) error: %s.",
 287                     strerror(errno));
 288         }
 289         if (setsockopt(sfd, SOL_SOCKET, SO_RCVTIMEO, &tv, sizeof(tv)) == -1) {
 290                 g_gate_log(LOG_ERR, "setsockopt(SO_RCVTIMEO) error: %s.",
 291                     strerror(errno));
 292         }
 293 }
 294
 295 #ifdef LIBGEOM
 296 static struct gclass *
 297 find_class(struct gmesh *mesh, const char *name)
 298 {
 299         struct gclass *class;
 300
 301         LIST_FOREACH(class, &mesh->lg_class, lg_class) {
 302                 if (strcmp(class->lg_name, name) == 0)
 303                         return (class);
 304         }
 305         return (NULL);
 306 }
 307
 308 static const char *
 309 get_conf(struct ggeom *gp, const char *name)
 310 {
 311         struct gconfig *conf;
 312
 313         LIST_FOREACH(conf, &gp->lg_config, lg_config) {
 314                 if (strcmp(conf->lg_name, name) == 0)
 315                         return (conf->lg_val);
 316         }
 317         return (NULL);
 318 }
 319
 320 static void
 321 show_config(struct ggeom *gp, int verbose)
 322 {
 323         struct gprovider *pp;
 324         char buf[5];
 325
 326         pp = LIST_FIRST(&gp->lg_provider);
 327         if (pp == NULL)
 328                 return;
 329         if (!verbose) {
 330                 printf("%s\n", pp->lg_name);
 331                 return;
 332         }
 333         printf("       NAME: %s\n", pp->lg_name);
 334         printf("       info: %s\n", get_conf(gp, "info"));
 335         printf("     access: %s\n", get_conf(gp, "access"));
 336         printf("    timeout: %s\n", get_conf(gp, "timeout"));
 337         printf("queue_count: %s\n", get_conf(gp, "queue_count"));
 338         printf(" queue_size: %s\n", get_conf(gp, "queue_size"));
 339         printf(" references: %s\n", get_conf(gp, "ref"));
 340         humanize_number(buf, sizeof(buf), (int64_t)pp->lg_mediasize, "",
 341             HN_AUTOSCALE, HN_B | HN_NOSPACE | HN_DECIMAL);
 342         printf("  mediasize: %jd (%s)\n", (intmax_t)pp->lg_mediasize, buf);
 343         printf(" sectorsize: %u\n", pp->lg_sectorsize);
 344         printf("       mode: %s\n", pp->lg_mode);
 345         printf("\n");
 346 }
 347
 348 void
 349 g_gate_list(int unit, int verbose)
 350 {
 351         struct gmesh mesh;
 352         struct gclass *class;
 353         struct ggeom *gp;
 354         char name[64];
 355         int error;
 356
 357         error = geom_gettree(&mesh);
 358         if (error != 0)
 359                 exit(EXIT_FAILURE);
 360         class = find_class(&mesh, G_GATE_CLASS_NAME);
 361         if (class == NULL) {
 362                 geom_deletetree(&mesh);
 363                 exit(EXIT_SUCCESS);
 364         }
 365         if (unit >= 0) {
 366                 snprintf(name, sizeof(name), "%s%d", G_GATE_PROVIDER_NAME,
 367                     unit);
 368         }
 369         LIST_FOREACH(gp, &class->lg_geom, lg_geom) {
 370                 if (unit != -1 && strcmp(gp->lg_name, name) != 0)
 371                         continue;
 372                 show_config(gp, verbose);
 373         }
 374         geom_deletetree(&mesh);
 375         exit(EXIT_SUCCESS);
 376 }
 377 #endif  /* LIBGEOM */
 378
 379 in_addr_t
 380 g_gate_str2ip(const char *str)
 381 {
 382         struct hostent *hp;
 383         in_addr_t ip;
 384
 385         ip = inet_addr(str);
 386         if (ip != INADDR_NONE) {
 387                 /* It is a valid IP address. */
 388                 return (ip);
 389         }
 390         /* Check if it is a valid host name. */
 391         hp = gethostbyname(str);
 392         if (hp == NULL)
 393                 return (INADDR_NONE);
 394         return (((struct in_addr *)(void *)hp->h_addr)->s_addr);
 395 }