Subversion Repositories zfs_utils

#   $message =~ s/\(/\\(/g;

#   $message =~ s/\)/\\)/g;

#   $configuration->{'email'}->{'notify'} = 'root' unless $configuration->{'email'}->{'notify'};

#   die "No message in outgoing message\n" unless $message;

#   my $email = Email::Simple->create(

#      header => [

#         To     => $configuration->{'email'}->{'notify'},

#         Subject=> $configuration->{'email'}->{'subject'} . ( $subject ? " - $subject" : '' ),

#         From   => $configuration->{'email'}->{'from'}

#      ],

#      body => $message

#   );

#   $message = $email->as_string;

#   #warn "Message is\n$message\n\n";

#   if ( $configuration->{'testing'} > 1 ) {

#      print "$message\n";

#   } else {

#      `echo '$message' | sendmail $configuration->{'email'}->{'notify'}`;

#   }