Hello,
Can any one show me how, Transfer ticket option select the email addresses of operators. I think below is the code used.May be wrong.
If possible can any one explain the below code.
sub transfernotice {
my $cfg = $_[0]->{cfg};
my $ticket = $_[0]->{ticket};
my $o = $cfg->get('_USER');
return if $o eq undef;
my $u = TTXUser->new($ticket->{oper});
return if $u eq undef || $u->{email} eq undef;
my $quicklink;
if ($cfg->get('quicklink')) {
$quicklink = '&o='.$ticket->{oper};
my $salt = $ticket->{id} % 100;
$salt = "0$salt" if $salt < 10;
my $p = crypt($u->{passwd}.$ticket->{id}, $salt);
$p =~ s/^\d\d//;
$quicklink .= "&p=$p";
}
TTXMail::sendmail(
{
to => $u->{email},
from => "\"".company($cfg, $ticket)."\" <".$cfg->get('email').">",
subject => TTXDictionary::translate('Ticket transfer notice'),
msg => '[b]'.TTXDictionary::translate('Ticket ID').':[/b] '.$ticket->{id}."\n".
'[b]'.TTXDictionary::translate('Subject').':[/b] '.$ticket->{subject}."\n".
'[b]'.TTXDictionary::translate('Transferred by').':[/b] '.$o->{fname}.' '.$o->{lname}.' ('.$o->{login}.") \n".
'[b]'.TTXDictionary::translate('Access link').':[/b] '.
'[url http://'.$ENV{HTTP_HOST}.$ENV{SCRIPT_NAME}.'?cmd=helpdesk&tk='.$ticket->{key}.$quicklink.']'.
TTXDictionary::translate('Ticket').' '.$ticket->{id}.'[/url]'."\n\n"
}
);
}
