On Wed, May 20, 2009 at 08:36:47AM +0200, LALOT Dominique wrote: > Hello, > > I'm following a previous thread. I would like to be able to open a seen > skiplist database in order to verify if a particular user has red its mail. > If possible, a way to do that in PERL would be perfect. > > Thanks in advance
That's, um, tricky actually. You need to read the uniqueid of the mailbox from the cyrus.header file first, then read the contents of the skiplist file. The easiest way to do that is `cyr_dbtool /path/to/seen/file.db skiplist get $uniqueid`, which will give you the seen record. You then need to parse that for uniqueids - it's in the format: range,range,range where range is either a single integer or $low:$high where low and high are both integers - in which case all the messages in that range inclusive are seen. There's some other stuff in that seen record as well. Here we go: [br...@imap3 hm]$ cat /mnt/meta8/slot308/store23/meta/b/user/brong/cyrus.header | grep user.brong user.brong 6af857f64475158a [br...@imap3 hm]$ /usr/cyrus/bin/cyr_dbtool -C /etc/imapd-slot308-master.conf /mnt/meta8/slot308/store23/conf/user/b/brong.seen skiplist get 6af857f64475158a 1 1242810803 386716 1242800567 1:386615 Looks like I've seen all my email! Also notice 4 other fields at the start: <version> <lastread> <lastuid> <lastchange> <seen_items> Here's a more interesting couple of folders to give you an idea of what ranges look like: 798b2df94146a5fe 1 1095746485 1526 1095740252 1:559,561:772,774:920,922:1109,1111:1115,1117:1138,1140:1170,1172:1195,1197:1521 798b2df941576261 1 1125837870 34307 1123831223 1:28289,29118,30871,31887,31935,32058,32209:32210,32214:32219,32222,32228 So - in summary. It's not easy. Some plumbing required... (lastuid gives you "\Recent" as per the IMAP flag - anything newer than that is recent!) Bron. ---- Cyrus Home Page: http://cyrusimap.web.cmu.edu/ Cyrus Wiki/FAQ: http://cyrusimap.web.cmu.edu/twiki List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html
