1 files changed, 0 insertions, 49 deletions
diff --git a/src/lib/krb425/get_phost.c b/src/lib/krb425/get_phost.c
deleted file mode 100644
index 3c44173f9..000000000
--- a/src/lib/krb425/get_phost.c
+++ /dev/null
@@ -1,49 +0,0 @@
-/*
- * lib/krb425/get_phost.c
- *
- * Copyright 1990 by the Massachusetts Institute of Technology.
- * All Rights Reserved.
- *
- * Export of this software from the United States of America may
- *   require a specific license from the United States Government.
- *   It is the responsibility of any person or organization contemplating
- *   export to obtain such a license before exporting.
- * 
- * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
- * distribute this software and its documentation for any purpose and
- * without fee is hereby granted, provided that the above copyright
- * notice appear in all copies and that both that copyright notice and
- * this permission notice appear in supporting documentation, and that
- * the name of M.I.T. not be used in advertising or publicity pertaining
- * to distribution of the software without specific, written prior
- * permission.  M.I.T. makes no representations about the suitability of
- * this software for any purpose.  It is provided "as is" without express
- * or implied warranty.
- * 
- *
- * krb_get_phost for krb425
- */
-
-
-#include "krb425.h"
-
-char *
-krb_get_phost(alias)
-char *alias;
-{
-	struct hostent *h;
-	char *phost = alias;
-
-	if ((h = gethostbyname(alias)) != (struct hostent *)0 ) {
-		char *p;
-#ifdef	OLD_CRUFT
-		if (p = strchr( h->h_name, '.' ))
-			*p = 0;
-#endif
-		p = phost = h->h_name;
-		do {
-			if (isupper(*p)) *p=tolower(*p);
-		} while (*p++);
-	}
-	return(phost);
-}