walterw
19-08-04, 09:36 AM
Hi,
I have modified gateway.perl since it was behaving strangely on my system. It would not add comments to a ticket, but create a new one. I have fixed that with some small changes. The original parts are left in, but commented out.
#!/usr/bin/perl
# You may have to edit the above line to reflect your system
# E.g. the typical UNIX/Linux system will require #!/usr/bin/perl
# $Id: gateway.pl,v 1.20 2004/07/14 22:34:11 ajdonnison Exp $ #
# send email report upon receipt (1 = yes, 0 = no)
$send_email_report = 0;
# Send aknowlegment back to lodger (1 = yes, 0 = no)
$send_acknowledge = 1;
# Save attachments as files in project 0 (1 = yes, 0 = no, just mark them as removed)
$save_attachments = 1;
# Skip non-MIME component of MIME emails (usually a warning about non-MIME compliant readers)
# Deprecated - leave at 0 unless you know what you are doing!
$skip_mime_preface = 0;
# NOTE: Email addresses should escape the @ symbol as it is
# a PERL array identifier and will cause this script to break.
# Alternatively change the double quotes to single quotes, which
# also escapes the string.
# NOTE 2: If your dotProject PHP environment is correctly set up
# you don't need to add the @ and domain, it will get it from
# dPconfig[site_domain] key.
# address to send report to
$report_to_address = "walterw\@andrew.cmu.edu";
# report from address
$report_from_address = "support";
# location of sendmail
$mailprog = "/usr/sbin/sendmail";
# debugging - if set it will report what it finds, but will not add anything
# to the database
$debug = 0;
######################## </CONFIGURATION SECTION> ##############################
## First phase, check to see we can configure ourselves based upon
## the PHP environment.
die ("Gateway.pl requires the full path to the dotproject config.php file as its only argument") if ($#ARGV != 0);
%config = ();
&check_config($ARGV[0]);
# Shortcuts for the email code
$app_root = $config{'base_url'};
$dp_root = $config{'root_dir'};
# If no domain portion, add the domain from the configuration file.
if ( $report_to_address !~ /\@/ ) {
$report_to_address .= '@' . $config{'site_domain'};
}
if ( $report_from_address !~ /\@/ ) {
$report_from_address .= '@' . $config{'site_domain'};
}
# database bindings
use DBI;
# read in message
while (<STDIN>) {
push @message, $_;
}
# main program
$new_ticket = 'false';
&get_headers();
$attach_count = 0;
$mime_alternative = 0;
&check_attachments($attachment_info, $first_message_line, $#message);
&get_body();
&insert_message();
&insert_attachments() if ($save_attachments);
&mail_report() if ($send_email_report && $new_ticket eq 'true');
&mail_acknowledgement if ($send_acknowledge && $new_ticket eq 'true');
exit();
################################################## ##############################
sub check_config() {
$dp_conf = $_[0];
open (PHPCONFIG, "<$dp_conf")
or die ("Cannot find dotProject configuration file!");
while (<PHPCONFIG>) {
if (/^\s*\$dpconfig\[/i) {
s/\s*;.*$//;
# Now split the conf line up.
@confs = split /\s*=\s*/;
# First part is the name
$confs[0] =~ s/^.*\[['"](.*)['"]\]/$1/;
$confs[1] =~ s/['"\r\n]//g;
# add to the config array
$config{$confs[0]} = $confs[1];
}
}
}
sub get_headers {
# read in headers
# First pass, fix up split headers.
$first_message_line = 0;
foreach (@message) {
last if (/^\s$/ || /^$/);
if (/^[\s\t]+/) {
$last_hdr = pop @headers;
$last_hdr =~ s/[\s\t]*$//;
s/[\s\t]*//;
$last_hdr .= " " . $_;
push @headers, $last_hdr;
} else {
push @headers, $_;
}
$first_message_line++;
}
# Second pass, split out the required headers
$attachment = 0;
foreach (@headers) {
if (/content-type:\s+multipart/i) {
$attachment_info = $_;
if ($save_attachments) {
$attachment = 2;
} else {
$attachment = 1;
}
}
$_ =~ s/:\s/:/g;
if (/:/) {
@vars = split(':', $_, 2);
if (@vars) {
chop($header{$vars[0]} = $vars[1]);
}
}
}
# strip out Re:'s in subject
$header{'Subject'} =~ s/\s*Re:\s*//gi;
# put a nice Re: back in
$header{'Subject'} =~ s/(\[\#\d+\])(.*)/$1 Re: $2/;
# initialize Cc: header
$header{'Cc'} = "" if (!$header{'Cc'});
# Allow the use of Reply-To to insert tickets on behalf of another
if ($header{'Reply-To'}) {
$header{'From'} = $header{'Reply-To'};
}
# fix quoting in email headers
$header{'From'} =~ s/"/\"/g;
$header{'Cc'} =~ s/"/\"/g;
# determine ticket number
$parent = $header{'Subject'};
if ($parent =~ /\[\#(\d+)\]/) {
$parent =~ s/.*\[\#(\d+)\].*/$1/;
}
else {
$parent = 0;
}
if ($debug) {
print "parent=$parent\n";
print "attachments=$attachment\n";
print "\nHeaders:\n";
while (($key, $val) = each(%header)) {
print "$key: $val\n";
}
}
}
sub mail_error() {
my $msg = $_[0];
open(MAIL, "|$mailprog -t");
print MAIL "From: $report_from_address\n";
print MAIL "To: $report_to_address\n";
print MAIL "Subject: Error in processing ticket mail\n\n";
print MAIL "An error occurred in processing a ticket mail.\n";
print MAIL "The error message was:\n";
print MAIL "$msg\n";
print MAIL "\nMessage Headers:\n";
while (($key, $val) = each(%header)) {
print MAIL " $key: $val\n";
}
close(MAIL);
die($msg);
}
################################################## ##############################
sub check_attachments($) {
my $att = $_[0];
my $offset = $_[1];
my $end = $_[2];
my $ctype = "";
my $boundary = "";
my $subtype = "";
my %option = ();
my $i;
# check for attachment
return if (!$att);
# determine attachment delimiter
($ctype, $subtype, $options) = ($att =~ m/content-type:\s*([_a-z0-9]+)\/([_a-z0-9]+);?\s(.*)$/i);
# split the options out
while ($options =~ m/([_a-z0-9]+)=["']?([^;"']+)["';]?/g) {
$name = $1;
$name =~ tr/A-Z/a-z/;
$option{$name} = $2;
if ($debug) {
print "option[$name] = $2\n";
}
}
$boundary = $option{'boundary'};
if ($debug) {
print "\nAttachment Info\n";
print "Original MIME content header is $att\n";
print "Content type is $ctype\n";
print "Subtype is $subtype\n";
print "Boundary is $boundary\n";
print "Option list is $options\n";
print "Checking from $offset to $end\n";
}
# The subtype should let us know if we are
return if (!$boundary);
if ($subtype =~ /alternative/i) {
$mime_alternative = 1;
}
# pull out attachments
my $in_attach_hdrs = 0;
for ($i = $offset; $i <= $end; $i++) {
if ($message[$i] =~ /--$boundary/) {
if ($debug) {
print "$attach_count attachment boundary $boundary found at line $i\n";
}
$in_attach_hdrs = 1;
$boundary_lines[$attach_count] = $i;
$attach_disposition[$attach_count] = "";
$attach_type[$attach_count] = "text/plain";
$attach_encoding[$attach_count] = "7bit";
$attach_realname[$attach_count] = "";
$attach_content_header[$attach_count] = "content-type: text/plain";
if ($attach_count > 0 && ! $boundary_end[$attach_count]) {
$boundary_end[$attach_count] = $i-1;
}
$attach_count += 1;
} else {
if ($in_attach_hdrs) {
if ($message[$i] =~ /^\s*$/) {
$boundary_lines[$attach_count-1] = $i;
# push @boundary_end, $last;
$in_attach_hdrs = 0;
} else {
# In the header section, find the details
@attach_hdr = split(/[:;]/, $message[$i]);
if ($attach_hdr[0] =~ m/content-disposition/i) {
$attach_disposition[$attach_count-1] = $attach_hdr[1];
}
if ($attach_hdr[0] =~ m/content-type/i) {
$attach_type[$attach_count-1] = $attach_hdr[1];
$attach_content_header[$attach_count-1] = $message[$i];
}
if ($attach_hdr[0] =~ m/boundary/i) {
$attach_content_header[$attach_count-1] .= "; " . $attach_hdr[0];
}
if ($attach_hdr[0] =~ m/content-transfer-encoding/i) {
$attach_encoding[$attach_count-1] = $attach_hdr[1];
}
if ($message[$i] =~ m/name=/i) {
($x, $f) = split(/"/, $message[$i]);
$x = "";
$attach_realname[$attach_count-1] = $f;
}
}
}
}
}
$boundary_end[$attach_count] = $end;
# push @boundary_end, $end;
}
################################################## ##############################
sub get_body {
my $i;
my $body_lines = 0;
if ($debug) {
print "Attachcount=$attach_count\n";
}
# read in message body
if (!$attachment_info) {
for ($i = $first_message_line + 1; $i <= $#message; $i++) {
$body .= $message[$i];
$body_lines += 1;
}
}
else {
# Check that the attachments are not in themselves multipart
for ($i = 0; $i < $attach_count; $i++) {
if ($attach_type[$i] =~ /multipart\//i) {
&check_attachments($attach_content_header[$i], $boundary_lines[$i], $boundary_end[$i+1]);
}
}
#$boundary_end[$attach_count] = $#message;
# Look for the attachment that doesn't have a disposition
if ($skip_mime_preface) {
$i = 1;
} else {
$i = 0;
}
for (; $i < $attach_count; $i++) {
if ($debug) {
print "$i: mimealt=$mime_alternative, type=$attach_type[$i], disp=$attach_disposition[$i] name=$attach_realname[$i] start=$boundary_lines[$i], end=$boundary_end[$i+1]\n";
}
if ( ($mime_alternative == 1 && $attach_type[$i] =~ /text\/plain/i) || ($mime_alternative == 0 && $attach_type[$i] =~ /text\//i && $attach_disposition[$i] =~ /^$/ )) {
if ($debug) {
print "Found suitable body text in attachment $i\n";
}
for ($j = $boundary_lines[$i] + 1; $j < $boundary_end[$i+1]; $j++) {
$body .= $message[$j];
$body_lines += 1;
}
# Fix for RFC2046 compliance.
if (($i+1) < $attach_count && $message[$j] !~ /^\s*$/) {
$body .= $message[$j];
$body_lines += 1;
}
}
}
}
if (! $body_lines) {
&mail_error("No suituable body text found in email");
}
$body =~ s/^\n//;
$body =~ s/\r\n$/\n/;
if ($debug) {
print "\nBody:\n";
print $body;
}
}
################################################## ##############################
sub insert_message {
if ($debug) {
print "insert_message not run, parent = $parent\n";
print "author=" . $header{'From'} . "\n";
print "subject=" . $header{'Subject'} . "\n";
print "cc=" . $header{'Cc'} . "\n";
$author = $header{'From'};
$subject = $header{'Subject'};
$cc = $header{'Cc'};
return;
}
# connect to database
$dbh = DBI->connect("DBI:mysql:$config{'dbname'}:$config{'dbhost'}", $config{'dbuser'}, $config{'dbpass'});
# update parent activity
if ($parent) {
$activity_query = "UPDATE tickets SET type = 'Open', activity = UNIX_TIMESTAMP() WHERE ticket = '$parent'";
$sth = $dbh->prepare($activity_query);
$sth->execute();
$sth->finish();
$type = "Client Followup";
$assignment = "9999";
}
else {
$type = "Open";
$assignment = "0";
$new_ticket = 'true';
}
# quote all fields
$db_parent = $dbh->quote($parent);
$attachment = $dbh->quote($attachment);
$author = $dbh->quote($header{'From'});
$subject = $dbh->quote($header{'Subject'});
$body = $dbh->quote($body);
$type = $dbh->quote($type);
$cc = $dbh->quote($header{'Cc'});
$assignment = $dbh->quote($assignment);
# do insertion
$insert_query = "INSERT INTO tickets (parent, attachment, timestamp, author, subject, body, type, cc, assignment) ";
$insert_query .= "VALUES ($db_parent, $attachment, UNIX_TIMESTAMP(), $author, $subject, $body, $type, $cc, $assignment)";
$sth = $dbh->prepare($insert_query);
$sth->execute();
#$ticket = $sth->{'mysql_insertid'};
if ($new_ticket eq 'true')
{
$parent = $sth->{'mysql_insertid'};
}
$sth->finish();
$dbh->disconnect();
}
sub insert_attachments {
return if (!$attachment_info);
$dbh = DBI->connect("DBI:mysql:$config{'dbname'}:$config{'dbhost'}", $config{'dbuser'}, $config{'dbpass'});
if ($skip_mime_preface) {
$i = 1;
} else {
$i = 0;
}
for ($i = 0; $i < $attach_count; $i++) {
if ( ( $mime_alternative == 0 && $attach_disposition[$i] !~ /^$/) || ($mime_alternative == 1 && $attach_type[$i] !~ /text\/plain/i && $attach_type[$i] !~ /multipart/i) ) {
insert_attachment($i, $dbh);
}
}
$dbh->disconnect();
}
sub insert_attachment($) {
$att = $_[0];
$dbh = $_[1];
if ($debug) {
print "insert_attachment called with att=$att, dbh=$dbh\n";
return;
}
# Check that we can write to the required directory and that we know who the
# web owner is.
$files_dir = $dp_root . "/files";
$file_repository = $files_dir . "/0";
@st = stat $files_dir
or die ("Cannot find file repository");
$web_owner = $st[4];
# If the repository doesn't exist, create it.
stat $file_repository
or mkdir $file_repository, 0777;
# Extract the file using mimencode if necessary.
$fid = sprintf("%x_%d", time(), $att);
# If content encoding is not 7bit, try and determine what it is
$fname = $file_repository . "/" . $fid;
$freal = ">";
$freal = "| mimencode -u -o " if ($attach_encoding[$att] =~ m/base64/i);
$freal = "| mimencode -u -q -o " if ($attach_encoding[$att] =~ m/quoted/i);
$fout = $freal . $fname;
open(FH, $fout);
for ($j = $boundary_lines[$att] + 1; $j < $boundary_end[$att+1]; $j++) {
print FH $message[$j];
}
close(FH);
# Determine the files size
open(FH, $fname);
seek FH, 0, 2;
$filesize = tell FH;
close(FH);
# Change ownership to the web server owner - assumes the files directory is correctly owned
chown $fname, $web_owner
or chmod 0666, $fname;
# insert the file as user Admin (id=1), Project = 0
$sql_stmt = "INSERT into files (file_real_filename, file_name, file_type, file_size, file_date, file_description, file_task) values (";
$sql_stmt .= " '" . $fid . "',";
$sql_stmt .= " '" . $attach_realname[$att] . "',";
$sql_stmt .= " '" . $attach_type[$att] . "', ";
$sql_stmt .= sprintf("%d", $filesize);
$sql_stmt .= ", NOW() , ";
#$desc = "File attachment from: " . $header{'From'} . "\nTicket #" . $ticket . "\nSubject: " . $header{'Subject'};
$desc = "File attachment from: " . $header{'From'} . "\nTicket #" . $parent . "\nSubject: " . $header{'Subject'};
$sql_stmt .= $dbh->quote($desc);
$sql_stmt .= ", ";
#$sql_stmt .= $ticket;
$sql_stmt .= $parent;
$sql_stmt .= " )";
$sth = $dbh->prepare($sql_stmt);
$sth->execute() or &mail_error("Failed to insert message in database");
$sth->finish();
}
################################################## ##############################
sub mail_report {
# unquote necessary fields
$author =~ s/^\'(.*)\'$/$1/;
$author =~ s/\\\'/'/g;
$subject =~ s/^\'(.*)\'$/$1/;
$subject =~ s/\\\'/'/g;
# try to strip off \r
$author =~ s/\\r//g;
$subject =~ s/\\r//g;
# remove ticket number
$subject =~ s/\[\#\d+\](.*)/$1/;
$boundary = "_lkqwkASDHASK89271893712893";
# check for possible mail loops
if ( $report_to_address eq $report_from_address
|| $author eq $report_from_address ) {
print("Mail loop detected, not sending report\n");
return;
}
# mail the report
if ($debug) {
print "\nReport Mail:\n";
return;
# open(MAIL, "|cat");
} else {
open(MAIL, "|$mailprog -t");
}
print MAIL "To: $report_to_address\n";
print MAIL "From: $report_from_address\n";
if ($parent) {
print MAIL "Subject: Client followup to trouble ticket #$parent\n";
} else {
#print MAIL "Subject: New support ticket #$ticket\n";
print MAIL "Subject: New support ticket #$parent\n";
}
print MAIL "Content-type: multipart/alternative; boundary=\"$boundary\"\n";
print MAIL "Mime-Version: 1.0\n\n";
print MAIL "--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/plain\n\n";
if ($parent) {
print MAIL "Followup Trouble ticket to ticket #$parent\n\n";
} else {
print MAIL "New Trouble Ticket\n\n";
}
#print MAIL "Ticket ID: $ticket\n";
print MAIL "Ticket ID: $parent\n";
print MAIL "Author : $author\n";
print MAIL "Subject : $subject\n";
#print MAIL "View : $app_root/index.php?m=ticketsmith&a=view&ticket=$ticket\n";
print MAIL "View : $app_root/index.php?m=ticketsmith&a=view&ticket=$parent\n";
print MAIL "\n--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "<style>\n";
print MAIL ".title {\n";
print MAIL " FONT-SIZE: 18pt; SIZE: 18pt;\n";
print MAIL "}\n";
print MAIL ".td {\n";
print MAIL " font: 9pt arial, san-serif;\n";
print MAIL "}\n";
print MAIL "</style>\n";
if ($parent) {
print MAIL "<title>Followup Trouble ticket to ticket #$parent</title>\n";
} else {
print MAIL "<title>New Trouble ticket</title>\n";
}
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "\n";
print MAIL "<TABLE border=0 cellpadding=4 cellspacing=1>\n";
print MAIL " <TR>\n";
print MAIL " <TD nowrap><span class=title>Trouble Ticket Management</span></td>\n";
print MAIL " <TD valign=top align=right width=100%>&nbsp;</td>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "<TABLE width=600 border=0 cellpadding=4 cellspacing=1 bgcolor=#878676>\n";
print MAIL " <TR>\n";
if ($parent) {
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>Followup Ticket Entered</font></TD>\n";
} else {
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>New Ticket Entered</font></TD>\n";
}
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>Ticket ID:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td>$ticket</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>$parent</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Author:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$author</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Subject:</TD>\n";
print MAIL " <TD bgcolor=white><font face=arial,san-serif size=2>$subject</font></TD>";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>View:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td><a href=$app_root/index.php?m=ticketsmith&a=view&ticket=$ticket>$app_root/index.php?m=ticketsmith&a=view&ticket=$ticket</a></TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td><a href=$app_root/index.php?m=ticketsmith&a=view&ticket=$parent>$app_root/index.php?m=ticketsmith&a=view&ticket=$parent</a></TD>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
print MAIL "\n--$boundary--\n";
close(MAIL);
}
################################################## ##############################
sub mail_acknowledgement {
# unquote necessary fields
$author =~ s/^\'(.*)\'$/$1/;
$author =~ s/\\\'/'/g;
$subject =~ s/^\'(.*)\'$/$1/;
$subject =~ s/\\\'/'/g;
# remove ticket number
$subject =~ s/\[\#\d+\](.*)/$1/;
$boundary = "_lkqwkASDHASK89271893712893";
# Check for mail loops.
if ( $author eq $report_to_address || $author eq $report_from_address) {
print("Detected mail loop, not sending acknowledgment\n");
return;
}
# mail the report
if ($debug) {
print "\nAcknowledge Mail:\n";
return;
# open(MAIL, "|cat");
}
else {
open(MAIL, "|$mailprog -t");
}
print MAIL "To: $author\n";
print MAIL "From: $report_from_address\n";
#print MAIL "Subject: [#$parent] Your Support Request\n";
print MAIL "Subject: [#$parent] Your Support Request\n";
print MAIL "Content-type: multipart/alternative; boundary=\"$boundary\"\n";
print MAIL "Mime-Version: 1.0\n\n";
print MAIL "--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/plain\n\n";
print MAIL "This is an acknowledgement that your support request has been logged\n";
print MAIL "by an automated support tracking system. It will be assigned to a\n";
print MAIL "support representative who will be in touch in due course.\n\n";
print MAIL "Details of support request:\n";
#print MAIL "Ticket ID: $ticket\n";
print MAIL "Ticket ID: $parent\n";
print MAIL "Author : $author\n";
print MAIL "Subject : $subject\n";
print MAIL "\n--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "<style>\n";
print MAIL ".title {\n";
print MAIL " FONT-SIZE: 18pt; SIZE: 18pt;\n";
print MAIL "}\n";
print MAIL ".td {\n";
print MAIL " font: 9pt arial, san-serif;\n";
print MAIL "}\n";
print MAIL "</style>\n";
print MAIL "<title>Your Support Request</title>\n";
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "\n";
print MAIL "<TABLE border=0 cellpadding=4 cellspacing=1>\n";
print MAIL " <TR>\n";
print MAIL " <TD nowrap><span class=title>Trouble Ticket Management</span></td>\n";
print MAIL " <TD valign=top align=right width=100%>&nbsp;</td>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "<TABLE width=600 border=0 cellpadding=4 cellspacing=1 bgcolor=#878676>\n";
print MAIL " <TR>\n";
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>New Ticket Entered</font></TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>Ticket ID:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td>$ticket</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>$parent</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Author:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$author</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Subject:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$subject</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>&nbsp;</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>\n";
print MAIL "This is an acknowledgement that your support request has been logged<br />\n";
print MAIL "by an automated support tracking system. It will be assigned to a<br />\n";
print MAIL "support representative who will be in touch in due course.\n";
print MAIL " </font></TD>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
print MAIL "\n--$boundary--\n";
close(MAIL);
}
Thanks,
Walter
I have modified gateway.perl since it was behaving strangely on my system. It would not add comments to a ticket, but create a new one. I have fixed that with some small changes. The original parts are left in, but commented out.
#!/usr/bin/perl
# You may have to edit the above line to reflect your system
# E.g. the typical UNIX/Linux system will require #!/usr/bin/perl
# $Id: gateway.pl,v 1.20 2004/07/14 22:34:11 ajdonnison Exp $ #
# send email report upon receipt (1 = yes, 0 = no)
$send_email_report = 0;
# Send aknowlegment back to lodger (1 = yes, 0 = no)
$send_acknowledge = 1;
# Save attachments as files in project 0 (1 = yes, 0 = no, just mark them as removed)
$save_attachments = 1;
# Skip non-MIME component of MIME emails (usually a warning about non-MIME compliant readers)
# Deprecated - leave at 0 unless you know what you are doing!
$skip_mime_preface = 0;
# NOTE: Email addresses should escape the @ symbol as it is
# a PERL array identifier and will cause this script to break.
# Alternatively change the double quotes to single quotes, which
# also escapes the string.
# NOTE 2: If your dotProject PHP environment is correctly set up
# you don't need to add the @ and domain, it will get it from
# dPconfig[site_domain] key.
# address to send report to
$report_to_address = "walterw\@andrew.cmu.edu";
# report from address
$report_from_address = "support";
# location of sendmail
$mailprog = "/usr/sbin/sendmail";
# debugging - if set it will report what it finds, but will not add anything
# to the database
$debug = 0;
######################## </CONFIGURATION SECTION> ##############################
## First phase, check to see we can configure ourselves based upon
## the PHP environment.
die ("Gateway.pl requires the full path to the dotproject config.php file as its only argument") if ($#ARGV != 0);
%config = ();
&check_config($ARGV[0]);
# Shortcuts for the email code
$app_root = $config{'base_url'};
$dp_root = $config{'root_dir'};
# If no domain portion, add the domain from the configuration file.
if ( $report_to_address !~ /\@/ ) {
$report_to_address .= '@' . $config{'site_domain'};
}
if ( $report_from_address !~ /\@/ ) {
$report_from_address .= '@' . $config{'site_domain'};
}
# database bindings
use DBI;
# read in message
while (<STDIN>) {
push @message, $_;
}
# main program
$new_ticket = 'false';
&get_headers();
$attach_count = 0;
$mime_alternative = 0;
&check_attachments($attachment_info, $first_message_line, $#message);
&get_body();
&insert_message();
&insert_attachments() if ($save_attachments);
&mail_report() if ($send_email_report && $new_ticket eq 'true');
&mail_acknowledgement if ($send_acknowledge && $new_ticket eq 'true');
exit();
################################################## ##############################
sub check_config() {
$dp_conf = $_[0];
open (PHPCONFIG, "<$dp_conf")
or die ("Cannot find dotProject configuration file!");
while (<PHPCONFIG>) {
if (/^\s*\$dpconfig\[/i) {
s/\s*;.*$//;
# Now split the conf line up.
@confs = split /\s*=\s*/;
# First part is the name
$confs[0] =~ s/^.*\[['"](.*)['"]\]/$1/;
$confs[1] =~ s/['"\r\n]//g;
# add to the config array
$config{$confs[0]} = $confs[1];
}
}
}
sub get_headers {
# read in headers
# First pass, fix up split headers.
$first_message_line = 0;
foreach (@message) {
last if (/^\s$/ || /^$/);
if (/^[\s\t]+/) {
$last_hdr = pop @headers;
$last_hdr =~ s/[\s\t]*$//;
s/[\s\t]*//;
$last_hdr .= " " . $_;
push @headers, $last_hdr;
} else {
push @headers, $_;
}
$first_message_line++;
}
# Second pass, split out the required headers
$attachment = 0;
foreach (@headers) {
if (/content-type:\s+multipart/i) {
$attachment_info = $_;
if ($save_attachments) {
$attachment = 2;
} else {
$attachment = 1;
}
}
$_ =~ s/:\s/:/g;
if (/:/) {
@vars = split(':', $_, 2);
if (@vars) {
chop($header{$vars[0]} = $vars[1]);
}
}
}
# strip out Re:'s in subject
$header{'Subject'} =~ s/\s*Re:\s*//gi;
# put a nice Re: back in
$header{'Subject'} =~ s/(\[\#\d+\])(.*)/$1 Re: $2/;
# initialize Cc: header
$header{'Cc'} = "" if (!$header{'Cc'});
# Allow the use of Reply-To to insert tickets on behalf of another
if ($header{'Reply-To'}) {
$header{'From'} = $header{'Reply-To'};
}
# fix quoting in email headers
$header{'From'} =~ s/"/\"/g;
$header{'Cc'} =~ s/"/\"/g;
# determine ticket number
$parent = $header{'Subject'};
if ($parent =~ /\[\#(\d+)\]/) {
$parent =~ s/.*\[\#(\d+)\].*/$1/;
}
else {
$parent = 0;
}
if ($debug) {
print "parent=$parent\n";
print "attachments=$attachment\n";
print "\nHeaders:\n";
while (($key, $val) = each(%header)) {
print "$key: $val\n";
}
}
}
sub mail_error() {
my $msg = $_[0];
open(MAIL, "|$mailprog -t");
print MAIL "From: $report_from_address\n";
print MAIL "To: $report_to_address\n";
print MAIL "Subject: Error in processing ticket mail\n\n";
print MAIL "An error occurred in processing a ticket mail.\n";
print MAIL "The error message was:\n";
print MAIL "$msg\n";
print MAIL "\nMessage Headers:\n";
while (($key, $val) = each(%header)) {
print MAIL " $key: $val\n";
}
close(MAIL);
die($msg);
}
################################################## ##############################
sub check_attachments($) {
my $att = $_[0];
my $offset = $_[1];
my $end = $_[2];
my $ctype = "";
my $boundary = "";
my $subtype = "";
my %option = ();
my $i;
# check for attachment
return if (!$att);
# determine attachment delimiter
($ctype, $subtype, $options) = ($att =~ m/content-type:\s*([_a-z0-9]+)\/([_a-z0-9]+);?\s(.*)$/i);
# split the options out
while ($options =~ m/([_a-z0-9]+)=["']?([^;"']+)["';]?/g) {
$name = $1;
$name =~ tr/A-Z/a-z/;
$option{$name} = $2;
if ($debug) {
print "option[$name] = $2\n";
}
}
$boundary = $option{'boundary'};
if ($debug) {
print "\nAttachment Info\n";
print "Original MIME content header is $att\n";
print "Content type is $ctype\n";
print "Subtype is $subtype\n";
print "Boundary is $boundary\n";
print "Option list is $options\n";
print "Checking from $offset to $end\n";
}
# The subtype should let us know if we are
return if (!$boundary);
if ($subtype =~ /alternative/i) {
$mime_alternative = 1;
}
# pull out attachments
my $in_attach_hdrs = 0;
for ($i = $offset; $i <= $end; $i++) {
if ($message[$i] =~ /--$boundary/) {
if ($debug) {
print "$attach_count attachment boundary $boundary found at line $i\n";
}
$in_attach_hdrs = 1;
$boundary_lines[$attach_count] = $i;
$attach_disposition[$attach_count] = "";
$attach_type[$attach_count] = "text/plain";
$attach_encoding[$attach_count] = "7bit";
$attach_realname[$attach_count] = "";
$attach_content_header[$attach_count] = "content-type: text/plain";
if ($attach_count > 0 && ! $boundary_end[$attach_count]) {
$boundary_end[$attach_count] = $i-1;
}
$attach_count += 1;
} else {
if ($in_attach_hdrs) {
if ($message[$i] =~ /^\s*$/) {
$boundary_lines[$attach_count-1] = $i;
# push @boundary_end, $last;
$in_attach_hdrs = 0;
} else {
# In the header section, find the details
@attach_hdr = split(/[:;]/, $message[$i]);
if ($attach_hdr[0] =~ m/content-disposition/i) {
$attach_disposition[$attach_count-1] = $attach_hdr[1];
}
if ($attach_hdr[0] =~ m/content-type/i) {
$attach_type[$attach_count-1] = $attach_hdr[1];
$attach_content_header[$attach_count-1] = $message[$i];
}
if ($attach_hdr[0] =~ m/boundary/i) {
$attach_content_header[$attach_count-1] .= "; " . $attach_hdr[0];
}
if ($attach_hdr[0] =~ m/content-transfer-encoding/i) {
$attach_encoding[$attach_count-1] = $attach_hdr[1];
}
if ($message[$i] =~ m/name=/i) {
($x, $f) = split(/"/, $message[$i]);
$x = "";
$attach_realname[$attach_count-1] = $f;
}
}
}
}
}
$boundary_end[$attach_count] = $end;
# push @boundary_end, $end;
}
################################################## ##############################
sub get_body {
my $i;
my $body_lines = 0;
if ($debug) {
print "Attachcount=$attach_count\n";
}
# read in message body
if (!$attachment_info) {
for ($i = $first_message_line + 1; $i <= $#message; $i++) {
$body .= $message[$i];
$body_lines += 1;
}
}
else {
# Check that the attachments are not in themselves multipart
for ($i = 0; $i < $attach_count; $i++) {
if ($attach_type[$i] =~ /multipart\//i) {
&check_attachments($attach_content_header[$i], $boundary_lines[$i], $boundary_end[$i+1]);
}
}
#$boundary_end[$attach_count] = $#message;
# Look for the attachment that doesn't have a disposition
if ($skip_mime_preface) {
$i = 1;
} else {
$i = 0;
}
for (; $i < $attach_count; $i++) {
if ($debug) {
print "$i: mimealt=$mime_alternative, type=$attach_type[$i], disp=$attach_disposition[$i] name=$attach_realname[$i] start=$boundary_lines[$i], end=$boundary_end[$i+1]\n";
}
if ( ($mime_alternative == 1 && $attach_type[$i] =~ /text\/plain/i) || ($mime_alternative == 0 && $attach_type[$i] =~ /text\//i && $attach_disposition[$i] =~ /^$/ )) {
if ($debug) {
print "Found suitable body text in attachment $i\n";
}
for ($j = $boundary_lines[$i] + 1; $j < $boundary_end[$i+1]; $j++) {
$body .= $message[$j];
$body_lines += 1;
}
# Fix for RFC2046 compliance.
if (($i+1) < $attach_count && $message[$j] !~ /^\s*$/) {
$body .= $message[$j];
$body_lines += 1;
}
}
}
}
if (! $body_lines) {
&mail_error("No suituable body text found in email");
}
$body =~ s/^\n//;
$body =~ s/\r\n$/\n/;
if ($debug) {
print "\nBody:\n";
print $body;
}
}
################################################## ##############################
sub insert_message {
if ($debug) {
print "insert_message not run, parent = $parent\n";
print "author=" . $header{'From'} . "\n";
print "subject=" . $header{'Subject'} . "\n";
print "cc=" . $header{'Cc'} . "\n";
$author = $header{'From'};
$subject = $header{'Subject'};
$cc = $header{'Cc'};
return;
}
# connect to database
$dbh = DBI->connect("DBI:mysql:$config{'dbname'}:$config{'dbhost'}", $config{'dbuser'}, $config{'dbpass'});
# update parent activity
if ($parent) {
$activity_query = "UPDATE tickets SET type = 'Open', activity = UNIX_TIMESTAMP() WHERE ticket = '$parent'";
$sth = $dbh->prepare($activity_query);
$sth->execute();
$sth->finish();
$type = "Client Followup";
$assignment = "9999";
}
else {
$type = "Open";
$assignment = "0";
$new_ticket = 'true';
}
# quote all fields
$db_parent = $dbh->quote($parent);
$attachment = $dbh->quote($attachment);
$author = $dbh->quote($header{'From'});
$subject = $dbh->quote($header{'Subject'});
$body = $dbh->quote($body);
$type = $dbh->quote($type);
$cc = $dbh->quote($header{'Cc'});
$assignment = $dbh->quote($assignment);
# do insertion
$insert_query = "INSERT INTO tickets (parent, attachment, timestamp, author, subject, body, type, cc, assignment) ";
$insert_query .= "VALUES ($db_parent, $attachment, UNIX_TIMESTAMP(), $author, $subject, $body, $type, $cc, $assignment)";
$sth = $dbh->prepare($insert_query);
$sth->execute();
#$ticket = $sth->{'mysql_insertid'};
if ($new_ticket eq 'true')
{
$parent = $sth->{'mysql_insertid'};
}
$sth->finish();
$dbh->disconnect();
}
sub insert_attachments {
return if (!$attachment_info);
$dbh = DBI->connect("DBI:mysql:$config{'dbname'}:$config{'dbhost'}", $config{'dbuser'}, $config{'dbpass'});
if ($skip_mime_preface) {
$i = 1;
} else {
$i = 0;
}
for ($i = 0; $i < $attach_count; $i++) {
if ( ( $mime_alternative == 0 && $attach_disposition[$i] !~ /^$/) || ($mime_alternative == 1 && $attach_type[$i] !~ /text\/plain/i && $attach_type[$i] !~ /multipart/i) ) {
insert_attachment($i, $dbh);
}
}
$dbh->disconnect();
}
sub insert_attachment($) {
$att = $_[0];
$dbh = $_[1];
if ($debug) {
print "insert_attachment called with att=$att, dbh=$dbh\n";
return;
}
# Check that we can write to the required directory and that we know who the
# web owner is.
$files_dir = $dp_root . "/files";
$file_repository = $files_dir . "/0";
@st = stat $files_dir
or die ("Cannot find file repository");
$web_owner = $st[4];
# If the repository doesn't exist, create it.
stat $file_repository
or mkdir $file_repository, 0777;
# Extract the file using mimencode if necessary.
$fid = sprintf("%x_%d", time(), $att);
# If content encoding is not 7bit, try and determine what it is
$fname = $file_repository . "/" . $fid;
$freal = ">";
$freal = "| mimencode -u -o " if ($attach_encoding[$att] =~ m/base64/i);
$freal = "| mimencode -u -q -o " if ($attach_encoding[$att] =~ m/quoted/i);
$fout = $freal . $fname;
open(FH, $fout);
for ($j = $boundary_lines[$att] + 1; $j < $boundary_end[$att+1]; $j++) {
print FH $message[$j];
}
close(FH);
# Determine the files size
open(FH, $fname);
seek FH, 0, 2;
$filesize = tell FH;
close(FH);
# Change ownership to the web server owner - assumes the files directory is correctly owned
chown $fname, $web_owner
or chmod 0666, $fname;
# insert the file as user Admin (id=1), Project = 0
$sql_stmt = "INSERT into files (file_real_filename, file_name, file_type, file_size, file_date, file_description, file_task) values (";
$sql_stmt .= " '" . $fid . "',";
$sql_stmt .= " '" . $attach_realname[$att] . "',";
$sql_stmt .= " '" . $attach_type[$att] . "', ";
$sql_stmt .= sprintf("%d", $filesize);
$sql_stmt .= ", NOW() , ";
#$desc = "File attachment from: " . $header{'From'} . "\nTicket #" . $ticket . "\nSubject: " . $header{'Subject'};
$desc = "File attachment from: " . $header{'From'} . "\nTicket #" . $parent . "\nSubject: " . $header{'Subject'};
$sql_stmt .= $dbh->quote($desc);
$sql_stmt .= ", ";
#$sql_stmt .= $ticket;
$sql_stmt .= $parent;
$sql_stmt .= " )";
$sth = $dbh->prepare($sql_stmt);
$sth->execute() or &mail_error("Failed to insert message in database");
$sth->finish();
}
################################################## ##############################
sub mail_report {
# unquote necessary fields
$author =~ s/^\'(.*)\'$/$1/;
$author =~ s/\\\'/'/g;
$subject =~ s/^\'(.*)\'$/$1/;
$subject =~ s/\\\'/'/g;
# try to strip off \r
$author =~ s/\\r//g;
$subject =~ s/\\r//g;
# remove ticket number
$subject =~ s/\[\#\d+\](.*)/$1/;
$boundary = "_lkqwkASDHASK89271893712893";
# check for possible mail loops
if ( $report_to_address eq $report_from_address
|| $author eq $report_from_address ) {
print("Mail loop detected, not sending report\n");
return;
}
# mail the report
if ($debug) {
print "\nReport Mail:\n";
return;
# open(MAIL, "|cat");
} else {
open(MAIL, "|$mailprog -t");
}
print MAIL "To: $report_to_address\n";
print MAIL "From: $report_from_address\n";
if ($parent) {
print MAIL "Subject: Client followup to trouble ticket #$parent\n";
} else {
#print MAIL "Subject: New support ticket #$ticket\n";
print MAIL "Subject: New support ticket #$parent\n";
}
print MAIL "Content-type: multipart/alternative; boundary=\"$boundary\"\n";
print MAIL "Mime-Version: 1.0\n\n";
print MAIL "--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/plain\n\n";
if ($parent) {
print MAIL "Followup Trouble ticket to ticket #$parent\n\n";
} else {
print MAIL "New Trouble Ticket\n\n";
}
#print MAIL "Ticket ID: $ticket\n";
print MAIL "Ticket ID: $parent\n";
print MAIL "Author : $author\n";
print MAIL "Subject : $subject\n";
#print MAIL "View : $app_root/index.php?m=ticketsmith&a=view&ticket=$ticket\n";
print MAIL "View : $app_root/index.php?m=ticketsmith&a=view&ticket=$parent\n";
print MAIL "\n--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "<style>\n";
print MAIL ".title {\n";
print MAIL " FONT-SIZE: 18pt; SIZE: 18pt;\n";
print MAIL "}\n";
print MAIL ".td {\n";
print MAIL " font: 9pt arial, san-serif;\n";
print MAIL "}\n";
print MAIL "</style>\n";
if ($parent) {
print MAIL "<title>Followup Trouble ticket to ticket #$parent</title>\n";
} else {
print MAIL "<title>New Trouble ticket</title>\n";
}
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "\n";
print MAIL "<TABLE border=0 cellpadding=4 cellspacing=1>\n";
print MAIL " <TR>\n";
print MAIL " <TD nowrap><span class=title>Trouble Ticket Management</span></td>\n";
print MAIL " <TD valign=top align=right width=100%>&nbsp;</td>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "<TABLE width=600 border=0 cellpadding=4 cellspacing=1 bgcolor=#878676>\n";
print MAIL " <TR>\n";
if ($parent) {
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>Followup Ticket Entered</font></TD>\n";
} else {
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>New Ticket Entered</font></TD>\n";
}
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>Ticket ID:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td>$ticket</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>$parent</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Author:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$author</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Subject:</TD>\n";
print MAIL " <TD bgcolor=white><font face=arial,san-serif size=2>$subject</font></TD>";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>View:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td><a href=$app_root/index.php?m=ticketsmith&a=view&ticket=$ticket>$app_root/index.php?m=ticketsmith&a=view&ticket=$ticket</a></TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td><a href=$app_root/index.php?m=ticketsmith&a=view&ticket=$parent>$app_root/index.php?m=ticketsmith&a=view&ticket=$parent</a></TD>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
print MAIL "\n--$boundary--\n";
close(MAIL);
}
################################################## ##############################
sub mail_acknowledgement {
# unquote necessary fields
$author =~ s/^\'(.*)\'$/$1/;
$author =~ s/\\\'/'/g;
$subject =~ s/^\'(.*)\'$/$1/;
$subject =~ s/\\\'/'/g;
# remove ticket number
$subject =~ s/\[\#\d+\](.*)/$1/;
$boundary = "_lkqwkASDHASK89271893712893";
# Check for mail loops.
if ( $author eq $report_to_address || $author eq $report_from_address) {
print("Detected mail loop, not sending acknowledgment\n");
return;
}
# mail the report
if ($debug) {
print "\nAcknowledge Mail:\n";
return;
# open(MAIL, "|cat");
}
else {
open(MAIL, "|$mailprog -t");
}
print MAIL "To: $author\n";
print MAIL "From: $report_from_address\n";
#print MAIL "Subject: [#$parent] Your Support Request\n";
print MAIL "Subject: [#$parent] Your Support Request\n";
print MAIL "Content-type: multipart/alternative; boundary=\"$boundary\"\n";
print MAIL "Mime-Version: 1.0\n\n";
print MAIL "--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/plain\n\n";
print MAIL "This is an acknowledgement that your support request has been logged\n";
print MAIL "by an automated support tracking system. It will be assigned to a\n";
print MAIL "support representative who will be in touch in due course.\n\n";
print MAIL "Details of support request:\n";
#print MAIL "Ticket ID: $ticket\n";
print MAIL "Ticket ID: $parent\n";
print MAIL "Author : $author\n";
print MAIL "Subject : $subject\n";
print MAIL "\n--$boundary\n";
print MAIL "Content-disposition: inline\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "<style>\n";
print MAIL ".title {\n";
print MAIL " FONT-SIZE: 18pt; SIZE: 18pt;\n";
print MAIL "}\n";
print MAIL ".td {\n";
print MAIL " font: 9pt arial, san-serif;\n";
print MAIL "}\n";
print MAIL "</style>\n";
print MAIL "<title>Your Support Request</title>\n";
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "\n";
print MAIL "<TABLE border=0 cellpadding=4 cellspacing=1>\n";
print MAIL " <TR>\n";
print MAIL " <TD nowrap><span class=title>Trouble Ticket Management</span></td>\n";
print MAIL " <TD valign=top align=right width=100%>&nbsp;</td>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "<TABLE width=600 border=0 cellpadding=4 cellspacing=1 bgcolor=#878676>\n";
print MAIL " <TR>\n";
print MAIL " <TD colspan=2><font face=arial,san-serif size=2 color=white>New Ticket Entered</font></TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>Ticket ID:</TD>\n";
#print MAIL " <TD bgcolor=white nowrap class=td>$ticket</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>$parent</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Author:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$author</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white class=td>Subject:</TD>\n";
print MAIL " <TD bgcolor=white class=td>$subject</TD>\n";
print MAIL " </tr>\n";
print MAIL " <TR>\n";
print MAIL " <TD bgcolor=white nowrap class=td>&nbsp;</TD>\n";
print MAIL " <TD bgcolor=white nowrap class=td>\n";
print MAIL "This is an acknowledgement that your support request has been logged<br />\n";
print MAIL "by an automated support tracking system. It will be assigned to a<br />\n";
print MAIL "support representative who will be in touch in due course.\n";
print MAIL " </font></TD>\n";
print MAIL " </tr>\n";
print MAIL "</TABLE>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
print MAIL "\n--$boundary--\n";
close(MAIL);
}
Thanks,
Walter