Hi
Need to export(backup) your sogo users contacts calendar etc?
Here some simple approach to get this done.
#!/usr/bin/perl use warnings; use DBI; my $db ="databasename"; my $user = "username"; my $pass = "mypassword"; my $host = "localhost"; my $query = "SELECT mail FROM sogo_users"; my $bkppath = "/path/to/backup"; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $dbh = DBI->connect("DBI:mysql:$db", "$user", "$pass") or die "Could not connect to database: " . DBI->errstr; my $sth = $dbh->prepare("$query") or die "Couldn't prepare statement: " . $dbh->errstr; $sth->execute() or die "Couldn't execute statement: " . $sth->errstr; while ($data = $sth->fetchrow_array()) { my $mail = $data; my $bkp = `/usr/sbin/sogo-tool backup $bkppath $mail > /dev/null`; sleep 2; my $mv = `/bin/mv $bkppath/$mail $bkppath/$mail.$wday`; } $sth->finish; $dbh->disconnect;
Have fun!