On 10/11/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
>
> 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."
> }I wrote an perl/expect script that I use remotely. See attached. > > ---- > 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 > >
auto_mailbox_create.pl
Description: Binary data
---- 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
