$pname = $matches[1];
if (cse($pname, ".vm")) {
$pclass = "vps";
}
/*
if (!csa($matches[1], "-")) {
$pclass = "client";
$pname = $matches[1];
} else {
$pp = explode("-", $matches[1]);
$pclass = $pp[0];
$pname = $pp[1];
}
*/
$pobject = new $pclass(null, null, $pname);
$pobject->get();
$tick = new Ticket(null, null, $ticketid);
$tick->get();
$param['state'] = 'open';
$param['text_reason'] = $message;
$param['pobject'] = $pobject;
$param['made_by'] = createClName($pclass, $pname);
$param['from_ad'] = $email->from;
$param = tickethistory::add($tick, 'tickethistory', $param);
$newob = new TicketHistory(null, null, $param['nname']);
$newob->ddate = time();
$tick->unread_flag = 'dull';
$newob->parent_clname = $tick->getClName();
$newob->create($param);
$newob->write();
$tick->write();
