diff options
| author | Ezra Peisach <epeisach@mit.edu> | 1996-10-15 10:43:25 +0000 |
|---|---|---|
| committer | Ezra Peisach <epeisach@mit.edu> | 1996-10-15 10:43:25 +0000 |
| commit | 846dc8827cbcc6aa38ea5a06e3782b3e7a37b5bb (patch) | |
| tree | 6c6961be8b482ddcdcdd69ee8150854db0e770b3 /src/kadmin/testing/scripts/qualname.pl.in | |
| parent | b619bebed5da0d7e8131c29b5c93110bb9dd88f8 (diff) | |
| download | krb5-846dc8827cbcc6aa38ea5a06e3782b3e7a37b5bb.tar.gz krb5-846dc8827cbcc6aa38ea5a06e3782b3e7a37b5bb.tar.xz krb5-846dc8827cbcc6aa38ea5a06e3782b3e7a37b5bb.zip | |
* Makefile.in: Added standard rules for .plin -> .pl
* *.plin: Renamed from *.pl.in
All files copied in source tree to preserve history - cvs update will
create properly.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9170 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/kadmin/testing/scripts/qualname.pl.in')
| -rw-r--r-- | src/kadmin/testing/scripts/qualname.pl.in | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/kadmin/testing/scripts/qualname.pl.in b/src/kadmin/testing/scripts/qualname.pl.in deleted file mode 100644 index 3d047c550..000000000 --- a/src/kadmin/testing/scripts/qualname.pl.in +++ /dev/null @@ -1,18 +0,0 @@ -#!/afs/athena/contrib/perl/p - -if ($#ARGV == -1) { - chop($hostname = `hostname`); -} else { - $hostname = $ARGV[0]; -} - -if (! (($type,$addr) = (gethostbyname($hostname))[2,4])) { - print STDERR "No such host: $hostname\n"; - exit(1); -} -if (! ($qualname = (gethostbyaddr($addr,$type))[0])) { - print STDERR "No address information for host $hostname\n"; - exit(1); -} -print "$qualname\n"; - |