Hi,
i use the following script from vcenter server to search for snapshots and send it via email.
#!/usr/local/bin/perl
#
\#
#
require "ctime.pl";
require "flush.pl";
use DBI;
use Net::SMTP;
use Time::Local;
use File::Path;
\# Globale Variablen
#
use vars qw/ %opt /;
&declareGlobalVariables;
$dbh = &getOracleLogin("$ORACLE_SID", "$ORACLE_USERID", "$ORACLE_PASSWORD");
$dbh->\{LongReadLen} = 64000;
&checkSnapshot;
&logoffOracle($dbh);
exit;
\# \+----
+
\# | SUB ROUTINES |
\# \+----
+
sub declareGlobalVariables {
$ORACLE_SID = "";
$ENV\{'ORACLE_SID'} = "$ORACLE_SID";
$ENV\{'ORACLE_HOME'} = "D:
oracle
product
10.2.0
client_1"; # pracle client path
$MAILSERVER = "data();
Send the header.
$smtp->datasend("Subject: Snapshot $status\n\n");
Send the body.
$smtp->datasend("$message\n");
$smtp->datasend("$status\n");
$smtp->dataend();
$smtp->quit;
}
#
\# checkSnapshot
#
sub checkSnapshot {
$sql_statement="select dns_name, snapshot_name, create_time , floor((((sysdate - create_time)2460*60)/3600)-2 ) age from vpx_snapshot,vpx_vm where vpx_vm.id = vpx_snapshot.vm_id";
\# print STDERR "SQL $sql_statement" ;
unless ($snap_cursor = $dbh->prepare("$sql_statement")) {
&programMessage("Could not prepare SELECT_SNAPSHOT cursor", "$sql_statement $DBI::errstr" );
$dbh->rollback;
&logoffOracle($dbh);
exit;
}
unless ($snap_cursor->execute) {
&programMessage("Could not execute SELECT_SNAPSHOT cursor", "$sql_statement $DBI::errstr" );
$dbh->rollback;
&logoffOracle($dbh);
exit;
}
$snap_cursor -> bind_columns(undef,\$dns_name,\$snapshot_name,\$create_time,\$age);
while($snap_cursor->fetch() ){
if( $age >= $SNAP_THRESHOLD ) {
print "Warning: Snapshot $dns_name $snapshot_name $create_time exists $age Stunden\n";
&programMessage("VCB snapshot exists : $dns_name $snapshot_name $create_time seit $age hours", "Snapshot exists $dns_name $snapshot_name $create_time" );
return 1;
}
}
unless ($snap_cursor->finish) {
&programMessage("Could not finish snap_cursor", "$sql_statement" );
$dbh->rollback;
&logoffOracle($dbh);
exit;
}
}
Andreas
