net-imap-server/bin/adduser.pl

#!/usr/bin/perl
# $Revision: 1.1 $
# $Date: 2003/03/03 14:45:40 $

use Tie::Persistent;

my $user        = shift;
my $pass        = shift;

tie %data, 'Tie::Persistent', '/tmp/imap.db', 'rw';
$data{'users'}{$user}{'password'}       = $pass;
$data{'users'}{$user}{'subscriptions'}  = [] unless (@{$data{'users'}{$user}{'subscriptions'}});
untie %data;

__END__

 $Log: adduser.pl,v $
 Revision 1.1  2003/03/03 14:45:40  greg
 - moved scripts into a 'bin/' directory
 - can now specify server port as an argument to imap.pl

 Revision 1.2  2003/03/03 14:10:14  greg
 - added PREREQ_PM to makefile
 - command tag is now an instance variable
 - command tag is no longer passed to cmd_* and send_* functions
 - rid code of unused Switch references
 - added CVS Revision, Date, and Log tags

1	dpavlin	1.1	#!/usr/bin/perl
2			# $Revision: 1.1 $
3			# $Date: 2003/03/03 14:45:40 $
4
5			use Tie::Persistent;
6
7			my $user = shift;
8			my $pass = shift;
9
10			tie %data, 'Tie::Persistent', '/tmp/imap.db', 'rw';
11			$data{'users'}{$user}{'password'} = $pass;
12			$data{'users'}{$user}{'subscriptions'} = [] unless (@{$data{'users'}{$user}{'subscriptions'}});
13			untie %data;
14
15			__END__
16
17			$Log: adduser.pl,v $
18			Revision 1.1 2003/03/03 14:45:40 greg
19			- moved scripts into a 'bin/' directory
20			- can now specify server port as an argument to imap.pl
21
22			Revision 1.2 2003/03/03 14:10:14 greg
23			- added PREREQ_PM to makefile
24			- command tag is now an instance variable
25			- command tag is no longer passed to cmd_* and send_* functions
26			- rid code of unused Switch references
27			- added CVS Revision, Date, and Log tags
28