vfs/utilvfs.c

   1 /* Utilities for VFS modules.
   2
   3    Currently includes login and tcp open socket routines.
   4
   5    Copyright (C) 1995, 1996 Miguel de Icaza
   6
   7    This program is free software; you can redistribute it and/or
   8    modify it under the terms of the GNU Library General Public License
   9    as published by the Free Software Foundation; either version 2 of
  10    the License, or (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU Library General Public License for more details.
  16
  17    You should have received a copy of the GNU Library General Public
  18    License along with this program; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 /* Namespace: exports vfs_split_url */
  22
  23 #ifndef test_get_host_and_username
  24 #include <config.h>
  25 #endif
  26 #include <unistd.h>
  27 #include <stdlib.h>
  28 #include <stdarg.h>
  29 #include <stdio.h>
  30 #include <signal.h>
  31 #include <string.h>
  32 #include <pwd.h>
  33 #include <sys/types.h>
  34 #include <netdb.h>
  35 #include <sys/socket.h>
  36 #include <netinet/in.h>
  37 #include <arpa/inet.h>
  38 #ifdef USE_TERMNET
  39 #include <termnet.h>
  40 #endif
  41 #include <errno.h>
  42
  43 #include "utilvfs.h"
  44
  45 #include "vfs.h"
  46
  47 /* Extract the hostname and username from the path */
  48 /* path is in the form: [user@]hostname:port/remote-dir, e.g.:
  49  *
  50  * ftp://sunsite.unc.edu/pub/linux
  51  * ftp://miguel@sphinx.nuclecu.unam.mx/c/nc
  52  * ftp://tsx-11.mit.edu:8192/
  53  * ftp://joe@foo.edu:11321/private
  54  * ftp://joe:password@foo.se
  55  *
  56  * Returns malloc()ed host, user and pass they are present.
  57  * If the user is empty, e.g. ftp://@roxanne/private, and URL_ALLOW_ANON
  58  * is not set, then the current login name is supplied.
  59  *
  60  * Return value is a malloc()ed string with the pathname relative to the
  61  * host.
  62  */
  63
  64 char *vfs_split_url (const char *path, char **host, char **user,
  65                      int *port, char **pass, int default_port, int flags)
  66 {
  67     struct passwd *passwd_info;
  68     char *dir, *colon, *inner_colon, *at, *rest;
  69     char *retval;
  70     char *pcopy = g_strdup (path);
  71     char *pend  = pcopy + strlen (pcopy);
  72
  73     if (pass)
  74         *pass = NULL;
  75     *port = default_port;
  76     *user = NULL;
  77     retval = NULL;
  78
  79     dir = pcopy;
  80     if (!(flags & URL_NOSLASH)) {
  81         /* locate path component */
  82         while (*dir != PATH_SEP && *dir)
  83             dir++;
  84         if (*dir){
  85             retval = g_strdup (dir);
  86             *dir = 0;
  87         } else
  88             retval = g_strdup (PATH_SEP_STR);
  89     }
  90
  91     /* search for any possible user */
  92     at    = strchr (pcopy, '@');
  93
  94     /* We have a username */
  95     if (at){
  96         *at = 0;
  97         inner_colon = strchr (pcopy, ':');
  98         if (inner_colon) {
  99             *inner_colon = 0;
 100             inner_colon++;
 101             if (pass)
 102                 *pass = g_strdup (inner_colon);
 103         }
 104         if (*pcopy != 0)
 105             *user = g_strdup (pcopy);
 106
 107         if (pend == at+1)
 108             rest = at;
 109         else
 110             rest = at + 1;
 111     } else
 112         rest = pcopy;
 113
 114     if (!*user && !(flags & URL_ALLOW_ANON)) {
 115         passwd_info = getpwuid (geteuid ());
 116         if (passwd_info && passwd_info->pw_name)
 117             *user = g_strdup (passwd_info->pw_name);
 118         else {
 119             /* This is very unlikely to happen */
 120             *user = g_strdup ("anonymous");
 121         }
 122         endpwent ();
 123     }
 124
 125     /* Check if the host comes with a port spec, if so, chop it */
 126     colon = strchr (rest, ':');
 127     if (colon){
 128         *colon = 0;
 129         if (sscanf(colon+1, "%d", port)==1) {
 130             if (*port <= 0 || *port >= 65536)
 131                 *port = default_port;
 132         } else {
 133             while(*(++colon)){
 134                 switch(*colon) {
 135                     case 'C': *port = 1;
 136                               break;
 137                     case 'r': *port = 2;
 138                               break;
 139                 }
 140             }
 141         }
 142     }
 143     if (host)
 144         *host = g_strdup (rest);
 145
 146     g_free (pcopy);
 147     return retval;
 148 }
 149
 150 #ifdef test_get_host_and_username
 151 struct tt {
 152     char *url;
 153     char *r_host;
 154     char *r_user;
 155     char *r_pass;
 156     char *r_dir;
 157     int  r_port;
 158 };
 159
 160 struct tt tests [] = {
 161     { "host",                                "host", "anonymous", NULL, "/", 21 },
 162     { "host/dir",                            "host", "anonymous", NULL, "/dir", 21 },
 163     { "host:40/",                            "host", "anonymous", NULL, "/", 40 },
 164     { "host:40/dir",                         "host", "anonymous", NULL, "/dir", 40 },
 165     { "user@host",                           "host", "user",      NULL, "/", 21 },
 166     { "user@host/dir",                       "host", "user",      NULL, "/dir", 21 },
 167     { "user@host:40/",                       "host", "user",      NULL, "/", 40 },
 168     { "user@host:40/dir",                    "host", "user",      NULL, "/dir", 40 },
 169     { "user:pass@host",                      "host", "user",    "pass", "/", 21 },
 170     { "user:pass@host/dir",                  "host", "user",    "pass", "/dir", 21 },
 171     { "user:pass@host:40",                   "host", "user",    "pass", "/", 40 },
 172     { "user:pass@host:40/dir",               "host", "user",    "pass", "/dir", 40 },
 173     { "host/a@b",                            "host", "anonymous", NULL, "/a@b", 21 },
 174     { "host:40/a@b",                         "host", "anonymous", NULL, "/a@b", 40 },
 175     { "user@host/a@b",                       "host", "user",      NULL, "/a@b", 21 },
 176     { "user@host:40/a@b",                    "host", "user",      NULL, "/a@b", 40 },
 177     { "user:pass@host/a@b",                  "host", "user",    "pass", "/a@b", 21 },
 178     { "user:pass@host:40/a@b",               "host", "user",    "pass", "/a@b", 40 },
 179     { "host/a:b",                            "host", "anonymous", NULL, "/a:b", 21 },
 180     { "host:40/a:b",                         "host", "anonymous", NULL, "/a:b", 40 },
 181     { "user@host/a:b",                       "host", "user",      NULL, "/a:b", 21 },
 182     { "user@host:40/a:b",                    "host", "user",      NULL, "/a:b", 40 },
 183     { "user:pass@host/a:b",                  "host", "user",    "pass", "/a:b", 21 },
 184     { "user:pass@host:40/a:b",               "host", "user",    "pass", "/a:b", 40 },
 185     { "host/a/b",                            "host", "anonymous", NULL, "/a/b", 21 },
 186     { "host:40/a/b",                         "host", "anonymous", NULL, "/a/b", 40 },
 187     { "user@host/a/b",                       "host", "user",      NULL, "/a/b", 21 },
 188     { "user@host:40/a/b",                    "host", "user",      NULL, "/a/b", 40 },
 189     { "user:pass@host/a/b",                  "host", "user",    "pass", "/a/b", 21 },
 190     { "user:pass@host:40/a/b",               "host", "user",    "pass", "/a/b", 40 },
 191     { NULL }
 192 };
 193
 194 /* tests with implicit login name */
 195 struct tt tests2 [] = {
 196     { "@host",                           "host", "user",      NULL, "/", 21 },
 197     { "@host/dir",                       "host", "user",      NULL, "/dir", 21 },
 198     { "@host:40/",                       "host", "user",      NULL, "/", 40 },
 199     { "@host:40/dir",                    "host", "user",      NULL, "/dir", 40 },
 200     { ":pass@host",                      "host", "user",    "pass", "/", 21 },
 201     { ":pass@host/dir",                  "host", "user",    "pass", "/dir", 21 },
 202     { ":pass@host:40",                   "host", "user",    "pass", "/", 40 },
 203     { ":pass@host:40/dir",               "host", "user",    "pass", "/dir", 40 },
 204     { "@host/a@b",                       "host", "user",      NULL, "/a@b", 21 },
 205     { "@host:40/a@b",                    "host", "user",      NULL, "/a@b", 40 },
 206     { ":pass@host/a@b",                  "host", "user",    "pass", "/a@b", 21 },
 207     { ":pass@host:40/a@b",               "host", "user",    "pass", "/a@b", 40 },
 208     { "@host/a:b",                       "host", "user",      NULL, "/a:b", 21 },
 209     { "@host:40/a:b",                    "host", "user",      NULL, "/a:b", 40 },
 210     { ":pass@host/a:b",                  "host", "user",    "pass", "/a:b", 21 },
 211     { ":pass@host:40/a:b",               "host", "user",    "pass", "/a:b", 40 },
 212     { "@host/a/b",                       "host", "user",      NULL, "/a/b", 21 },
 213     { "@host:40/a/b",                    "host", "user",      NULL, "/a/b", 40 },
 214     { ":pass@host/a/b",                  "host", "user",    "pass", "/a/b", 21 },
 215     { ":pass@host:40/a/b",               "host", "user",    "pass", "/a/b", 40 },
 216     { NULL }
 217 };
 218
 219 main ()
 220 {
 221     int i, port, err;
 222     char *dir, *host, *user, *pass;
 223     struct passwd *passwd_info;
 224     char *current;
 225
 226     if ((passwd_info = getpwuid (geteuid ())) == NULL)
 227         current = g_strdup ("anonymous");
 228     else {
 229                 current= g_strdup (passwd_info->pw_name);
 230     }
 231     endpwent ();
 232
 233     for (i = 0; tests [i].url; i++){
 234         err = 0;
 235         dir = get_host_and_username (tests [i].url, &host, &user, &port, 21, 1, &pass);
 236
 237         if (strcmp (dir, tests [i].r_dir))
 238             err++, printf ("dir: test %d flunked\n", i);
 239
 240         if (!err && strcmp (host, tests [i].r_host))
 241             err++, printf ("host: test %d flunked\n", i);
 242
 243         if (!err && strcmp (user, tests [i].r_user))
 244             err++, printf ("user: test %d flunked\n", i);
 245
 246         if (!err && tests [i].r_pass)
 247             if (strcmp (dir, tests [i].r_dir))
 248                 err++, printf ("pass: test %d flunked\n", i);
 249
 250         if (!err & tests [i].r_port != port)
 251             err++, printf ("port: test %d flunked\n", i);
 252
 253         if (err){
 254             printf ("host=[%s] user=[%s] pass=[%s] port=[%d]\n",
 255                     host, user, pass, port);
 256         }
 257     }
 258
 259     printf ("%d tests ok\nExtra tests:", i);
 260
 261     for (i = 0; i < 4; i++){
 262         dir = get_host_and_username (tests [i].url, &host, &user, &port, 21, 0, &pass);
 263         if (strcmp (user, current))
 264             printf ("ntest: flunked %d\n", i);
 265     }
 266
 267     printf ("%d tests ok\nTests with implicit login name\n", i);
 268
 269     for (i = 0; tests2 [i].url; i++){
 270         err = 0;
 271         dir = get_host_and_username (tests2 [i].url, &host, &user, &port, 21, 1, &pass);
 272
 273         if (strcmp (dir, tests2 [i].r_dir))
 274             err++, printf ("dir: test %d flunked\n", i);
 275
 276         if (!err && strcmp (host, tests2 [i].r_host))
 277             err++, printf ("host: test %d flunked\n", i);
 278
 279         if (!err && strcmp (user, current))
 280             err++, printf ("user: test %d flunked\n", i);
 281
 282         if (!err && tests2 [i].r_pass)
 283             if (strcmp (dir, tests2 [i].r_dir))
 284                 err++, printf ("pass: test %d flunked\n", i);
 285
 286         if (!err & tests2 [i].r_port != port)
 287             err++, printf ("port: test %d flunked\n", i);
 288
 289         if (err){
 290             printf ("host=[%s] user=[%s] pass=[%s] port=[%d]\n",
 291                     host, user, pass, port);
 292         }
 293     }
 294     printf ("%d tests ok\n", i);
 295 }
 296 #endif