egroupware/phpgwapi/cron/clean_database.pl
2000-12-18 20:09:56 +00:00

19 lines
454 B
Perl
Executable File

#!/usr/bin/perl
use DBI;
$db_host = 'localhost';
$db_name = 'phpGroupWare';
$db_user = 'phpgroupware';
$db_pass = 'phpgr0upwar3';
$dbase = DBI->connect("DBI:mysql:$db_name;$db_host",$db_user,$db_pass);
$command = $dbase->do("delete from webcal_entry");
$command = $dbase->do("delete from webcal_entry_user");
$command = $dbase->do("delete from webcal_entry_groups");
$command = $dbase->do("delete from webcal_entry_repeats");
$dbase->disconnect();