[Phpgroupware-cvs] phpgwapi/cron/clean_database.pl, 1.3

[nomail]

Update of /phpgwapi/cron
Added Files:
        Branch: 
          clean_database.pl

date: 2004/12/30 06:47:26;  author: skwashd;  state: Exp;  lines: +0 -0

Log Message:
new HEAD
=====================================================================
#!/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();