Subversion Repositories computer_asset_manager_v1

Rev

Rev 74 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74 Rev 75
Line 122... Line 122...
122 
   my @header;
 122 
   my @header;
123 
   push @header, 'To: ' . qq/$$parameters{'mailTo'}/;
 123 
   push @header, 'To: ' . qq/$$parameters{'mailTo'}/;
124 
   push @header, 'From: ' . qq/$$parameters{'mailFrom'}/;
 124 
   push @header, 'From: ' . qq/$$parameters{'mailFrom'}/;
125 
   push @header, 'Subject: ' . qq/$$parameters{'mailSubject'}/;
 125 
   push @header, 'Subject: ' . qq/$$parameters{'mailSubject'}/;
126 
   $report = join( "\n", @header ) . "\n\n" . $report . "\n.\n";
 126 
   $report = join( "\n", @header ) . "\n\n" . $report . "\n.\n";
127 
   open SENDMAIL, "|sendmail $$parameters{mailTo}" or die "could not open sendmail: $!\n";
 127 
   open SENDMAIL, "|/usr/sbin/sendmail $$parameters{mailTo}" or die "could not open sendmail: $!\n";
128 
   print SENDMAIL $report;
 128 
   print SENDMAIL $report;
129 
   close SENDMAIL;
 129 
   close SENDMAIL;
130 
}
130 
}
131
131
132 
 
 132