Subversion Repositories computer_asset_manager_v1

Rev

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

Rev 73 Rev 75
Line 129... Line 129...
129 
   my @header;
 129 
   my @header;
130 
   push @header, 'To: ' . qq/$$parameters{'mailTo'}/;
 130 
   push @header, 'To: ' . qq/$$parameters{'mailTo'}/;
131 
   push @header, 'From: ' . qq/$$parameters{'mailFrom'}/;
 131 
   push @header, 'From: ' . qq/$$parameters{'mailFrom'}/;
132 
   push @header, 'Subject: ' . qq/$$parameters{'mailSubject'}/;
 132 
   push @header, 'Subject: ' . qq/$$parameters{'mailSubject'}/;
133 
   $report = join( "\n", @header ) . "\n\n" . $report . "\n.\n";
 133 
   $report = join( "\n", @header ) . "\n\n" . $report . "\n.\n";
134 
   open SENDMAIL, "|sendmail $$parameters{mailTo}" or die "could not open sendmail: $!\n";
 134 
   open SENDMAIL, "|/usr/sbin/sendmail $$parameters{mailTo}" or die "could not open sendmail: $!\n";
135 
   print SENDMAIL $report;
 135 
   print SENDMAIL $report;
136 
   close SENDMAIL;
 136 
   close SENDMAIL;
137 
}
137 
}
138 
 
 138 
 
139 
 
 139