GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
$tododb = full_readlink($tododb);
my $base_dir = dirname($tododb);
my $tododb_name = basename($tododb);
if (not -e "$base_dir/.svn") {
$tododb = full_readlink($tododb);
my $base_dir = dirname($tododb);
my $tododb_name = basename($tododb);
if (not -e "$base_dir/.svn") {