Projects
Kolab:3.4
cyrus-imapd
inboxfer
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File inboxfer of Package cyrus-imapd (Revision 12)
Currently displaying revision
12
,
Show latest
#!/usr/bin/perl # # Usage: inboxfer inputfile # # Purpose: Transfer messages from Berkeley-format inbox to Cyrus inbox # # Input: Text file containing one username per line # # Warning: Do not use this script to transfer messages into a Cyrus # mailbox that already contain messages. Existing messages # will be overwritten. # #$Id: inboxfer,v 1.1 2004/02/04 12:59:42 karsten Exp $ $mailstore = "/var/spool/imap"; # Cyrus mailstore $oldspool = "/var/spool/mail"; # Old mail spool $cat = "/bin/cat"; # /usr/bin/cat on Solaris $formail = "/usr/bin/formail"; $pwd = "/usr/lib/cyrus-imapd"; $cpmsg = "cpmsg"; $cmd = "$formail -n 20 -s $pwd/$cpmsg"; $users = "$ARGV[0]"; if (!$users) { die "Usage: $0 $users\n"; } open(USERS,"$users") || die "can't open $users"; while (<USERS>) { chop; $inbox = "$oldspool/$_"; $prefix = substr($_,0,1); system("$cat $inbox | $cmd $mailstore/$prefix/user/$_"); }
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.