egroupware_official/phpgwapi/cron/clean_database.pl

19 lines
454 B
Perl
Raw Normal View History

2000-12-18 21:09:56 +01:00
#!/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();