.Nm fetchStrfURL ,

.Ft size_t

.Fn fetchStrfURL "char *buf" "size_t s" "const char *fmt" "struct url *url"

.Pp

.Fn fetchStrfURL

formats the information from the

.Fa url

into

.Fa buf

according to the string pointed to by

.Fa fmt .

No more than 

.Fa size

characters will be copied to

.Fa buf .

If the total number of characters including the terminating NUL is

less is less than

.Fa size ,

then the number of characters copied not counting the terminating NUL

is returned. Otherwise, zero is returned and the contents of 

.Fa buf

are indeterminate.

.Pp

The format string consists of ordinary characters and zero or more 

conversion specifications. A conversion specification is a percent sign

.Dq Ql %

and one character. Conversion specifications are replaced by elements

from the url. See the description of

.Fn fetchParseURL

for the names of the cmoponents.

.Pp

Not all parts are present in all URLs; those missing will generate the null

string. The non-alphabetic characters separate the parts, with the exception

of the last 

.Dq Ql / ,

which is the first character in the file part.

.Pp

The conversion specifications map to the parts like so:

.Bl -tag -width "xxxx"

.It Cm %s

is replaced by the

.Vt scheme

from the URL.

.It Cm %u

is replaced by the

.Vt user

from the URL.

.It Cm %w

is replaced by the

.Vt pwd

from the URL.

.It Cm %h

is replaced by the

.Vt host

part of the URL.

.It Cm %p

is replaced by the

.Vt port

from the URL.

.It %d

is replaced by the

.Vt document

part of the URL, including any initial

.Dq Ql /

that may be present.

.It Cm %%

is replaced by 

.Ql % .

.El

 * Format a URL into a string.

 *

 * This function formats the information from urlptr into buf

 * according to format. No more than size characters will be copied to

 * buf. If the total number of characters including the terminating

 * NUL is less is less than size, then the number of characters copied

 * not counting the terminating NUL is returned. Otherwise, zero is

 * returned and the contents of buf are indeterminate.

 *

 * The format string consists of ordinary characters and zero or more

 * conversion specifications. A conversion specification is a ``%''

 * sign and one character. Conversion specifications are replaced by

 * elements from the url. The url is parsed into the following parts,

 * as defined in RFC1738:

 *

 *	scheme://user:password@host:port/file

 *

 * Not all parts are present in all URLs; those missing will generate

 * the null string. The non-alphabetic characters separate the parts,

 * with the exception of the last ``/'', which is the first character

 * in the file part.

 *

 * The conversion specifications map to the parts like so: %s: scheme,

 * %u: user, %w: password, %h: host, %p: port, %f: file.

 *

 * Any other character after the ``%'' in a conversion specification

 * will replace the conversion specification, so that ``%%'' becomes

 * ``%''. Using this mechanism for any character other than ``%'' and

 * the documented specifications could lead to problems with later

 * version of strfurl.

 *

 * Note for future expansion: capital letters for conversion to imply

 * smarts, so that %P will become the default port for the scheme if

 * none is provided?

 */

size_t

fetchStrfURL(char *const buf, size_t size, const char *format,

	     struct url *urlptr)

{

  char *pt, *ptlim ;

  for (pt = buf, ptlim = pt + size; pt < ptlim && *format; format += 1)

    if (*format != '%') *pt++ = *format ;

    else {

      format += 1 ;

      switch (*format) {

      case 'd':

	pt += snprintf(pt, ptlim - pt, "%s", urlptr->doc) ;

	break ;

      case 'h':

	pt += snprintf(pt, ptlim - pt, "%s", urlptr->host) ;

	break ;

      case 'p':

	pt += snprintf(pt, ptlim - pt, "%d", urlptr->port) ;

	break ;

      case 's':

	pt += snprintf(pt, ptlim - pt, "%s", urlptr->scheme) ;

	break ;

      case 'u':

	pt += snprintf(pt, ptlim - pt, "%s", urlptr->user) ;

	break ;

      case 'w':

	pt += snprintf(pt, ptlim - pt, "%s", urlptr->pwd) ;

	break ;

      default:

	*pt++ = *format ;

	break ;

      }

    }

  if (pt >= ptlim) return 0 ;

  *pt = '\0' ;

  return pt - buf ;

}

/*

size_t		 fetchStrfURL(char *, size_t, const char *, struct url *);

#	@(#)Makefile	8.1 (Berkeley) 6/6/93

PROG=	url

LDADD=	-lfetch

.include <bsd.prog.mk>

.\" Copyrithg 2001, Mike W. Meyer <mwm@mired.org>

.Dd September 4, 2001

.Dt URL 1

.Os

.Sh NAME

.Nm url

.Nd parse and reformat uniform resource locators

.Sh SYNOPSYS

.Nm

.Op Fl d | h | m | p | s | u | w | Cm + Ns Ar format

.Ar URL

.Sh DESCRIPTION

The

.Nm

command reads a URL from the command line, parses it with the

.Xr fetchParseURL 3

routine, then reformats the components as specified by the option

and displays the results on standard out. The meaning of the component

names is in

.Xr fetchParseURL 3 .

.Pp

The options are as follows:

.Bl -tag -width Ds

.It Fl d

Display the document part of the url.

.It Fl h

Display the host from the url.

.It Fl m

Display the user and host from the url as a valid mail address.

.It Fl p

Display the port part of the url.

.It Fl s

Display the scheme from the url.

.It Fl u

Display the user name part the url.

.It Fl w

Display the password part of the url.

.It Cm + Ns Ar format

The format string specifies a format in which to display the components

of the URL. The format string can contain any conversion

specifications described in the

.Xr fetchStrfURL 3

manual page, as well as arbitrary text.

A newline

.Pl Ql \en

character is always output after the characters specified by the

format sting.

.El

.Pp

If no option is specified,

.Nm

chooses a format based on the scheme, which may result in the input

URL being displayed.

.Sh ERRORS

.Nm

exits 0 on success, >0 if an error occurs.

.Sh SEE ALSO

.Xr fetchParseURL 3

.Xr fetchStrfURL 3

.Sh AUTHORS

.An Mike Meyer Aq mwm@mired.org

/*

 * A small shell tool for manipulating URLs as parsed by libfetch.

 *

 * Copyright 2001, Mike W. Meyer

 * <mwm@mired.org>

 */

#include <sys/types.h>

#include <sys/param.h>

#include <err.h>

#include <stdio.h>

#include <stdlib.h>

#include <fetch.h>

#define OPTIONS "fhmPpsU"

struct formats {

  char *name, *format ;

} ;

static char *

searchfmtarray(const struct formats *array, const char *const name) {

  for (;array->name != NULL; array += 1)

    if (strcmp(array->name, name) == 0) return array->format ;

  return NULL ;

}

static struct formats schemes[] = {

  {"ftp", "%h%f"},

  {"mailto", "%u@%h"}

} ;

static struct formats flags[] = {

  {"d", "%d"} ,

  {"h", "%h"} ,

  {"m", "%u@%h"} ,

  {"p", "%p"} ,

  {"s", "%s"} ,

  {"u", "%u"} ,

  {"w", "%w"} ,

  {NULL, NULL}

} ;

static void

usage(char *name) {

  fprintf(stderr,

	  "usage: %s [-d | -h | -m | -p | -s | -u | -w | +format] URL\n", name)

    ;

  exit(EXIT_FAILURE) ;

}

#define URLBUFSIZE	10240

int

main(int argc, char **argv) {

  char *fmt ;

  char *in, *tmp, buf[URLBUFSIZE] ;

  struct url *out ;

  struct format *search ;

  int res ;

  fmt = NULL ;

  if (argc == 2) {

    in = argv[1] ;

  } else if (argc == 3) {

    in = argv[2] ;

    tmp = &argv[1][1] ;

    if (argv[1][0] == '+') fmt = tmp ;

    else if (argv[1][0] == '-') fmt = searchfmtarray(flags, tmp) ;

    if (fmt == NULL) usage(argv[0]) ;

  } else usage(argv[0]) ;

  if ((out = fetchParseURL(in)) == NULL)

    errx(EXIT_FAILURE, "Failed to parse URL.") ;

  else {

    if (fmt == NULL) fmt = searchfmtarray(schemes, out->scheme) ;

    if (fmt == NULL) puts(in) ;

    else {

      res = fetchStrfURL(buf, URLBUFSIZE, fmt, out) ;

      if (res != 0) puts(buf) ;

      else warnx("Output buffer size exceeded.") ;

    }

    fetchFreeURL(out) ;

  }

  exit(res == 0 ? EXIT_SUCCESS : EXIT_FAILURE) ;

}