# print-lib.pl
# Common functions

sub print_tta3tier
{
   local (@tta3tier) = @_;
   print "<tr><p> -------------------------</p<</tr>\n";   
   print "<tr><p>origin=".$tta3tier->{origin}." </p></tr>\n"; 
   print "<tr><p>target=".$tta3tier->{target}." </p></tr>\n";
   print "<tr><p>oudn=".$tta3tier->{oudn}." </p></tr>\n"; 
   print "<tr><p>action=".$tta3tier->{action}." </p></tr>\n"; 
   print "<tr><p>objtype=".$tta3tier->{objetype}." </p></tr>\n";
   print "<tr><p>login=".$tta3tier->{login}." </p></tr>\n";
   print "<tr><p>password=".$tta3tier->{password}." </p></tr>\n";
   print "<tr><p>title=".$tta3tier->{title}." </p></tr>\n";
   print "<tr><p>stringcmd=".$tta3tier->{stringcmd}." </p></tr>\n";
   print "<tr><p>domain=".$tta3tier->{domain}." </p></tr>\n";
   print "<tr><p>appkey1=".$tta3tier->{appkey1}." </p></tr>\n"; 
   print "<tr><p>appkey2=".$tta3tier->{appkey2}." </p></tr>\n"; 
   print "<tr><p>appkey3=".$tta3tier->{appkey3}." </p></tr>\n"; 
   print "<tr><p>appkey4=".$tta3tier->{appkey4}." </p></tr>\n"; 
   print "<tr><p>appkey5=".$tta3tier->{appkey5}." </p></tr>\n"; 
   print "<tr><p>appkey6=".$tta3tier->{appkey6}." </p></tr>\n"; 
}

sub print_emulses
{
 print DebugLog "----------- SCANED PARAMS --------------------\n";
   print DebugLog " Usuario ($userType):       $NameUser\n";
   print DebugLog " Organization:      $OuName\n";
   print DebugLog " Aplicacion:       $NameApp \n";
   print DebugLog " Grupo Aplicacion:    $NameAppGrp \n";
   print DebugLog " Host:          $NameHost \n";
   print DebugLog " Grupo Hosts:       $NameHostGrp \n";
   print DebugLog " Domain:       $NameDomain \n";
   print DebugLog "----------------------------------------------\n";
}
1;  # Return true
