profile.cgi

非常优秀的一套办公系统

sub uinfo{
my $l_uid = shift;
my $l_uinfo=&readuserfile($l_uid);
($uid,$upass,$uname,$usex,$ucontact,$uclass,$ulevel,$ustats,$uxx22,$uxx23,$uxx24,$uxx25,$uxx26,$uxx27,$ut1,$ut2,$ut3,$ut4,$uend)= split (/\‖/,$l_uinfo);
return 1;
}
sub oinfo{
my $l_oid = shift;
my $l_oinfo=&readuserfile($l_oid);
&getoinfo($l_oinfo);
sub getoinfo {
my $getodb=shift;
($oid,$opass,$oname,$osex,$ocontact,$oclass,$olevel,$ostats,$oxx22,$oxx23,$oxx24,$oxx25,$oxx26,$oxx27,$ot1,$ot2,$ot3,$ot4,$oend)= split (/\‖/,$getodb);
}
return $l_oinfo;
}