forked from extern/egroupware
19 lines
454 B
Perl
19 lines
454 B
Perl
|
#!/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();
|