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 |
|