For those who are interested here is the Sys::Domain package
I have come up with which attempts to find the current host's internet
FQDN.
It provides 3 functions :-
domainname() Identify and return the FQDN of the current host.
hostname() Returns the smallest part of the FQDN which can be used to identify the host.
hostdomain() Returns the remainder of the FQDN after the I<hostname> has been removed
Regards,
Graham.
--%<----%<----%<----%<----%<----%<----%<----%<----%<----%<----%<--
begin 660 Sys-Domain-1.01.tar.gz
M'XL("!NN2C " U-Y<RU$;VUA:6XM,2XP,2YT87( [5I[<]LV$N^_P:?8DYQ:
M2F12#S\N4NS:C>5&$[_.<M+FHM2A2$A"39$*0<G6.>YGOUV +\F)>]=)?#<=
M<D:6""P6^_HM%H"[<[FV[X\MX:W5C&K-_.X;/ "PM54%^MY8WU#?M49#?4=/
M%6"S6J]OU+>JC3J^;ZY7J]_!=_GSS9_NDO^/K$L^$"XW3@^_IO_1H5_V_V:U
MD?%_#7NKZ[7UW/\/\4PEA_9U^#H4KFPVR?OT"5HLX!^G(N!0,$P='\9D7&@Q
MQGX.1,CC,"FQ1]J';]IGW<[),?[:W@$,JF93CVHVW_! "M\KE2LQ[?'>45O_
M0MK5#/%J0M)]U3E-2-Y]O"K)T J%#<[<L\;"+K]/*%<=(</5B/+FQ<G1Z5F[
MVR7&PW^)":P]&R!7N.?IOCXXZ/RRO8/TJQ5@CQX1X]N4ORN\2WZ-4Q#_P\[Q
MJ_.WIVTE^6J6S':YY:U&8AQT#MM=^E5X8O2M2WCR&)X8HW#L%FX792FC1?^O
M\!_*\)OD_XU[\-]8QC]LU;8V<_P_Q%/\FSF5@>GZMN6:?>&9$QZXL';%&&4&
M5_0!P6>8??R%L4IM&;Q2W\B7(6*2@Z.:U$]JTZ\XII@,>AF18LQ/ N&%$(_%
MW%#H>9A=='/*::DCY9MTX)/C_ROB/\GU#X?_+2H.%NJ_6K6^7L_Q_R#X1RQ:
M]J4U7 !V2\/_A15,TDJ@?3WQ@Y!J@]U.=P^V"?UQ&\;Q;ON7TY.S\XN35[KK
M#Q,#6XF+AFV0"N"#4N&Q8SRNUIU"!3ZNG/&9H-*A"36C!BNP_3N8I9[SM-PS
MU)>)3.2T#U&% 3>0<+QE;'O$+:>FB@W&LDEK#?;"D(\G(80^\)GE3JV00SCB
M8$^#@$=Y9E4"2L0#CX>@9+<\)U(EX=U]>WQRVNUT&8+ZSZ3&F,]^N_OBK'-Z
MCI(S]EH*;P@S*Q#^5,*8AR/?D?#C<TL+O4-2#P0*0Q(?_&/_&/S!'>D-. C\
M,0M'0J;$B3Q6ID$+8Z L]C1$GU ;.F3J.7S08BNZ.],P^.AD7EF1%>$\F*,=
M.?ZU?<_F8F;U70Y7UIQ$'?(TSQM(S)3++A)9;K"M/X=]:R8<Z");&:+DF!8D
M_=ZUI+!#C@I)VPB%8:-214H:Y_S:DM#QD'HZ1JTE^J 860MJZ.,K5-,-T+QS
MN/3\*Q"H' 0\G 8>:"7%H(0Z"(\[.NH$<DO*H(P\YE[.@LNH!&G 1\P-&^#J![
M;([LP)KY CT3HGU"<MDD\%'OL60JJ% Q4!^(\:6!A0U):1WQ-R:C G70VC">
MPTHXGJ"%"[UJ :YA<Z,%Q2+-[_H6SHX#K )8T>5(B:E[W6YW7W;O1B2"MJ^
M%<6N@FS*L+T-U3+\H"=HQBXDK&3T;J#>:%,9SL%WG31FT/)CC!L&GSZE^L5"
M?$ABO0SU'=/A,].;NNX'%!WZ$BOTT?(TZ]J\;U"*#'<HC2EJ@JEG(R;+7YA,
M#UGSEJ<J*H[Q9)"9;8- /_%=UR=#KG7/:M7/\R[)B2O"DOFNV3/@O5GY8*)D
M)G5^J&R6R^^J[[7!/CNX0%Z\;>F9 S[V9QR&5M GY[.8ZG>0YKM>M1?TO/=/
M37/86N@I]?9ZQM-/^.G]LWRGMV=@!_XU*5)5>XO=9@ 5@?6&#%VD3QSP8LP=
M@19UYQCU!(V1-4OQ,?"G44)($U5+L4@1$['.8B9-8_%L!R) 4:-$58'?,(K0
MF?/%Q(,^PGZ@F)71)!3TD0W3DK!%[26:I;(B<<M9V:4^2>VJ6BVM7*BY=3/Y
M3O&H%%0O_2RH_JGG<BFC7K6&H '+Y+?$@4H7BJQ,HEZ(+0(G_9EZ<B0&84G/
M68&"8FK0\$*93*OD!0^Q39/KF!_X:&9[!-&H,JY3Q>P21/*&.I7C%&AAI2XI
M%.&X/U<607TI )41<;5T^+6FK!0,G'R'L*V4*=*&/K#LN)"& 274B+V64*=T
M-;H<A=;>NU][QONG:!LS2E)9QT?IZ3;U-?G5]?U+RGS(S>2A;09<^NX,D[0W
MB#RK? %/L"0G5Z!N_H1[)7RM%)9'%,I:_JL1G2L\1YJ=2"$<AO+UY!,M2T\^
M+?6ZM/SK;LAH5%.R@VL1-$"G5/K8KB\YS:M"XC^*ZJRRAZ@H^1&X-Q.![]&*
MHY9H6ND^CQ04IGW\YF;_Y&BO<WR[,$6F78F3#-&Y 3-#KYKDAFS?Y[)#MC_)
M#\,,6Y4B5*%17]A9,=9Q4 TQF.N(TN+?6U3$10(EG Q4;C+:J_(@JRPU*"TO
M%J!]D=W+M70.4/B@'11$61@UJ21KLZ)(C+M D?J,:)0(Q*64S4W['(NY,<JD
MX:#G^C[A&.N=9J3=$;+8U4F6'9Z<G#99%)N[(QUY2B B2C$2$3A1:*:K^6\^
M*HI Q2Q6P>Y6%-?+$$=B!?(XM'>C<JN4&09Q#4;4:;P#R9@$/:A$A:)ED(OS
M*7[EA54K(J0.G>)"X=Z12_D@(Y@>;.":9Q3 6.9! J0X2%37!!I:P%W)%2]5
MAL2K6?*:FC1JB'B3'M'O-*S3R&+L3 6B5 Z58UQDL'C$$BP(XXA6T8U^PHQL
M6Q[T.97N#B5B$>,AKHT7 CY3L2[@*%I@[M22"\4F%06+\L:QOR@Q5@T6I?9@
M05IK@+&K7CO/8S%V< V7*#WWHE+#618VJ0;N%S<%SW+*3S=1+TY.WYYU?GIY
MSM@+?S(/Q' 40LDN0^W9LPWX*;!&UAA^M(+ @#VLEU6_1'Z2!R@8FO&<-B*N
MZ <6+ANT)PDXNL<?A%=6P%LP]Z?*&5A?"ZSH17\:ZA+;<TP_8&/?(;=@PU39
M1OF67$&0EH!V.*53*Q%*[@Z,1.JS]IM.5^VITJWD2M*[]_K\Y<D98QGIX7G?
M=X:[H9A>1IN-G=BHK$:U["O.)TGY/K(FDSEC%Q?MX_V+"YSDT!\V(3E J<Q@
M!?<J\<QJ#ZOL95;_;M(I9[W:;&PT&U6 81\G1]J.)T*!ZV40C<'=U4.?_\1G
M=*B P8</<__3J#66SG]JM?6M_/SG?W'^DSFCO>=$(SH*UN=#_^4!T>+I$"W1
M-K*!@L-Q:T:5L)/LF%<71%JM+!^R%*CD7OGUYQ;!D^7G/W_B_&<9_V?MO?VC
M]E>__[G__G=K:^G^?ZO1R.]_'N1ABPF?UF9<A_FU-9ZX''#AG;J$#2O,%$NT
MWYNXELTI\A8@RG")OA)8 =C6G5L?BMMED% @(H15 4:O$-\^*2;"PRW7. YO
M&GMGOC\H1^"Y?C'H96%=SQ8J+"E40-4ID\ ?!LCAF]<IIRZW)!5]E".1R1SZ
MTZ$TY70XQ*H5"P!)1ONR#HQ]=?P?[1UW#MK=\Z^-_\W[_O]GJ[:,_XV-C1S_
M#_$DY>I2(F!Q(+#,?P0QO3JP4(8LQ_]? O\Y O(G?_+]7W[_G]__Y_?_^?U_
M?O^?W__G]__Y_7]^_Y_?_^?W__G]?W[_G]__Y_?_^?U_?O^?W__G]_]_O?.?
*?P.LNTG8 $ ']^
end
--%<----%<----%<----%<----%<----%<----%<----%<----%<----%<----%<--
--
.-----------------------------------------------------------.
//// | Graham Barr Email: bodg@tiuk.ti.com | \\\\
| 00 | VLSI Cell Designer or: bodg@ti.com | 00 |
O ^ | MOS Design TI MSG: BODG | ^ O
\ ~/ | Texas Instruments Ltd Phone: +44 (0)1604 66 3419 | \~ /
| ENGLAND Fax: +44 (0)1604 66 3456 |
`-----------------------------------------------------------'
I have come up with which attempts to find the current host's internet
FQDN.
It provides 3 functions :-
domainname() Identify and return the FQDN of the current host.
hostname() Returns the smallest part of the FQDN which can be used to identify the host.
hostdomain() Returns the remainder of the FQDN after the I<hostname> has been removed
Regards,
Graham.
--%<----%<----%<----%<----%<----%<----%<----%<----%<----%<----%<--
begin 660 Sys-Domain-1.01.tar.gz
M'XL("!NN2C " U-Y<RU$;VUA:6XM,2XP,2YT87( [5I[<]LV$N^_P:?8DYQ:
M2F12#S\N4NS:C>5&$[_.<M+FHM2A2$A"39$*0<G6.>YGOUV +\F)>]=)?#<=
M<D:6""P6^_HM%H"[<[FV[X\MX:W5C&K-_.X;/ "PM54%^MY8WU#?M49#?4=/
M%6"S6J]OU+>JC3J^;ZY7J]_!=_GSS9_NDO^/K$L^$"XW3@^_IO_1H5_V_V:U
MD?%_#7NKZ[7UW/\/\4PEA_9U^#H4KFPVR?OT"5HLX!^G(N!0,$P='\9D7&@Q
MQGX.1,CC,"FQ1]J';]IGW<[),?[:W@$,JF93CVHVW_! "M\KE2LQ[?'>45O_
M0MK5#/%J0M)]U3E-2-Y]O"K)T J%#<[<L\;"+K]/*%<=(</5B/+FQ<G1Z5F[
MVR7&PW^)":P]&R!7N.?IOCXXZ/RRO8/TJQ5@CQX1X]N4ORN\2WZ-4Q#_P\[Q
MJ_.WIVTE^6J6S':YY:U&8AQT#MM=^E5X8O2M2WCR&)X8HW#L%FX792FC1?^O
M\!_*\)OD_XU[\-]8QC]LU;8V<_P_Q%/\FSF5@>GZMN6:?>&9$QZXL';%&&4&
M5_0!P6>8??R%L4IM&;Q2W\B7(6*2@Z.:U$]JTZ\XII@,>AF18LQ/ N&%$(_%
MW%#H>9A=='/*::DCY9MTX)/C_ROB/\GU#X?_+2H.%NJ_6K6^7L_Q_R#X1RQ:
M]J4U7 !V2\/_A15,TDJ@?3WQ@Y!J@]U.=P^V"?UQ&\;Q;ON7TY.S\XN35[KK
M#Q,#6XF+AFV0"N"#4N&Q8SRNUIU"!3ZNG/&9H-*A"36C!BNP_3N8I9[SM-PS
MU)>)3.2T#U&% 3>0<+QE;'O$+:>FB@W&LDEK#?;"D(\G(80^\)GE3JV00SCB
M8$^#@$=Y9E4"2L0#CX>@9+<\)U(EX=U]>WQRVNUT&8+ZSZ3&F,]^N_OBK'-Z
MCI(S]EH*;P@S*Q#^5,*8AR/?D?#C<TL+O4-2#P0*0Q(?_&/_&/S!'>D-. C\
M,0M'0J;$B3Q6ID$+8Z L]C1$GU ;.F3J.7S08BNZ.],P^.AD7EF1%>$\F*,=
M.?ZU?<_F8F;U70Y7UIQ$'?(TSQM(S)3++A)9;K"M/X=]:R8<Z");&:+DF!8D
M_=ZUI+!#C@I)VPB%8:-214H:Y_S:DM#QD'HZ1JTE^J 860MJZ.,K5-,-T+QS
MN/3\*Q"H' 0\G 8>:"7%H(0Z"(\[.NH$<DO*H(P\YE[.@LNH!&G 1\P-&^#J![
M;([LP)KY CT3HGU"<MDD\%'OL60JJ% Q4!^(\:6!A0U):1WQ-R:C G70VC">
MPTHXGJ"%"[UJ :YA<Z,%Q2+-[_H6SHX#K )8T>5(B:E[W6YW7W;O1B2"MJ^
M%<6N@FS*L+T-U3+\H"=HQBXDK&3T;J#>:%,9SL%WG31FT/)CC!L&GSZE^L5"
M?$ABO0SU'=/A,].;NNX'%!WZ$BOTT?(TZ]J\;U"*#'<HC2EJ@JEG(R;+7YA,
M#UGSEJ<J*H[Q9)"9;8- /_%=UR=#KG7/:M7/\R[)B2O"DOFNV3/@O5GY8*)D
M)G5^J&R6R^^J[[7!/CNX0%Z\;>F9 S[V9QR&5M GY[.8ZG>0YKM>M1?TO/=/
M37/86N@I]?9ZQM-/^.G]LWRGMV=@!_XU*5)5>XO=9@ 5@?6&#%VD3QSP8LP=
M@19UYQCU!(V1-4OQ,?"G44)($U5+L4@1$['.8B9-8_%L!R) 4:-$58'?,(K0
MF?/%Q(,^PGZ@F)71)!3TD0W3DK!%[26:I;(B<<M9V:4^2>VJ6BVM7*BY=3/Y
M3O&H%%0O_2RH_JGG<BFC7K6&H '+Y+?$@4H7BJQ,HEZ(+0(G_9EZ<B0&84G/
M68&"8FK0\$*93*OD!0^Q39/KF!_X:&9[!-&H,JY3Q>P21/*&.I7C%&AAI2XI
M%.&X/U<607TI )41<;5T^+6FK!0,G'R'L*V4*=*&/K#LN)"& 274B+V64*=T
M-;H<A=;>NU][QONG:!LS2E)9QT?IZ3;U-?G5]?U+RGS(S>2A;09<^NX,D[0W
MB#RK? %/L"0G5Z!N_H1[)7RM%)9'%,I:_JL1G2L\1YJ=2"$<AO+UY!,M2T\^
M+?6ZM/SK;LAH5%.R@VL1-$"G5/K8KB\YS:M"XC^*ZJRRAZ@H^1&X-Q.![]&*
MHY9H6ND^CQ04IGW\YF;_Y&BO<WR[,$6F78F3#-&Y 3-#KYKDAFS?Y[)#MC_)
M#\,,6Y4B5*%17]A9,=9Q4 TQF.N(TN+?6U3$10(EG Q4;C+:J_(@JRPU*"TO
M%J!]D=W+M70.4/B@'11$61@UJ21KLZ)(C+M D?J,:)0(Q*64S4W['(NY,<JD
MX:#G^C[A&.N=9J3=$;+8U4F6'9Z<G#99%)N[(QUY2B B2C$2$3A1:*:K^6\^
M*HI Q2Q6P>Y6%-?+$$=B!?(XM'>C<JN4&09Q#4;4:;P#R9@$/:A$A:)ED(OS
M*7[EA54K(J0.G>)"X=Z12_D@(Y@>;.":9Q3 6.9! J0X2%37!!I:P%W)%2]5
MAL2K6?*:FC1JB'B3'M'O-*S3R&+L3 6B5 Z58UQDL'C$$BP(XXA6T8U^PHQL
M6Q[T.97N#B5B$>,AKHT7 CY3L2[@*%I@[M22"\4F%06+\L:QOR@Q5@T6I?9@
M05IK@+&K7CO/8S%V< V7*#WWHE+#618VJ0;N%S<%SW+*3S=1+TY.WYYU?GIY
MSM@+?S(/Q' 40LDN0^W9LPWX*;!&UAA^M(+ @#VLEU6_1'Z2!R@8FO&<-B*N
MZ <6+ANT)PDXNL<?A%=6P%LP]Z?*&5A?"ZSH17\:ZA+;<TP_8&/?(;=@PU39
M1OF67$&0EH!V.*53*Q%*[@Z,1.JS]IM.5^VITJWD2M*[]_K\Y<D98QGIX7G?
M=X:[H9A>1IN-G=BHK$:U["O.)TGY/K(FDSEC%Q?MX_V+"YSDT!\V(3E J<Q@
M!?<J\<QJ#ZOL95;_;M(I9[W:;&PT&U6 81\G1]J.)T*!ZV40C<'=U4.?_\1G
M=*B P8</<__3J#66SG]JM?6M_/SG?W'^DSFCO>=$(SH*UN=#_^4!T>+I$"W1
M-K*!@L-Q:T:5L)/LF%<71%JM+!^R%*CD7OGUYQ;!D^7G/W_B_&<9_V?MO?VC
M]E>__[G__G=K:^G^?ZO1R.]_'N1ABPF?UF9<A_FU-9ZX''#AG;J$#2O,%$NT
MWYNXELTI\A8@RG")OA)8 =C6G5L?BMMED% @(H15 4:O$-\^*2;"PRW7. YO
M&GMGOC\H1^"Y?C'H96%=SQ8J+"E40-4ID\ ?!LCAF]<IIRZW)!5]E".1R1SZ
MTZ$TY70XQ*H5"P!)1ONR#HQ]=?P?[1UW#MK=\Z^-_\W[_O]GJ[:,_XV-C1S_
M#_$DY>I2(F!Q(+#,?P0QO3JP4(8LQ_]? O\Y O(G?_+]7W[_G]__Y_?_^?U_
M?O^?W__G]__Y_7]^_Y_?_^?W__G]?W[_G]__Y_?_^?U_?O^?W__G]_]_O?.?
*?P.LNTG8 $ ']^
end
--%<----%<----%<----%<----%<----%<----%<----%<----%<----%<----%<--
--
.-----------------------------------------------------------.
//// | Graham Barr Email: bodg@tiuk.ti.com | \\\\
| 00 | VLSI Cell Designer or: bodg@ti.com | 00 |
O ^ | MOS Design TI MSG: BODG | ^ O
\ ~/ | Texas Instruments Ltd Phone: +44 (0)1604 66 3419 | \~ /
| ENGLAND Fax: +44 (0)1604 66 3456 |
`-----------------------------------------------------------'