Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
#!/usr/local/bin/perl #check_oracle# use strict; use DBI; use Net::SMTP; $ENV{'ORACLE_HOME'} = '/app/oracle/product/9.2'; my $errors; my $total = 0; check_oracle(); if($total > 0) { my $mailer = Net::SMTP->new("142.1.0.1"); $mailer->mail('dpr-prod@repl1.newport.net'); $mailer->to('root'); $mailer->data(); $mailer->datasend("Subject: DPR database"); $mailer->datasend("\n"); $mailer->datasend($errors); $mailer->dataend(); } sub check_oracle { my $username = '######_@@@@'; my $password = '@@@@'; my $tnsalias = … 
|