Hi,
 
Try to use cyr_adduser.pl and cyr_batchadd.sh from here: http://www.mail-archive.com/web-cyradm@web-cyradm.org/msg00496.html
 
I've used these scripts for batch add users to web-cyradm system.
 
Regards,
Leon Kolchinsky


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Tuesday, October 11, 2005 9:48 AM
To: info-cyrus@lists.andrew.cmu.edu
Subject: how can I batch add user using cyradm


my cyradm is perl version,it seems that tcl script doesn't work?

the following code won't run...
#!/usr/local/bin/cyradm -file

 
# Batch Cyrus user creation script. Usage: addusers filename
 
set inputfile [lindex $argv 0]  # Name of file containing users
set quotalimit 15360            # Quota limit in Kbytes
 
eval cyradm connect cyr_conn venus 143
puts stdout "Connected to IMAP server. Authenticating..."
 
if [catch {eval cyr_conn authenticate -pwcommand {{
    set hostname "localhost"
    set adminid "cyrusadm"
    set adminpw "xxxxxxxx"
    list $adminid $adminpw
}} } result ] {
    puts stderr "$result (cleartext)"
    return -code error $result
} else {
    puts "Authentication successful."
}
----
Cyrus Home Page: http://asg.web.cmu.edu/cyrus
Cyrus Wiki/FAQ: http://cyruswiki.andrew.cmu.edu
List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html

Reply via email to