I just upgrade to MacOS X 10.1.5 and the sendmail app of UNIX will not send the following script to said email address client.
#!/usr/bin/perl
# Use Pre-Build CGI Routines
# ----------------------------
use CGI;
$q = new CGI;
# Set Initial Variables
# -----------------------
$recipient_email = 'juan.ramirez@txmail.sbc.com';
# $recipient_email = 'tony.colter@sbc.com';
$mail_file = '/Library/WebServer/CGI-Executables/.mail/' . time();
# Set Form Variables
# --------------------
$date = $q->param('date');
$nominee_name = $q->param('nominee_name');
$team_names = $q->param('team_names');
$title = $q->param('title');
$work_phone = $q->param('work_phone');
$work_address = $q->param('work_address');
$email = $q->param('email');
$sup_name = $q->param('sup_name');
$sup_phone = $q->param('sup_phone');
$gmcc_department = $q->param('gmcc_department');
$gs_department = $q->param('gs_department');
$nominators_name = $q->param('nominators_name');
$nominators_title= $q->param('nominators_title');
$nominators_phone = $q->param('nominators_phone');
$nominators_department = $q->param('nominators_department');
$sup_mgr_app_nomination = $q->param('sup_mgr_app_nomination');
$customer_service = $q->param('customer_service');
$rev_generation = $q->param('rev_generation');
$above_beyond = $q->param('above_beyond');
# Send User To Thank You Page
# -----------------------------
print "Location:
# Send Email To The Recipient
# -----------------------------
open (MAILFILE,">$mail_file"
print MAILFILE "Nomination form:\n";
print MAILFILE "Date: $date\n";
print MAILFILE "Nominee's Name: $nominee_name\n";
print MAILFILE "Team: $team_names\n";
print MAILFILE "Title: $title\n";
print MAILFILE "Work Phone: $work_phone\n";
print MAILFILE "Work Address: $work_address\n";
print MAILFILE "eMail: $email\n";
print MAILFILE "Supervisor's Name: $sup_name\n";
print MAILFILE "Supervisor's Work Phone: $sup_phone\n";
print MAILFILE "GMCC Department: $gmcc_department\n";
print MAILFILE "Global Solutions Department: $gs_department\n";
print MAILFILE "Nominator's Information:\n";
print MAILFILE "Name: $nominators_name\n";
print MAILFILE "Title: $nominators_title\n";
print MAILFILE "Work Phone: $nominators_phone\n";
print MAILFILE "Department: $nominators_department\n";
print MAILFILE "Supervising Manager Approving Nomination: $sup_mgr_app_nomination\n";
print MAILFILE "\n";
print MAILFILE "Description of Accomplishment:\n";
print MAILFILE "Customer Service: $customer_service\n";
print MAILFILE "Revenue Generation/Process Improvement and/or Cost Savings: $rev_generation\n";
print MAILFILE "Going Above and Beyond: $above_beyond\n";
close MAILFILE;
# print ("mail -s \"Global Excellence Nomination For $nominee_name\" $recipient_email < $mail_file"
system ("mail -s \"Global Excellence Nomination For $nominee_name\" $recipient_email < $mail_file"
system ("rm -fr $mail_file"
exit;
I'm a beginner with UNIX and CGI and need help!
Thanks,
Juan
#!/usr/bin/perl
# Use Pre-Build CGI Routines
# ----------------------------
use CGI;
$q = new CGI;
# Set Initial Variables
# -----------------------
$recipient_email = 'juan.ramirez@txmail.sbc.com';
# $recipient_email = 'tony.colter@sbc.com';
$mail_file = '/Library/WebServer/CGI-Executables/.mail/' . time();
# Set Form Variables
# --------------------
$date = $q->param('date');
$nominee_name = $q->param('nominee_name');
$team_names = $q->param('team_names');
$title = $q->param('title');
$work_phone = $q->param('work_phone');
$work_address = $q->param('work_address');
$email = $q->param('email');
$sup_name = $q->param('sup_name');
$sup_phone = $q->param('sup_phone');
$gmcc_department = $q->param('gmcc_department');
$gs_department = $q->param('gs_department');
$nominators_name = $q->param('nominators_name');
$nominators_title= $q->param('nominators_title');
$nominators_phone = $q->param('nominators_phone');
$nominators_department = $q->param('nominators_department');
$sup_mgr_app_nomination = $q->param('sup_mgr_app_nomination');
$customer_service = $q->param('customer_service');
$rev_generation = $q->param('rev_generation');
$above_beyond = $q->param('above_beyond');
# Send User To Thank You Page
# -----------------------------
print "Location:
# Send Email To The Recipient
# -----------------------------
open (MAILFILE,">$mail_file"
print MAILFILE "Nomination form:\n";
print MAILFILE "Date: $date\n";
print MAILFILE "Nominee's Name: $nominee_name\n";
print MAILFILE "Team: $team_names\n";
print MAILFILE "Title: $title\n";
print MAILFILE "Work Phone: $work_phone\n";
print MAILFILE "Work Address: $work_address\n";
print MAILFILE "eMail: $email\n";
print MAILFILE "Supervisor's Name: $sup_name\n";
print MAILFILE "Supervisor's Work Phone: $sup_phone\n";
print MAILFILE "GMCC Department: $gmcc_department\n";
print MAILFILE "Global Solutions Department: $gs_department\n";
print MAILFILE "Nominator's Information:\n";
print MAILFILE "Name: $nominators_name\n";
print MAILFILE "Title: $nominators_title\n";
print MAILFILE "Work Phone: $nominators_phone\n";
print MAILFILE "Department: $nominators_department\n";
print MAILFILE "Supervising Manager Approving Nomination: $sup_mgr_app_nomination\n";
print MAILFILE "\n";
print MAILFILE "Description of Accomplishment:\n";
print MAILFILE "Customer Service: $customer_service\n";
print MAILFILE "Revenue Generation/Process Improvement and/or Cost Savings: $rev_generation\n";
print MAILFILE "Going Above and Beyond: $above_beyond\n";
close MAILFILE;
# print ("mail -s \"Global Excellence Nomination For $nominee_name\" $recipient_email < $mail_file"
system ("mail -s \"Global Excellence Nomination For $nominee_name\" $recipient_email < $mail_file"
system ("rm -fr $mail_file"
exit;
I'm a beginner with UNIX and CGI and need help!
Thanks,
Juan