26 lines
1.1 KiB
Plaintext
Executable File
26 lines
1.1 KiB
Plaintext
Executable File
$ensObj=$host->{'ens'};
|
|
$dnObj=$host->{'obj'};
|
|
$grpObj=$hosts->{'grpalias'};
|
|
$portAlive=$hosts->{'portalive'};
|
|
if ( $ensObj eq "" ) {
|
|
$ensObj=$h_grphosts{$grpObj}->{'ens'}."/cn=".$hosts->{'name'};
|
|
}
|
|
if ( $dnObj eq "" ) {
|
|
$dnObj="ou=".$hosts->{'name'}.",".$h_grphosts{$grpObj}->{'obj'};
|
|
}
|
|
if ( $portAlive eq "" ) {
|
|
$portAlive="22";
|
|
}
|
|
# $lin_hosts=$hosts->{'alias'}."::".$hosts->{'name'}."::".
|
|
# $hosts->{'grpalias'}."::".$hosts->{'obj'}."::".
|
|
# $hosts->{'ens'}."::".$hosts->{'ipname'}."::".
|
|
# $hosts->{'maxsess'}."::".$hosts->{'portalive'}."::".
|
|
# $hosts->{'descrip'}."::\n";
|
|
|
|
$lin_hosts=$hosts->{'alias'}."::".$hosts->{'name'}."::".
|
|
$hosts->{'grpalias'}."::".$dnObj."::".
|
|
$ensObj."::".$hosts->{'ipname'}."::".
|
|
$hosts->{'maxsess'}."::".$portAlive."::".
|
|
$hosts->{'descrip'}."::\n";
|
|
print FILEHOSTS "$lin_hosts";
|