Untitled

sub wasCrosssale
{
   my($user,$smdf,$servid)=@_;
   my($q,$sth,$ptype,$prog,$result,$act,$pkg)='';
   $q="select act,pkg,left(usa,2) from info where user='$user' && smdf='$smdf' && servid='$servid' limit 1";
   print "[ $q ]\n";
   $sth=$sign->prepare($q);
   if(!$sth->execute()) { print "(!) Error: $DBI::errstr\n"; }
   else
   {
      while(($act,$pkg,$ptype)=$sth->fetchrow_array())
      {
         $result=isCross($act,$pkg);
         $prog=getProg($act);
         $ptype=getPtype($ptype);
         $act=getAct($act);
         print "wasCross(1) $act, $prog, $ptype\n";
      }
      $sth->finish();
   }
   print "wasCross(2) $act, $prog, $ptype\n";
   return ($result,$act,$prog,$ptype);
}