#!/usr/bin/perl
#
#	Copyright (C) 2003, Christophe Beauregard
#	You may distribute this file under the terms of the Artistic
#	License, as specified in the README file.
#
# $Id: syncjerk,v 1.2 2003/06/11 22:52:03 cpb Exp $

# inconsiderate jerk conduit

use strict;
use Palm::Raw;
use ColdSync;
use ColdSync::SPC;

StartConduit("sync");

my $db1 = &dlp_OpenDB("MailDB",0x80);
my $db2 = &dlp_OpenDB("AddressDB",0x80);
my $db3 = &dlp_OpenDB("ToDoDB",0x80);

die "screw all the other conduits!";

EndConduit;

__END__;

=head1 name

syncjerk - A conduit that behaves like a jerk, making it hard for other
           conduits to function

=head1 SYNOPSIS

Add the following to your F<.coldsyncrc> file:

	conduit sync {
		type: */*;
		...
		path: <...>/syncjerk;
	}

=head1 DESCRIPTION

The idea is to have a conduit that takes up resources in order to make
ColdSync more resistant to failure prone conduits.

By itself, C<syncjerk> just opens a bunch of databases and leaves them open.
By using acting on all databases, it also exhausts coldsync's file descriptors.

=head1 BUGS

That's all this one is.

=head1 SEE ALSO

coldsync(8)

=cut
#'