Subversion Repositories zfs_utils

Rev

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

Rev 10 Rev 11
Line 106... Line 106...
106
      print MAIL $message;
106
      print MAIL $message;
107
      close MAIL;
107
      close MAIL;
108
   } else {
108
   } else {
109
      warn "no message in outgoing email\n";
109
      warn "no message in outgoing email\n";
110
   }
110
   }
111
#   $message =~ s/\(/\\(/g;
-
 
112
#   $message =~ s/\)/\\)/g;
-
 
113
#   $configuration->{'email'}->{'notify'} = 'root' unless $configuration->{'email'}->{'notify'};
-
 
114
#   die "No message in outgoing message\n" unless $message;
-
 
115
#   my $email = Email::Simple->create(
-
 
116
#      header => [
-
 
117
#         To     => $configuration->{'email'}->{'notify'},
-
 
118
#         Subject=> $configuration->{'email'}->{'subject'} . ( $subject ? " - $subject" : '' ),
-
 
119
#         From   => $configuration->{'email'}->{'from'}
-
 
120
#      ],
-
 
121
#      body => $message
-
 
122
#   );
-
 
123
#   $message = $email->as_string;
-
 
124
#   #warn "Message is\n$message\n\n";
-
 
125
#   if ( $configuration->{'testing'} > 1 ) {
-
 
126
#      print "$message\n";
-
 
127
#   } else {
-
 
128
#      `echo '$message' | sendmail $configuration->{'email'}->{'notify'}`;
-
 
129
#   }
-
 
130
}
111
}
131
 
112
 
132
# checks to see if we should be in maintenance mode
113
# checks to see if we should be in maintenance mode
133
# if $remoteMachine->{'maintenanceMode'} exists, set mode
114
# if $remoteMachine->{'maintenanceMode'} exists, set mode
134
# otherwise, wait localMachine->{'waittime'} minutes, then check
115
# otherwise, wait localMachine->{'waittime'} minutes, then check