#!/usr/bin/perl
sub lobj_ous
                                    'alias' => $lin[0],
                                    'name' => $lin[1],
				    'obj' => $lin[2], 
                                    'ens' => $lin[3], 
				    'maxsess' => $lin[4], 
				    'descrip' => $lin[5]
                                     };
}

sub lobj_apps
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'grpalias' => $lin[2], 
				    'obj' => $lin[3], 'ens' => $lin[4], 
				    'maxsess' => $lin[5], 
				    'descrip' => $lin[6] 
				    };
}

sub lobj_grpapps
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'obj' => $lin[2], 'ens' => $lin[3], 
				    'maxsess' => $lin[4], 
				    'descrip' => $lin[5]
				    };
}

sub lobj_domains
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'obj' => $lin[2], 'ens' => $lin[3], 
				    'maxsess' => $lin[4], 
				    'descrip' => $lin[5] 
}

sub lobj_grphosts
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'obj' => $lin[2], 'ens' => $lin[3], 
				    'maxsess' => $lin[4], 
				    'descrip' => $lin[5] 
				    };
}

sub lobj_hosts
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'grpalias' => $lin[2], 
				    'obj' => $lin[3], 'ens' => $lin[4], 
				    'ipname' => $lin[5], 
				    'maxsess' => $lin[6], 
				    'portalive' => $lin[7], 
				    'descrip' => $lin[8] 
				    };
}

sub lobj_hostsuser
{
			$rv{$lin[$pos]} = {
			            'username' => $lin[0],'passwd' => $lin[1],
				    'name' => $lin[2]
				    };
}

sub lobj_profcache
{
			            'alias' => $lin[0],'name' => $lin[1],
				    'hostusername' => $lin[2],
				    'hostname' => $lin[3],
				    'grphost' => $lin[4],
				    'username' => $lin[5],
				    'ou' => $lin[6]
				    };
}

sub lobj_actions
{
			                  'alias' => $lin[0],'name' => $lin[1],
			                  'target' => $lin[2],
			      	          'object' => $lin[3],
				          'condition' => $lin[4],
				          'conditionValue' => $lin[5],
				          'action' => $lin[6],
				          'script' => $lin[7],
				          'when' => $lin[8],
				          'how' => $lin[9]
				    };
}

sub lobj_links
{
			            'alias' => $lin[0],	'name' => $lin[1],
				    'obj' => $lin[2]
				    };
}

# lobj_webtops()
			            'alias' => $lin[0],	'name' => $lin[1],
				    'obj' => $lin[2]
}

sub load_ttaobj
{
			                'property' => $lin[0],
				    'value' => $lin[1]
				    };
}

sub load_scriptlist
{
                        	                     'desc' => $title,
                                    	             'name' => $d
				                     };
}

sub lobj_files
{
                                'perm' => $f_perm , 'lsnum' => $f_lsnum,
                                'owner' => $f_owner, 'group' => $f_group,
                                'size' => $f_size, 'month' => $f_month,
                                'day' => $f_day, 'time' => $f_time,
                                'name' => $f_name
				    };
}
sub lobj_countsess
{
                                    'numsess' => $lin[0], 
                                    'descrip' => $lin[1] ,
                                    'name' => $lin[2] ,
                                    'objalias' => $lin[3] ,
                                    'alias' => $lin[4] ,
                                    'maxsess' => $lin[5] ,
                                    'objgrpalias' => $lin[6] ,
                                    'grpalias' => $lin[7] 
				    };
}

sub lobj_emulses
{
			                 'property' => $lin[0],
				         'value' => $lin[1]
				         };
}
1;  # Return true
