how can I batch add user using cyradm

[he.tao at trilogy.com]

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."
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://lists.andrew.cmu.edu/mailman/private/info-cyrus/attachments/20051011/7bf1b375/attachment.html