util.c File Reference

#include "syshdrs.h"

Include dependency graph for util.c:

Go to the source code of this file.

Functions
char *	FTPGetLocalCWD (char *buf, size_t size)
char *	FGets (char *str, size_t size, FILE *fp)
struct passwd *	GetPwByName (void)
char *	GetPass (const char *const prompt)
void	GetHomeDir (char *dst, size_t size)
void	GetUsrName (char *dst, size_t size)
void	CloseFile (FILE **f)
void	PrintF (const FTPCIPtr cip, const char *const fmt,...)
void	Error (const FTPCIPtr cip, const int pError, const char *const fmt,...)
static time_t	GetUTCOffset (int mon, int mday)
time_t	UnMDTMDate (char *dstr)
int	GetSockBufSize (int sockfd, size_t *rsize, size_t *ssize)
int	SetSockBufSize (int sockfd, size_t rsize, size_t ssize)
void	Scramble (unsigned char *dst, size_t dsize, unsigned char *src, char *key)
void	StrRemoveTrailingSlashes (char *dst)
int	MkDirs (const char *const newdir, int mode1)
int	FilenameExtensionIndicatesASCII (const char *const pathName, const char *const extnList)

Function Documentation

CloseFile()

void CloseFile

(

FILE **

f

)

Definition at line 327 of file util.c.

{
    if (*f != NULL) {
        if ((*f != stdout) && (*f != stdin) && (*f != stderr))
            (void) fclose(*f);
        *f = NULL;
    }
}   /* CloseFile */

Referenced by CloseControlConnection(), FTPRebuildConnectionInfo(), and OpenControlConnection().

Error()

void Error	(	const FTPCIPtr	cip,
		const int	pError,
		const char *const	fmt,
			...
	)

Definition at line 368 of file util.c.

{
    va_list ap;
    int errnum;
    size_t len;
    char buf[256];
    int endsinperiod;
    int endsinnewline;
#ifndef HAVE_STRERROR
    char errnostr[16];
#endif
 
    errnum = errno;
    va_start(ap, fmt);
#ifdef HAVE_VSNPRINTF
    vsnprintf(buf, sizeof(buf) - 1, fmt, ap);
    buf[sizeof(buf) - 1] = '\0';
#else
    (void) vsprintf(buf, fmt, ap);
#endif
    va_end(ap);
 
    if (pError != 0) {
        len = strlen(buf);
        endsinperiod = 0;
        endsinnewline = 0;
        if (len > 2) {
            if (buf[len - 1] == '\n') {
                endsinnewline = 1;
                buf[len - 1] = '\0';
                if (buf[len - 2] == '.') {
                    endsinperiod = 1;
                    buf[len - 2] = '\0';
                }
            } else if (buf[len - 1] == '.') {
                endsinperiod = 1;
                buf[len - 1] = '\0';
            }
        }
#ifdef HAVE_STRERROR
        (void) STRNCAT(buf, ": ");
        (void) STRNCAT(buf, strerror(errnum));
#else
#   ifdef HAVE_SNPRINTF
        sprintf(errnostr, sizeof(errnostr) - 1, " (errno = %d)", errnum);
        errnostr[sizeof(errnostr) - 1] = '\0';
#   else
        sprintf(errnostr, " (errno = %d)", errnum);
#   endif
        STRNCAT(buf, errnostr);
#endif
        if (endsinperiod != 0)
            (void) STRNCAT(buf, ".");
        if (endsinnewline != 0)
            (void) STRNCAT(buf, "\n");
    }
 
    if (cip->errLog != NULL) {
        (void) fprintf(cip->errLog, "%s", buf);
        (void) fflush(cip->errLog);
    }
    if ((cip->debugLog != NULL) && (cip->debugLog != cip->errLog)) {
        if ((cip->errLog != stderr) || (cip->debugLog != stdout)) {
            (void) fprintf(cip->debugLog, "%s", buf);
            (void) fflush(cip->debugLog);
        }
    }
    if (cip->errLogProc != NULL) {
        (*cip->errLogProc)(cip, buf);
    }
    if ((cip->debugLogProc != NULL) && (cip->debugLogProc != cip->errLogProc)) {
        (*cip->debugLogProc)(cip, buf);
    }
}   /* Error */

FGets()

char * FGets	(	char *	str,
		size_t	size,
		FILE *	fp
	)

Definition at line 111 of file util.c.

{
    char *cp, *nlptr;
 
    cp = fgets(str, ((int) size) - 1, fp);
    if (cp != NULL) {
        cp[((int) size) - 1] = '\0';    /* ensure terminator */
        nlptr = cp + strlen(cp) - 1;
        if (*nlptr == '\n')
            *nlptr = '\0';
    } else {
        memset(str, 0, size);
    }
    return cp;
}   /* FGets */

Referenced by GetBookmark(), GetNextBookmark(), GetPass(), LazyUnixLocalGlob(), OpenBookmarkFile(), PromptForBookmarkName(), PutBookmark(), and RunBookmarkEditor().

FilenameExtensionIndicatesASCII()

int FilenameExtensionIndicatesASCII	(	const char *const	pathName,
		const char *const	extnList
	)

Definition at line 963 of file util.c.

{
    const char *extn;
    char *cp;
    int c;
    char extnPattern[16];
 
    extn = pathName + strlen(pathName) - 1;
    forever {
        if (extn <= pathName)
            return (0); /* End of pathname, no extension. */
        c = (int) *--extn;
        if (IsLocalPathDelim(c))
            return (0); /* End of filename, no extension. */
        if (c == '.') {
            extn += 1;
            break;
        }
    }
    if (strlen(extn) > (sizeof(extnPattern) - 2 - 1 - 1)) {
        return (0);
    }
#ifdef HAVE_SNPRINTF
    snprintf(extnPattern, sizeof(extnPattern),
#else
    sprintf(extnPattern,
#endif
        "|.%s|",
        extn
    );
 
    cp = extnPattern;
    forever {
        c = *cp;
        if (c == '\0')
            break;
        if (isupper(c)) {
            c = tolower(c);
            *cp++ = (char) c;
        } else {
            cp++;
        }
    }
 
    /* Extension list is specially formatted, like this:
     *
     *  |ext1|ext2|ext3|...|extN|
     *
     * I.e, each filename extension is delimited with
     * a pipe, and we always begin and end the string
     * with a pipe.
     */
    if (strstr(extnList, extnPattern) != NULL) {
        return (1);
    }
    return (0);
}   /* FilenameExtensionIndicatesASCII */

Referenced by AutomaticallyUseASCIIModeDependingOnExtension().

FTPGetLocalCWD()

char * FTPGetLocalCWD	(	char *	buf,
		size_t	size
	)

Definition at line 29 of file util.c.

{
#ifdef HAVE_GETCWD
    static char *cwdBuf = NULL;
    static size_t cwdBufSize = 0;
 
    if (cwdBufSize == 0) {
        cwdBufSize = (size_t) 128;
        cwdBuf = (char *) malloc(cwdBufSize);
    }
 
    for (errno = 0; ; ) {
        if (cwdBuf == NULL) {
            return NULL;
        }
 
        if (getcwd(cwdBuf, cwdBufSize) != NULL)
            break;
        if (errno != ERANGE) {
            (void) Strncpy(buf, ".", size);
            return NULL;
        }
        cwdBufSize *= 2;
        cwdBuf = (char *) Realloc(cwdBuf, cwdBufSize);
    }
 
    return (Strncpy(buf, cwdBuf, size));
#else
#ifdef HAVE_GETWD
    static char *cwdBuf = NULL;
    char *dp;
 
    /* Due to the way getwd is usually implemented, it's
     * important to have a buffer large enough to hold the
     * whole thing.  getwd usually starts at the end of the
     * buffer, and works backwards, returning you a pointer
     * to the beginning of it when it finishes.
     */
    if (size < MAXPATHLEN) {
        /* Buffer not big enough, so use a temporary one,
         * and then copy the first 'size' bytes of the
         * temporary buffer to your 'buf.'
         */
        if (cwdBuf == NULL) {
            cwdBuf = (char *) malloc((size_t) MAXPATHLEN);
            if (cwdBuf == NULL) {
                return NULL;
            }
        }
        dp = cwdBuf;
    } else {
        /* Buffer is big enough already. */
        dp = buf;
    }
    *dp = '\0';
    if (getwd(dp) == NULL) {
        /* getwd() should write the reason why in the buffer then,
         * according to the man pages.
         */
        (void) Strncpy(buf, ".", size);
        return (NULL);
    }
    return (Strncpy(buf, dp, size));
 
#elif defined(WIN32) || defined(_WINDOWS)
    if (GetCurrentDirectory((DWORD) size - 1, buf) < 1)
        return NULL;
    buf[size - 1] = '\0';
    return buf;
#else
    /* Not a solution, but does anybody not have either of
     * getcwd or getwd?
     */
    --Error--;
#endif
#endif
}   /* GetCWD */

Referenced by DoOpen(), LocalChdirCmd(), LocalPwdCmd(), PostInit(), SpoolGetCmd(), SpoolPutCmd(), and SpoolX().

GetHomeDir()

void GetHomeDir	(	char *	dst,
		size_t	size
	)

Definition at line 240 of file util.c.

{
#if defined(WIN32) || defined(_WINDOWS)
    const char *homedrive, *homepath;
 
    homedrive = getenv("HOMEDRIVE");
    homepath = getenv("HOMEPATH");
    if ((homedrive != NULL) && (homepath != NULL)) {
        (void) Strncpy(dst, homedrive, size);
        (void) Strncat(dst, homepath, size);
        return;
    }
 
//  GetSpecialDir(dst, size, CSIDL_PERSONAL /* "My Documents" */);
//  if (dst[0] != '\0')
//      return;
//
//  dst[0] = '\0';
//  if (GetWindowsDirectory(dst, size - 1) < 1)
//      (void) Strncpy(dst, ".", size);
//  else if (dst[1] == ':') {
//      dst[2] = '\\';
//      dst[3] = '\0';
//  }
#else
    const char *cp;
    struct passwd *pw;
 
    pw = NULL;
#if defined(USE_GETPWUID)
    /* Try to use getpwuid(), but if we have to, fall back to getpwnam(). */
    if ((pw = getpwuid(getuid())) == NULL)
        pw = GetPwByName(); /* Oh well, try getpwnam() then. */
#else
    /* Try to use getpwnam(), but if we have to, fall back to getpwuid(). */
    if ((pw = GetPwByName()) == NULL)
        pw = getpwuid(getuid());    /* Try getpwnam() then. */
#endif
    if (pw != NULL)
        cp = pw->pw_dir;
    else if ((cp = (const char *) getenv("LOGNAME")) == NULL)
            cp = ".";
    (void) Strncpy(dst, cp, size);
#endif
}   /* GetHomeDir */

Referenced by ExpandTilde().

GetPass()

char * GetPass

(

const char *const

prompt

)

Definition at line 186 of file util.c.

{
#ifdef HAVE_GETPASS
    return getpass(prompt);
#elif defined(_CONSOLE) && (defined(WIN32) || defined(_WINDOWS))
    static char pwbuf[128];
    char *dst, *dlim;
    int c;
 
    (void) memset(pwbuf, 0, sizeof(pwbuf));
    if (! _isatty(_fileno(stdout)))
        return (pwbuf);
    (void) fputs(prompt, stdout);
    (void) fflush(stdout);
 
    for (dst = pwbuf, dlim = dst + sizeof(pwbuf) - 1;;) {
        c = _getch();
        if ((c == 0) || (c == 0xe0)) {
            /* The key is a function or arrow key; read and discard. */
            (void) _getch();
        }
        if ((c == '\r') || (c == '\n'))
            break;
        if (dst < dlim)
            *dst++ = c;
    }
    *dst = '\0';
 
    (void) fflush(stdout);
    (void) fflush(stdin);
    return (pwbuf);
#else
    static char pwbuf[128];
 
    (void) memset(pwbuf, 0, sizeof(pwbuf));
#if defined(WIN32) || defined(_WINDOWS)
    if (! _isatty(_fileno(stdout)))
#else
    if (! isatty(1))
#endif
        return (pwbuf);
    (void) fputs(prompt, stdout);
    (void) fflush(stdout);
    (void) FGets(pwbuf, sizeof(pwbuf), stdin);
    (void) fflush(stdout);
    (void) fflush(stdin);
    return (pwbuf);
#endif
}   /* GetPass */

Referenced by DECLARE_INTERFACE_().

GetPwByName()

struct passwd * GetPwByName

(

void

)

Definition at line 165 of file util.c.

{
    char *cp;
    struct passwd *pw;
 
    cp = getlogin();
    if (cp == NULL) {
        cp = (char *) getenv("LOGNAME");
        if (cp == NULL)
            cp = (char *) getenv("USER");
    }
    pw = NULL;
    if (cp != NULL)
        pw = getpwnam(cp);
    return (pw);
}   /* GetPwByName */

Referenced by GetHomeDir(), and GetUsrName().

GetSockBufSize()

int GetSockBufSize	(	int	sockfd,
		size_t *	rsize,
		size_t *	ssize
	)

Definition at line 534 of file util.c.

{
#ifdef SO_SNDBUF
    int rc = -1;
    int opt;
    int optsize;
 
    if (ssize != NULL) {
        opt = 0;
        optsize = sizeof(opt);
        rc = getsockopt(sockfd, SOL_SOCKET, SO_SNDBUF, (char *) &opt, &optsize);
        if (rc == 0)
            *ssize = (size_t) opt;
        else
            *ssize = 0;
    }
    if (rsize != NULL) {
        opt = 0;
        optsize = sizeof(opt);
        rc = getsockopt(sockfd, SOL_SOCKET, SO_RCVBUF, (char *) &opt, &optsize);
        if (rc == 0)
            *rsize = (size_t) opt;
        else
            *rsize = 0;
    }
    return (rc);
#else
    if (ssize != NULL)
        *ssize = 0;
    if (rsize != NULL)
        *rsize = 0;
    return (-1);
#endif
}   /* GetSockBufSize */

GetUsrName()

void GetUsrName	(	char *	dst,
		size_t	size
	)

Definition at line 290 of file util.c.

{
#if defined(WIN32) || defined(_WINDOWS)
    DWORD size1;
 
    size1 = size - 1;
    if (! GetUserName(dst, &size1))
        (void) strncpy(dst, "unknown", size);
    dst[size - 1] = '\0';
#else
    const char *cp;
    struct passwd *pw;
 
    pw = NULL;
#ifdef USE_GETPWUID
    /* Try to use getpwuid(), but if we have to, fall back to getpwnam(). */
    if ((pw = getpwuid(getuid())) == NULL)
        pw = GetPwByName(); /* Oh well, try getpwnam() then. */
#else
    /* Try to use getpwnam(), but if we have to, fall back to getpwuid(). */
    if ((pw = GetPwByName()) == NULL)
        pw = getpwuid(getuid());    /* Try getpwnam() then. */
#endif
    if (pw != NULL)
        cp = pw->pw_name;
    else if ((cp = (const char *) getenv("LOGNAME")) == NULL)
            cp = "UNKNOWN";
    (void) Strncpy(dst, cp, size);
#endif
}   /* GetUserName */

Referenced by FTPInitializeAnonPassword().

GetUTCOffset()

static time_t GetUTCOffset ( int  mon, int  mday  )

static

Definition at line 449 of file util.c.

{
    struct tm local_tm, utc_tm, *utc_tmptr;
    time_t local_t, utc_t, utcOffset;
 
    ZERO(local_tm);
    ZERO(utc_tm);
    utcOffset = 0;
 
    local_tm.tm_year = 94;  /* Doesn't really matter. */
    local_tm.tm_mon = mon;
    local_tm.tm_mday = mday;
    local_tm.tm_hour = 12;
    local_tm.tm_isdst = -1;
    local_t = mktime(&local_tm);
 
    if (local_t != (time_t) -1) {
        utc_tmptr = gmtime(&local_t);
        utc_tm.tm_year = utc_tmptr->tm_year;
        utc_tm.tm_mon = utc_tmptr->tm_mon;
        utc_tm.tm_mday = utc_tmptr->tm_mday;
        utc_tm.tm_hour = utc_tmptr->tm_hour;
        utc_tm.tm_isdst = -1;
        utc_t = mktime(&utc_tm);
 
        if (utc_t != (time_t) -1)
            utcOffset = (local_t - utc_t);
    }
    return (utcOffset);
}   /* GetUTCOffset */

Referenced by UnMDTMDate().

MkDirs()

int MkDirs	(	const char *const	newdir,
		int	mode1
	)

Definition at line 785 of file util.c.

{
    char s[512];
    int rc;
    char *cp, *sl;
#if defined(WIN32) || defined(_WINDOWS)
    struct _stat st;
    char *share;
#else
    struct Stat st;
    mode_t mode = (mode_t) mode1;
#endif
 
#if defined(WIN32) || defined(_WINDOWS)
    if ((isalpha(newdir[0])) && (newdir[1] == ':')) {
        if (! IsLocalPathDelim(newdir[2])) {
            /* Special case "c:blah", and errout.
             * "c:\blah" must be used or _access GPFs.
             */
            errno = EINVAL;
            return (-1);
        } else if (newdir[3] == '\0') {
            /* Special case root directory, which cannot be made. */
            return (0);
        }
    } else if (IsUNCPrefixed(newdir)) {
        share = StrFindLocalPathDelim(newdir + 2);
        if ((share == NULL) || (StrFindLocalPathDelim(share + 1) == NULL))
            return (-1);
    }
 
    if (_access(newdir, 00) == 0) {
        if (_stat(newdir, &st) < 0)
            return (-1);
        if (! S_ISDIR(st.st_mode)) {
            errno = ENOTDIR;
            return (-1);
        }
        return 0;
    }
#else
    if (access(newdir, F_OK) == 0) {
        if (Stat(newdir, &st) < 0)
            return (-1);
        if (! S_ISDIR(st.st_mode)) {
            errno = ENOTDIR;
            return (-1);
        }
        return 0;
    }
#endif
 
    (void) strncpy(s, newdir, sizeof(s));
    if (s[sizeof(s) - 1] != '\0') {
#ifdef ENAMETOOLONG
        errno = ENAMETOOLONG;
#else
        errno = EINVAL;
        return (-1);
#endif
    }
 
    cp = StrRFindLocalPathDelim(s);
    if (cp == NULL) {
#if defined(WIN32) || defined(_WINDOWS)
        if (! CreateDirectory(newdir, (LPSECURITY_ATTRIBUTES) 0))
            return (-1);
        return (0);
#else
        rc = mkdir(newdir, mode);
        return (rc);
#endif
    } else if (cp[1] == '\0') {
        /* Remove trailing slashes from path. */
        --cp;
        while (cp > s) {
            if (! IsLocalPathDelim(*cp))
                break;
            --cp;
        }
        cp[1] = '\0';
        cp = StrRFindLocalPathDelim(s);
        if (cp == NULL) {
#if defined(WIN32) || defined(_WINDOWS)
            if (! CreateDirectory(s, (LPSECURITY_ATTRIBUTES) 0))
                return (-1);
#else
            rc = mkdir(s, mode);
            return (rc);
#endif
        }
    }
 
    /* Find the deepest directory in this
     * path that already exists.  When
     * we do, we want to have the 's'
     * string as it was originally, but
     * with 'cp' pointing to the first
     * slash in the path that starts the
     * part that does not exist.
     */
    sl = NULL;
    for (;;) {
        *cp = '\0';
#if defined(WIN32) || defined(_WINDOWS)
        rc = _access(s, 00);
#else
        rc = access(s, F_OK);
#endif
        if (sl != NULL)
            *sl = LOCAL_PATH_DELIM;
        if (rc == 0) {
            *cp = LOCAL_PATH_DELIM;
            break;
        }
        sl = cp;
        cp = StrRFindLocalPathDelim(s);
        if (cp == NULL) {
            /* We do not have any more
             * slashes, so none of the
             * new directory's components
             * existed before, so we will
             * have to make everything
             * starting at the first node.
             */
            if (sl != NULL)
                *sl = LOCAL_PATH_DELIM;
 
            /* We refer to cp + 1 below,
             * so this is why we can
             * set "cp" to point to the
             * byte before the array starts.
             */
            cp = s - 1;
            break;
        }
    }
 
    for (;;) {
        /* Extend the path we have to
         * include the next component
         * to make.
         */
        sl = StrFindLocalPathDelim(cp + 1);
        if (sl == s) {
            /* If the next slash is pointing
             * to the start of the string, then
             * the path is an absolute path and
             * we don't need to make the root node,
             * and besides the next mkdir would
             * try an empty string.
             */
            ++cp;
            sl = StrFindLocalPathDelim(cp + 1);
        }
        if (sl != NULL) {
            *sl = '\0';
        }
#if defined(WIN32) || defined(_WINDOWS)
        if (! CreateDirectory(s, (LPSECURITY_ATTRIBUTES) 0))
            return (-1);
#else
        rc = mkdir(s, mode);
        if (rc < 0)
            return rc;
#endif
        if (sl == NULL)
            break;
        *sl = LOCAL_PATH_DELIM;
        cp = sl;
    }
    return (0);
}   /* MkDirs */

Referenced by FTPGetFiles3(), InitOurDirectory(), LocalMkdirCmd(), and MkSpoolDir().

PrintF()

void PrintF	(	const FTPCIPtr	cip,
		const char *const	fmt,
			...
	)

Definition at line 340 of file util.c.

{
    va_list ap;
    char buf[256];
 
    va_start(ap, fmt);
    if (cip->debugLog != NULL) {
        (void) vfprintf(cip->debugLog, fmt, ap);
        (void) fflush(cip->debugLog);
    }
    if (cip->debugLogProc != NULL) {
#ifdef HAVE_VSNPRINTF
        (void) vsnprintf(buf, sizeof(buf) - 1, fmt, ap);
        buf[sizeof(buf) - 1] = '\0';
#else
        (void) vsprintf(buf, fmt, ap);
#endif
        (*cip->debugLogProc)(cip, buf);
    }
    va_end(ap);
}   /* PrintF */

Referenced by FTPAbortDataTransfer(), FTPGetFiles3(), FTPLoginHost(), FTPOpenHost(), FTPOpenHostNoLogin(), FTPPutFiles3(), FTPRemoteGlob(), LazyUnixLocalGlob(), OpenControlConnection(), PrintResponse(), SendCommand(), and TraceResponse().

Scramble()

void Scramble	(	unsigned char *	dst,
		size_t	dsize,
		unsigned char *	src,
		char *	key
	)

Definition at line 607 of file util.c.

{
    int i;
    unsigned int ch;
    unsigned char *k2;
    size_t keyLen;
 
    keyLen = strlen(key);
    k2 = (unsigned char *) key;
    for (i=0; i < (int) dsize - 1; i++) {
        ch = src[i];
        if (ch == 0)
            break;
        dst[i] = (unsigned char) (ch ^ (int) (k2[i % (int) keyLen]));
    }
    dst[i] = '\0';
}   /* Scramble */

SetSockBufSize()

int SetSockBufSize	(	int	sockfd,
		size_t	rsize,
		size_t	ssize
	)

Definition at line 572 of file util.c.

{
#ifdef SO_SNDBUF
    int rc = -1;
    int opt;
    int optsize;
 
#ifdef TCP_RFC1323
    /* This is an AIX-specific socket option to do RFC1323 large windows */
    if (ssize > 0 || rsize > 0) {
        opt = 1;
        optsize = sizeof(opt);
        rc = setsockopt(sockfd, IPPROTO_TCP, TCP_RFC1323, &opt, optsize);
    }
#endif
 
    if (ssize > 0) {
        opt = (int) ssize;
        optsize = sizeof(opt);
        rc = setsockopt(sockfd, SOL_SOCKET, SO_SNDBUF, (char *) &opt, optsize);
    }
    if (rsize > 0) {
        opt = (int) rsize;
        optsize = sizeof(opt);
        rc = setsockopt(sockfd, SOL_SOCKET, SO_RCVBUF, (char *) &opt, optsize);
    }
    return (rc);
#else
    return (-1);
#endif
}   /* SetSockBufSize */

Referenced by OpenControlConnection(), and OpenDataConnection().

StrRemoveTrailingSlashes()

void StrRemoveTrailingSlashes

(

char *

dst

)

Definition at line 768 of file util.c.

{
    char *cp;
 
    cp = strrchr(dst, '/');
    if ((cp == NULL) || (cp[1] != '\0'))
        return;
 
    /* Note: Do not destroy a path of "/" */
    while ((cp > dst) && (*cp == '/'))
        *cp-- = '\0';
}   /* StrRemoveTrailingSlashes */

Referenced by FTPGetFiles3(), GetCmd(), PutCmd(), SpoolGetCmd(), and SpoolPutCmd().

UnMDTMDate()

time_t UnMDTMDate

(

char *

dstr

)

Definition at line 486 of file util.c.

{
#ifndef HAVE_MKTIME
    return (kModTimeUnknown);
#else
    struct tm ut, *t;
    time_t mt, now;
    time_t result = kModTimeUnknown;
 
    if (strncmp(dstr, "19100", 5) == 0) {
        /* Server Y2K bug! */
        return (result);
    }
 
    (void) time(&now);
    t = localtime(&now);
 
    /* Copy the whole structure of the 'tm' pointed to by t, so it will
     * also set all fields we don't specify explicitly to be the same as
     * they were in t.  That way we copy non-standard fields such as
     * tm_gmtoff, if it exists or not.
     */
    ut = *t;
 
    /* The time we get back from the server is (should be) in UTC. */
    if (sscanf(dstr, "%04d%02d%02d%02d%02d%02d",
        &ut.tm_year,
        &ut.tm_mon,
        &ut.tm_mday,
        &ut.tm_hour,
        &ut.tm_min,
        &ut.tm_sec) == 6)
    {
        --ut.tm_mon;
        ut.tm_year -= 1900;
        mt = mktime(&ut);
        if (mt != (time_t) -1) {
            mt += GetUTCOffset(ut.tm_mon, ut.tm_mday);
            result = (time_t) mt;
        }
    }
    return result;
#endif  /* HAVE_MKTIME */
}   /* UnMDTMDate */

Referenced by FTPFileModificationTime(), and UnMlsT().