Here it is
#!/usr/bin/perl
use strict;
use DBI;
my $db_host="localhost";
my $db_user="username";
my $db_pass="password";
my $db_name="database";
my $mail_prog = '/usr/lib/sendmail';
my $email='[EMAIL PROTECTED]';
my $from_email='[EMAIL PROTECTED]';
sub mysql_die{
if ($_[0]){ print $_[0]."\n";}
else{ print "MySQL Error: ".$DBI::errstr."\n";}
open (MAIL, "|$mail_prog -t");
print MAIL "To: $email\n";
print MAIL "Reply-to: $from_email\n";
print MAIL "From: $from_email\n";
print MAIL "Content-type: text/plain;charset=windows-1251\n";
print MAIL "Subject :DB Clean error - ".localtime()."\n";
print MAIL "\n";
print MAIL "MySQL Error: ".$DBI::errstr."\n";
close (MAIL);
exit;
}
my @log;
my $dbh =
DBI->connect("DBI:mysql:$db_name:$db_host",$db_user,$db_pass,{PrintError =>
0, AutoCommit => 1}) or die $DBI::errstr;
my $cmycres=$dbh->prepare("show master logs");
$cmycres->execute() or mysql_die();
my $i=7; #this will leave the last seven logs intact
while ($i<=$cmycres->rows){
@log=$cmycres->fetchrow;
$i++;
}
$cmycres->finish();
print localtime()." purging logs to $log[0]\n";
$dbh->do("purge master logs to '$log[0]'") or mysql_die();
$dbh->disconnect;
print "Logs purge end: ".localtime()."\n";
--
Dobromir Velev
[EMAIL PROTECTED]
http://www.websitepulse.com/
On Friday 11 June 2004 00:55, Jeff Smelser wrote:
> On Thursday 10 June 2004 08:03 am, Josh Trutwin wrote:
> > Would you be willing to share your perl script? Perhaps offlist if you
> > are concerned about everyone seeing it?
>
> I would like to see it as well.. If at all possible
>
> --
> How can there be self-help groups?
--
MySQL General Mailing List
For list archives: http://lists.mysql.com/mysql
To unsubscribe: http://lists.mysql.com/[EMAIL PROTECTED]
